;; 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.
;;; 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
(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
(provide 'foldout)
;;; foldout.el ends here
+