Mercurial > hg > xemacs-beta

diff lisp/simple.el @ 294:4b85ae5eabfb r21-0b45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b45
author cvs
date Mon, 13 Aug 2007 10:38:01 +0200
parents e11d67e05968
children 8429d81ab209
line wrap: on
line diff
--- a/lisp/simple.el	Mon Aug 13 10:37:16 2007 +0200
+++ b/lisp/simple.el	Mon Aug 13 10:38:01 2007 +0200
@@ -716,7 +716,7 @@
 	 (hscroll (if (= (window-hscroll) 0)
 		      ""
 		    (format " Hscroll=%d" (window-hscroll))))
-	 (col (current-column)))
+	 (col (+ (current-column) (if column-number-start-at-one 1 0))))
     (if (= pos end)
 	(if (or (/= beg 1) (/= end (1+ total)))
 	    (message "point=%d of %d(%d%%) <%d - %d>  column %d %s"