From 7dbba89afa308d5132db412a7b5ae721d189e8f4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 16 Mar 1994 18:25:37 +0000 Subject: [PATCH] Revisions by author. --- lisp/foldout.el | 12 +++++++++--- 1 file 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 ;; 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 + -- 2.39.5