emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 438b6b1: * lisp/foldout.el: Update for 2015-01-30 o


From: Glenn Morris
Subject: [Emacs-diffs] master 438b6b1: * lisp/foldout.el: Update for 2015-01-30 outline.el changes.
Date: Wed, 29 Apr 2015 01:09:33 +0000

branch: master
commit 438b6b1a5254753425520ed9c984e00704ae401c
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    * lisp/foldout.el: Update for 2015-01-30 outline.el changes.
    
    (foldout-zoom-subtree, foldout-exit-fold, foldout-mouse-show)
    (foldout-mouse-hide-or-exit): Use new names for outline functions.
---
 lisp/foldout.el |   24 ++++++++++++------------
 1 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/lisp/foldout.el b/lisp/foldout.el
index 443f8b7..64c0af4 100644
--- a/lisp/foldout.el
+++ b/lisp/foldout.el
@@ -280,16 +280,16 @@ optional arg EXPOSURE \(interactively with prefix arg\) 
changes this:-
       (goto-char start)
       (cond
        ((null exposure)
-       (show-entry)
-       (show-children))
+       (outline-show-entry)
+       (outline-show-children))
        ((< exposure-value 0)
-       (show-entry))
+       (outline-show-entry))
        ((consp exposure)
-       (show-children))
+       (outline-show-children))
        ((> exposure-value 0)
-       (show-children exposure-value))
+       (outline-show-children exposure-value))
        (t
-       (show-subtree))
+       (outline-show-subtree))
        )
 
       ;; save the location of the fold we are entering
@@ -366,7 +366,7 @@ exited and text is left visible."
        ;; hide the subtree
        (when hide-fold
          (goto-char start-marker)
-         (hide-subtree))
+         (outline-hide-subtree))
 
        ;; make sure the next heading is exposed
        (if end-marker
@@ -454,10 +454,10 @@ What gets exposed depends on the number of mouse clicks:-
   (foldout-mouse-goto-heading event)
   (let ((nclicks (event-click-count event)))
     (cond
-     ((= nclicks 1) (show-entry))
-     ((= nclicks 2) (show-children))
-     ((= nclicks 3) (show-entry) (show-children))
-     (t (show-subtree)))))
+     ((= nclicks 1) (outline-show-entry))
+     ((= nclicks 2) (outline-show-children))
+     ((= nclicks 3) (outline-show-entry) (outline-show-children))
+     (t (outline-show-subtree)))))
 
 (defun foldout-mouse-hide-or-exit (event)
   "Hide the subtree under the heading clicked on, or exit a fold.
@@ -478,7 +478,7 @@ What happens depends on the number of mouse clicks:-
     (if (= nclicks 1)
        (progn
          (foldout-mouse-goto-heading event)
-         (hide-subtree))
+         (outline-hide-subtree))
       (foldout-exit-fold
        (cond
        ((= nclicks 2) 1)               ; exit and hide



reply via email to

[Prev in Thread] Current Thread [Next in Thread]