diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/outline.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el index 941de59fbfb..d7618ea2aaf 100644 --- a/lisp/textmodes/outline.el +++ b/lisp/textmodes/outline.el | |||
| @@ -82,6 +82,7 @@ in the file it applies to." | |||
| 82 | (define-key map "\C-o" 'hide-other) | 82 | (define-key map "\C-o" 'hide-other) |
| 83 | (define-key map "\C-^" 'outline-promote) | 83 | (define-key map "\C-^" 'outline-promote) |
| 84 | (define-key map "\C-v" 'outline-demote) | 84 | (define-key map "\C-v" 'outline-demote) |
| 85 | ;; Where to bind toggle and insert-heading ? | ||
| 85 | map)) | 86 | map)) |
| 86 | 87 | ||
| 87 | (defvar outline-mode-menu-bar-map | 88 | (defvar outline-mode-menu-bar-map |
| @@ -497,10 +498,10 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden." | |||
| 497 | ;; Seems only used by lazy-lock. I.e. obsolete. | 498 | ;; Seems only used by lazy-lock. I.e. obsolete. |
| 498 | (run-hooks 'outline-view-change-hook)) | 499 | (run-hooks 'outline-view-change-hook)) |
| 499 | 500 | ||
| 500 | (defun outline-reveal-toggle-invisible (o revealp) | 501 | (defun outline-reveal-toggle-invisible (o hidep) |
| 501 | (save-excursion | 502 | (save-excursion |
| 502 | (goto-char (overlay-start o)) | 503 | (goto-char (overlay-start o)) |
| 503 | (if (null revealp) | 504 | (if hidep |
| 504 | ;; When hiding the area again, we could just clean it up and let | 505 | ;; When hiding the area again, we could just clean it up and let |
| 505 | ;; reveal do the rest, by simply doing: | 506 | ;; reveal do the rest, by simply doing: |
| 506 | ;; (remove-overlays (overlay-start o) (overlay-end o) | 507 | ;; (remove-overlays (overlay-start o) (overlay-end o) |
| @@ -522,7 +523,7 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden." | |||
| 522 | ;; inside one of the sublevels, reveal will call us again. | 523 | ;; inside one of the sublevels, reveal will call us again. |
| 523 | ;; But we need to preserve the original overlay. | 524 | ;; But we need to preserve the original overlay. |
| 524 | (let ((o1 (copy-overlay o))) | 525 | (let ((o1 (copy-overlay o))) |
| 525 | (overlay-put o1 'invisible 'outline) ;We rehide some of the text. | 526 | (overlay-put o 'invisible nil) ;Show (most of) the text. |
| 526 | (while (progn | 527 | (while (progn |
| 527 | (show-entry) | 528 | (show-entry) |
| 528 | (show-children) | 529 | (show-children) |