Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 20:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(move-beginning-of-line): Use vertical-motion.

Browse source
This commit is contained in:
Kim F. Storm 2005-03-15 23:15:05 +00:00
parent bc43858894
commit 89767eec37
1 changed files with 3 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/simple.el
View file

@ -3536,17 +3536,9 @@ boundaries bind `inhibit-field-text-motion' to t."
(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))))))
(let ((orig (point)))
(vertical-motion 0)
(goto-char (constrain-to-field (point) orig (/= arg 1) t nil))))
;;; Many people have said they rarely use this feature, and often type