From: Richard M. Stallman Date: Wed, 16 Mar 1994 18:25:37 +0000 (+0000) Subject: Revisions by author. X-Git-Tag: emacs-19.34~9473 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7dbba89afa308d5132db412a7b5ae721d189e8f4;p=emacs.git Revisions by author. --- 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 +