diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-16 18:25:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-16 18:25:37 +0000 |
| commit | 7dbba89afa308d5132db412a7b5ae721d189e8f4 (patch) | |
| tree | 54ac3a62556005b086ffa916b9393509a8940872 /lisp | |
| parent | 0b6db30be256ae75dcfe13058d18fe0780dff984 (diff) | |
| download | emacs-7dbba89afa308d5132db412a7b5ae721d189e8f4.tar.gz | |
Revisions by author.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/foldout.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/foldout.el b/lisp/foldout.el index c43c295e25f..03a06bdc086 100644 --- a/lisp/foldout.el +++ b/lisp/foldout.el @@ -4,7 +4,7 @@ ;; Author: Kevin Broadey <KevinB@bartley.demon.co.uk> ;; Created: 27 Jan 1994 -;; Version: foldout.el 1.8 dated 94/03/15 at 13:30:59 +;; Version: foldout.el 1.9 dated 94/03/15 at 14:10:40 ;; Keywords: folding, outline ;; This file is part of GNU Emacs. @@ -120,7 +120,12 @@ ;;; ChangeLog: -;; 1.8 15-Mar-94 +;; 1.9 15-Mar-94 +;; Didn't test that very well, did I? The change to foldout-zoom-subtree +;; affected foldout-mouse-zoom: if the heading under the `level n' one clicked +;; on was at `level n+2' then it didn't get exposed. Sorry about that! + +;; 1.8 15-Mar-94 ;; Changed meaning of prefix arg to foldout-zoom-subtree. arg > 0 now means ;; "expose that many children" instead of just "expose children" so it is more ;; like `show-children' (C-c C-i). Arg of C-u on its own only shows one level @@ -420,7 +425,7 @@ How much is exposed by the zoom depends on the number of mouse clicks:- (let ((nclicks (event-click-count event))) (cond ((= nclicks 1) -1) ; body only - ((= nclicks 2) +1) ; subheadings only + ((= nclicks 2) '(1)) ; subheadings only ((= nclicks 3) nil) ; body and subheadings (t 0))))) ; entire subtree @@ -548,3 +553,4 @@ Valid modifiers are shift, control, meta, alt, hyper and super.") (provide 'foldout) ;;; foldout.el ends here + |