[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 438b6b1: * lisp/foldout.el: Update for 2015-01-30 outline.el changes.,
Glenn Morris <=