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)) |
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) |