From bfb1a447d213a125d099b2432bdf6843a156bb1b Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Thu, 17 Mar 2005 15:33:56 +0000 Subject: [PATCH] (move-beginning-of-line): Move to beginning of buffer line, as well as beginning of screen line. --- lisp/simple.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 2.39.2