From: Kim F. Storm <storm@cua.dk>
Date: Mon, 7 Mar 2005 11:12:31 +0000 (+0000)
Subject: (move-beginning-of-line): New command.
X-Git-Tag: ttn-vms-21-2-B4~1906
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0cbb497cf069870f707c8942dfbadcf5eae06f18;p=emacs.git

(move-beginning-of-line): New command.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 38c9bff4130..207f5b83abc 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3517,6 +3517,33 @@ boundaries bind `inhibit-field-text-motion' to t."
 	      (setq arg 1)
 	    (setq done t)))))))
 
+(defun move-beginning-of-line (arg)
+  "Move point to beginning of current display line.
+With argument ARG not nil or 1, move forward ARG - 1 lines first.
+If point reaches the beginning or end of buffer, it stops there.
+To ignore intangibility, bind `inhibit-point-motion-hooks' to t.
+
+This command does not move point across a field boundary unless doing so
+would move beyond there to a different line; if ARG is nil or 1, and
+point starts at a field boundary, point does not move.  To ignore field
+boundaries bind `inhibit-field-text-motion' to t."
+  (interactive "p")
+  (or arg (setq arg 1))
+  (if (/= arg 1)
+      (line-move (1- arg) t))
+  (let (done pos)
+    (while (not done)
+      (beginning-of-line 1)
+      ;; (not bolp) means that it stopped at a field boundary.
+      (if (or (bobp) (not (bolp)))
+	  (setq done t)
+	(sit-for 0)
+	(if (and (consp (setq pos (pos-visible-in-window-p (point) nil t)))
+		 (= (car pos) 0))
+	    (setq done t)
+	  (backward-char 1))))))
+
+
 ;;; Many people have said they rarely use this feature, and often type
 ;;; it by accident.  Maybe it shouldn't even be on a key.
 (put 'set-goal-column 'disabled t)