From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 28 Mar 2002 18:27:23 +0000 (+0000)
Subject: (line-move-to-column): Don't call move-to-column if COL=0.
X-Git-Tag: ttn-vms-21-2-B4~15931
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a615252bebb6a65466d63630cbac9d668f1e5430;p=emacs.git

(line-move-to-column): Don't call move-to-column if COL=0.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index b9235eaf17f..8e4a52f4d32 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2633,7 +2633,9 @@ Outline mode sets this."
 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))))