Mercurial > hg > xemacs-beta

diff lisp/packages/column.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents 376386a54a3c
children
line wrap: on
line diff
--- a/lisp/packages/column.el	Mon Aug 13 08:46:35 2007 +0200
+++ b/lisp/packages/column.el	Mon Aug 13 08:46:56 2007 +0200
@@ -65,10 +65,14 @@
 
 ;; Function updating the string containing the current column.
 (defvar update-column-function 
-  (function (lambda ()
-	      (setq current-column (int-to-string (current-column)))
-	      (setq current-line   (int-to-string (current-line)))
-	      (set-buffer-modified-p (buffer-modified-p)))))
+  (lambda ()
+    (setq current-column
+	  (int-to-string (if (and (boundp 'column-number-start-at-one)
+				  column-number-start-at-one)
+			     (1+ (current-column))
+			   (current-column))))
+    (setq current-line   (int-to-string (current-line)))
+    (set-buffer-modified-p (buffer-modified-p))))
 
 (defvar display-column-mode nil
   "Show current column and line in mode line if non-nil.")