diff options
| author | Glenn Morris <rgm@gnu.org> | 2015-04-28 21:09:25 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2015-04-28 21:09:25 -0400 |
| commit | 438b6b1a5254753425520ed9c984e00704ae401c (patch) | |
| tree | d1d01e9d6f80e8fc7879fe166e6edd0294589c6c /lisp/foldout.el | |
| parent | 853941383f8d1e1d0b182e3784b2bc72aca55460 (diff) | |
| download | emacs-438b6b1a5254753425520ed9c984e00704ae401c.tar.gz | |
* 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.
Diffstat (limited to 'lisp/foldout.el')
| -rw-r--r-- | lisp/foldout.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/foldout.el b/lisp/foldout.el index 443f8b72217..64c0af451b8 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 |