From: Kim F. Storm <storm@cua.dk>
Date: Thu, 17 Mar 2005 15:33:56 +0000 (+0000)
Subject: (move-beginning-of-line): Move to beginning of buffer
X-Git-Tag: ttn-vms-21-2-B4~1755
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bfb1a447d213a125d099b2432bdf6843a156bb1b;p=emacs.git

(move-beginning-of-line): Move to beginning of buffer
line, as well as beginning of screen line.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index e154d56ea66..1a76c1a852e 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3536,9 +3536,11 @@ boundaries bind `inhibit-field-text-motion' to t."
   (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