/[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.717 by rms, Sun May 1 18:54:00 2005 UTC revision 1.718 by rms, Wed May 4 14:22:48 2005 UTC
# Line 3420  Outline mode sets this." Line 3420  Outline mode sets this."
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?)
# Line 3434  Outline mode sets this." Line 3436  Outline mode sets this."
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)

Legend:
Removed from v.1.717  
changed lines
  Added in v.1.718

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