Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.718 emacs/lisp/simple.el:1.719
*** emacs/lisp/simple.el:1.718 Wed May 4 14:22:48 2005
--- emacs/lisp/simple.el Thu May 5 22:43:06 2005
***************
*** 3416,3428 ****
;; Now move a line.
(end-of-line)
;; If there's no invisibility here, move over the newline.
! (if (not (line-move-invisible-p (point)))
;; 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?)
--- 3416,3429 ----
;; Now move a line.
(end-of-line)
;; If there's no invisibility here, move over the newline.
! (if (and (not (integerp selective-display))
! (not (line-move-invisible-p (point))))
;; 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?)
***************
*** 3432,3442 ****
(setq done t))))
(unless done
(setq arg (1- arg))))
! ;; The logic of this is the same as the loop above,
;; 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)
--- 3433,3445 ----
(setq done t))))
(unless done
(setq arg (1- arg))))
! ;; The logic of this is the same as the loop above,
;; it just goes in the other direction.
(while (and (< arg 0) (not done))
(beginning-of-line)
! (if (or (bobp)
! (and (not (integerp selective-display))
! (not (line-move-invisible-p (1- (point))))))
(if (bobp)
(if (not noerror)
(signal 'beginning-of-buffer nil)
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
