[Emacs-diffs] Changes to emacs/lisp/textmodes/outline.el

[Stefan Monnier]

Index: emacs/lisp/textmodes/outline.el
diff -c emacs/lisp/textmodes/outline.el:1.52 
emacs/lisp/textmodes/outline.el:1.53
*** emacs/lisp/textmodes/outline.el:1.52        Sun Dec  2 03:39:39 2001
--- emacs/lisp/textmodes/outline.el     Mon May 20 14:32:07 2002
***************
*** 82,87 ****
--- 82,88 ----
      (define-key map "\C-o" 'hide-other)
      (define-key map "\C-^" 'outline-promote)
      (define-key map "\C-v" 'outline-demote)
+     ;; Where to bind toggle and insert-heading ?
      map))
  
  (defvar outline-mode-menu-bar-map
***************
*** 497,506 ****
    ;; Seems only used by lazy-lock.  I.e. obsolete.
    (run-hooks 'outline-view-change-hook))
  
! (defun outline-reveal-toggle-invisible (o revealp)
    (save-excursion
      (goto-char (overlay-start o))
!     (if (null revealp)
        ;; When hiding the area again, we could just clean it up and let
        ;; reveal do the rest, by simply doing:
        ;; (remove-overlays (overlay-start o) (overlay-end o)
--- 498,507 ----
    ;; Seems only used by lazy-lock.  I.e. obsolete.
    (run-hooks 'outline-view-change-hook))
  
! (defun outline-reveal-toggle-invisible (o hidep)
    (save-excursion
      (goto-char (overlay-start o))
!     (if hidep
        ;; When hiding the area again, we could just clean it up and let
        ;; reveal do the rest, by simply doing:
        ;; (remove-overlays (overlay-start o) (overlay-end o)
***************
*** 522,528 ****
        ;; inside one of the sublevels, reveal will call us again.
        ;; But we need to preserve the original overlay.
        (let ((o1 (copy-overlay o)))
!       (overlay-put o1 'invisible 'outline) ;We rehide some of the text.
        (while (progn
                 (show-entry)
                 (show-children)
--- 523,529 ----
        ;; inside one of the sublevels, reveal will call us again.
        ;; But we need to preserve the original overlay.
        (let ((o1 (copy-overlay o)))
!       (overlay-put o 'invisible nil)  ;Show (most of) the text.
        (while (progn
                 (show-entry)
                 (show-children)