Index: emacs/lisp/outline.el
diff -c emacs/lisp/outline.el:1.15 emacs/lisp/outline.el:1.16
*** emacs/lisp/outline.el:1.15 Fri Aug 26 15:31:59 2005
--- emacs/lisp/outline.el Mon Aug 29 20:49:01 2005
***************
*** 749,756 ****
(defun hide-entry ()
"Hide the body directly following this heading."
(interactive)
- (outline-back-to-heading)
(save-excursion
(outline-end-of-heading)
(outline-flag-region (point) (progn (outline-next-preface) (point)) t)))
--- 749,756 ----
(defun hide-entry ()
"Hide the body directly following this heading."
(interactive)
(save-excursion
+ (outline-back-to-heading)
(outline-end-of-heading)
(outline-flag-region (point) (progn (outline-next-preface) (point)) t)))
***************
*** 802,809 ****
(defun hide-leaves ()
"Hide all body after this heading at deeper levels."
(interactive)
- (outline-back-to-heading)
(save-excursion
(outline-end-of-heading)
(hide-region-body (point) (progn (outline-end-of-subtree) (point)))))
--- 802,809 ----
(defun hide-leaves ()
"Hide all body after this heading at deeper levels."
(interactive)
(save-excursion
+ (outline-back-to-heading)
(outline-end-of-heading)
(hide-region-body (point) (progn (outline-end-of-subtree) (point)))))
***************
*** 860,870 ****
(defun outline-toggle-children ()
"Show or hide the current subtree depending on its current state."
(interactive)
! (outline-back-to-heading)
! (if (not (outline-invisible-p (line-end-position)))
! (hide-subtree)
! (show-children)
! (show-entry)))
(defun outline-flag-subtree (flag)
(save-excursion
--- 860,871 ----
(defun outline-toggle-children ()
"Show or hide the current subtree depending on its current state."
(interactive)
! (save-excursion
! (outline-back-to-heading)
! (if (not (outline-invisible-p (line-end-position)))
! (hide-subtree)
! (show-children)
! (show-entry))))
(defun outline-flag-subtree (flag)
(save-excursion
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
