[Emacs-diffs] Changes to emacs/lisp/simple.el

[Kim F . Storm]

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)