mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(line-move-1): Always use vertical-motion to

Browse Source 
do the last (or only) line move to ensure some movement.
Undo 2005-06-23 change--don't check for overlays.
This commit is contained in:
Kim F. Storm 2005-07-13 10:29:38 +00:00
parent 010b9a45b1
commit 6a8b26dcd5
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/simple.el
View File

@ -3447,14 +3447,13 @@ Outline mode sets this."
(signal 'end-of-buffer nil)
(setq done t)))
(when (and (not done)
(> arg 1) ;; Use vertical-motion for last move
(not (integerp selective-display))
(not (line-move-invisible-p (point))))
(unless (overlays-in (max (1- pos-before) (point-min))
(min (1+ (point)) (point-max)))
;; We avoid vertical-motion when possible
;; because that has to fontify.
(forward-line 1)
(setq line-done t)))
;; We avoid vertical-motion when possible
;; because that has to fontify.
(forward-line 1)
(setq line-done t))
(and (not done) (not line-done)
;; Otherwise move a more sophisticated way.
(zerop (vertical-motion 1))
@ -3474,12 +3473,11 @@ Outline mode sets this."
(signal 'beginning-of-buffer nil)
(setq done t)))
(when (and (not done)
(< arg -1) ;; Use vertical-motion for last move
(not (integerp selective-display))
(not (line-move-invisible-p (1- (point)))))
(unless (overlays-in (max (1- (point)) (point-min))
(min (1+ pos-before) (point-max)))
(forward-line -1)
(setq line-done t)))
(forward-line -1)
(setq line-done t))
(and (not done) (not line-done)
(zerop (vertical-motion -1))
(if (not noerror)