mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(line-move-1): Fix previous change to signal errors appropriately.

Browse source
This commit is contained in:
Richard M. Stallman 2005-05-04 14:22:48 +00:00
parent 5648486ce0
commit f33ae5d01a
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/simple.el
View file

@ -3420,7 +3420,9 @@ Outline mode sets this."
;; We avoid vertical-motion when possible
;; because that has to fontify.
(if (eobp)
(setq done t)
(if (not noerror)
(signal 'end-of-buffer nil)
(setq done t))
(forward-line 1))
;; Otherwise move a more sophisticated way.
;; (What's the logic behind this code?)
@ -3434,9 +3436,11 @@ Outline mode sets this."
;; it just goes in the other direction.
(while (and (< arg 0) (not done))
(beginning-of-line)
(if (not (line-move-invisible-p (1- (point))))
(if (or (bobp) (not (line-move-invisible-p (1- (point)))))
(if (bobp)
(setq done t)
(if (not noerror)
(signal 'beginning-of-buffer nil)
(setq done t))
(forward-line -1))
(if (zerop (vertical-motion -1))
(if (not noerror)