Commit f33ae5d0 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 5648486c
......@@ -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))
(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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment