Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.717 emacs/lisp/simple.el:1.718
*** emacs/lisp/simple.el:1.717 Sun May 1 18:54:00 2005
--- emacs/lisp/simple.el Wed May 4 14:22:48 2005
***************
*** 3420,3426 ****
;; We avoid vertical-motion when possible
;; because that has to fontify.
(if (eobp)
! (setq done t)
(forward-line 1))
;; Otherwise move a more sophisticated way.
;; (What's the logic behind this code?)
--- 3420,3428 ----
;; We avoid vertical-motion when possible
;; because that has to fontify.
(if (eobp)
! (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,3442 ****
;; 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 (bobp)
! (setq done t)
(forward-line -1))
(if (zerop (vertical-motion -1))
(if (not noerror)
--- 3436,3446 ----
;; it just goes in the other direction.
(while (and (< arg 0) (not done))
(beginning-of-line)
! (if (or (bobp) (not (line-move-invisible-p (1- (point)))))
(if (bobp)
! (if (not noerror)
! (signal 'beginning-of-buffer nil)
! (setq done t))
(forward-line -1))
(if (zerop (vertical-motion -1))
(if (not noerror)
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
