changeset 44208:7213f46c80a0

(line-move-to-column): Don't call move-to-column if COL=0.
author Richard M. Stallman <rms@gnu.org>
date Thu, 28 Mar 2002 18:27:23 +0000
parents 6c55bf040a71
children 9501986a69c8
files lisp/simple.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Thu Mar 28 18:26:36 2002 +0000
+++ b/lisp/simple.el	Thu Mar 28 18:27:23 2002 +0000
@@ -2633,7 +2633,9 @@
 This function works only in certain cases,
 because what we really need is for `move-to-column'
 and `current-column' to be able to ignore invisible text."
-  (move-to-column col)
+  (if (zerop col)
+      (beginning-of-line)
+    (move-to-column col))
 
   (when (and line-move-ignore-invisible
 	     (not (bolp)) (line-move-invisible (1- (point))))