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