Mercurial > emacs

changeset 60664:2edb492f66d9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(move-beginning-of-line): Move to beginning of buffer line, as well as beginning of screen line.
author Kim F. Storm <storm@cua.dk>
date Thu, 17 Mar 2005 15:33:56 +0000
parents 8a1e88626f04
children a95b5f47474c
files lisp/simple.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Thu Mar 17 15:33:37 2005 +0000
+++ b/lisp/simple.el	Thu Mar 17 15:33:56 2005 +0000
@@ -3536,9 +3536,11 @@
   (or arg (setq arg 1))
   (if (/= arg 1)
       (line-move (1- arg) t))
+  (beginning-of-line 1)
   (let ((orig (point)))
     (vertical-motion 0)
-    (goto-char (constrain-to-field (point) orig (/= arg 1) t nil))))
+    (if (/= orig (point))
+	(goto-char (constrain-to-field (point) orig (/= arg 1) t nil)))))
 
 
 ;;; Many people have said they rarely use this feature, and often type