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

[Juri Linkov]

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