/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.737 by jurta, Sat Jul 9 20:46:26 2005 UTC revision 1.738 by kfstorm, Wed Jul 13 10:29:38 2005 UTC
# Line 3447  Outline mode sets this." Line 3447  Outline mode sets this."
3447                            (signal 'end-of-buffer nil)                            (signal 'end-of-buffer nil)
3448                          (setq done t)))                          (setq done t)))
3449                    (when (and (not done)                    (when (and (not done)
3450                                 (> arg 1)  ;; Use vertical-motion for last move
3451                               (not (integerp selective-display))                               (not (integerp selective-display))
3452                               (not (line-move-invisible-p (point))))                               (not (line-move-invisible-p (point))))
3453                      (unless (overlays-in (max (1- pos-before) (point-min))                      ;; We avoid vertical-motion when possible
3454                                           (min (1+ (point)) (point-max)))                      ;; because that has to fontify.
3455                        ;; We avoid vertical-motion when possible                      (forward-line 1)
3456                        ;; because that has to fontify.                      (setq line-done t))
                       (forward-line 1)  
                       (setq line-done t)))  
3457                    (and (not done) (not line-done)                    (and (not done) (not line-done)
3458                         ;; Otherwise move a more sophisticated way.                         ;; Otherwise move a more sophisticated way.
3459                         (zerop (vertical-motion 1))                         (zerop (vertical-motion 1))
# Line 3474  Outline mode sets this." Line 3473  Outline mode sets this."
3473                            (signal 'beginning-of-buffer nil)                            (signal 'beginning-of-buffer nil)
3474                          (setq done t)))                          (setq done t)))
3475                    (when (and (not done)                    (when (and (not done)
3476                                 (< arg -1) ;; Use vertical-motion for last move
3477                               (not (integerp selective-display))                               (not (integerp selective-display))
3478                               (not (line-move-invisible-p (1- (point)))))                               (not (line-move-invisible-p (1- (point)))))
3479                      (unless (overlays-in (max (1- (point)) (point-min))                      (forward-line -1)
3480                                           (min (1+ pos-before) (point-max)))                      (setq line-done t))
                       (forward-line -1)  
                       (setq line-done t)))  
3481                    (and (not done) (not line-done)                    (and (not done) (not line-done)
3482                         (zerop (vertical-motion -1))                         (zerop (vertical-motion -1))
3483                         (if (not noerror)                         (if (not noerror)

Legend:
Removed from v.1.737  
changed lines
  Added in v.1.738

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26