/[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.511 by rms, Sat Nov 17 22:28:30 2001 UTC revision 1.512 by rms, Mon Dec 10 20:38:47 2001 UTC
# Line 2543  Outline mode sets this." Line 2543  Outline mode sets this."
2543                                (or (memq prop buffer-invisibility-spec)                                (or (memq prop buffer-invisibility-spec)
2544                                    (assq prop buffer-invisibility-spec)))))                                    (assq prop buffer-invisibility-spec)))))
2545                  (if (get-text-property (point) 'invisible)                  (if (get-text-property (point) 'invisible)
2546                      (goto-char (next-single-property-change (point) 'invisible))                      (goto-char (or (next-single-property-change (point) 'invisible)
2547                                       (point-max)))
2548                    (goto-char (next-overlay-change (point)))))                    (goto-char (next-overlay-change (point)))))
2549                (setq arg (1- arg)))                (setq arg (1- arg)))
2550              (while (< arg 0)              (while (< arg 0)
# Line 2558  Outline mode sets this." Line 2559  Outline mode sets this."
2559                                (or (memq prop buffer-invisibility-spec)                                (or (memq prop buffer-invisibility-spec)
2560                                    (assq prop buffer-invisibility-spec)))))                                    (assq prop buffer-invisibility-spec)))))
2561                  (if (get-text-property (1- (point)) 'invisible)                  (if (get-text-property (1- (point)) 'invisible)
2562                      (goto-char (previous-single-property-change (point) 'invisible))                      (goto-char (or (previous-single-property-change (point) 'invisible)
2563                                       (point-min)))
2564                    (goto-char (previous-overlay-change (point)))))                    (goto-char (previous-overlay-change (point)))))
2565                (setq arg (1+ arg))))                (setq arg (1+ arg))))
2566            (let ((buffer-invisibility-spec nil))            (let ((buffer-invisibility-spec nil))

Legend:
Removed from v.1.511  
changed lines
  Added in v.1.512

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