3420 |
;; We avoid vertical-motion when possible |
;; We avoid vertical-motion when possible |
3421 |
;; because that has to fontify. |
;; because that has to fontify. |
3422 |
(if (eobp) |
(if (eobp) |
3423 |
(setq done t) |
(if (not noerror) |
3424 |
|
(signal 'end-of-buffer nil) |
3425 |
|
(setq done t)) |
3426 |
(forward-line 1)) |
(forward-line 1)) |
3427 |
;; Otherwise move a more sophisticated way. |
;; Otherwise move a more sophisticated way. |
3428 |
;; (What's the logic behind this code?) |
;; (What's the logic behind this code?) |
3436 |
;; it just goes in the other direction. |
;; it just goes in the other direction. |
3437 |
(while (and (< arg 0) (not done)) |
(while (and (< arg 0) (not done)) |
3438 |
(beginning-of-line) |
(beginning-of-line) |
3439 |
(if (not (line-move-invisible-p (1- (point)))) |
(if (or (bobp) (not (line-move-invisible-p (1- (point))))) |
3440 |
(if (bobp) |
(if (bobp) |
3441 |
(setq done t) |
(if (not noerror) |
3442 |
|
(signal 'beginning-of-buffer nil) |
3443 |
|
(setq done t)) |
3444 |
(forward-line -1)) |
(forward-line -1)) |
3445 |
(if (zerop (vertical-motion -1)) |
(if (zerop (vertical-motion -1)) |
3446 |
(if (not noerror) |
(if (not noerror) |