Commit 7dbba89a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Revisions by author.

parent 0b6db30b
......@@ -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,6 +120,11 @@
;;; ChangeLog:
;; 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
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment