martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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)