Mercurial > emacs
changeset 6379:6491a144e9a9
Revisions by author.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 16 Mar 1994 18:25:37 +0000 |
| parents | 9526b326caa3 |
| children | 510a3c16068a |
| files | lisp/foldout.el |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/foldout.el Wed Mar 16 18:09:48 1994 +0000 +++ b/lisp/foldout.el Wed Mar 16 18:25:37 1994 +0000 @@ -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 @@ (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 @@ (provide 'foldout) ;;; foldout.el ends here +