mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 07:51:17 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/simple.el (move-beginning-of-line): Make sure we don't move forward.

Browse source 
Fixes: debbugs:16497
This commit is contained in:
Stefan Monnier 2014-01-20 14:15:10 -05:00
parent 009581fa65
commit 6cc750eec4
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2014-01-20 Stefan Monnier <monnier@iro.umontreal.ca>
* simple.el (move-beginning-of-line): Make sure we don't move forward
(bug#16497).
2014-01-20 Juri Linkov <juri@jurta.org>
* saveplace.el (toggle-save-place, save-place-to-alist)

6
lisp/simple.el
View file

@ -5534,9 +5534,9 @@ To ignore intangibility, bind `inhibit-point-motion-hooks' to t."
(goto-char (previous-char-property-change (point)))
(skip-chars-backward "^\n"))
;; Now find first visible char in the line
(while (and (not (eobp)) (invisible-p (point)))
(goto-char (next-char-property-change (point))))
;; Now find first visible char in the line.
(while (and (< (point) orig) (invisible-p (point)))
(goto-char (next-char-property-change (point) orig)))
(setq first-vis (point))
;; See if fields would stop us from reaching FIRST-VIS.