(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 e154d56ea66767a986e034c1e6c26fd46005bcfd..1a76c1a852e16bf2d7b549bf91973e0af97bb8f0 100644 (file)
--- 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