diff options
| -rw-r--r-- | lisp/simple.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 74821ae3116..cc358ae0edc 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -2543,7 +2543,8 @@ Outline mode sets this." | |||
| 2543 | (or (memq prop buffer-invisibility-spec) | 2543 | (or (memq prop buffer-invisibility-spec) |
| 2544 | (assq prop buffer-invisibility-spec))))) | 2544 | (assq prop buffer-invisibility-spec))))) |
| 2545 | (if (get-text-property (point) 'invisible) | 2545 | (if (get-text-property (point) 'invisible) |
| 2546 | (goto-char (next-single-property-change (point) 'invisible)) | 2546 | (goto-char (or (next-single-property-change (point) 'invisible) |
| 2547 | (point-max))) | ||
| 2547 | (goto-char (next-overlay-change (point))))) | 2548 | (goto-char (next-overlay-change (point))))) |
| 2548 | (setq arg (1- arg))) | 2549 | (setq arg (1- arg))) |
| 2549 | (while (< arg 0) | 2550 | (while (< arg 0) |
| @@ -2558,7 +2559,8 @@ Outline mode sets this." | |||
| 2558 | (or (memq prop buffer-invisibility-spec) | 2559 | (or (memq prop buffer-invisibility-spec) |
| 2559 | (assq prop buffer-invisibility-spec))))) | 2560 | (assq prop buffer-invisibility-spec))))) |
| 2560 | (if (get-text-property (1- (point)) 'invisible) | 2561 | (if (get-text-property (1- (point)) 'invisible) |
| 2561 | (goto-char (previous-single-property-change (point) 'invisible)) | 2562 | (goto-char (or (previous-single-property-change (point) 'invisible) |
| 2563 | (point-min))) | ||
| 2562 | (goto-char (previous-overlay-change (point))))) | 2564 | (goto-char (previous-overlay-change (point))))) |
| 2563 | (setq arg (1+ arg)))) | 2565 | (setq arg (1+ arg)))) |
| 2564 | (let ((buffer-invisibility-spec nil)) | 2566 | (let ((buffer-invisibility-spec nil)) |