# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1111073636 0
# Node ID 2edb492f66d9b0f321530f2f6f2f47cc557543df
# Parent  8a1e88626f04c139f1a43593da6a2c0536675a56
(move-beginning-of-line): Move to beginning of buffer
line, as well as beginning of screen line.

diff -r 8a1e88626f04 -r 2edb492f66d9 lisp/simple.el
--- 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