# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 763842337 0
# Node ID 6491a144e9a9268baed38fae7279d8a9baafa269
# Parent  9526b326caa3db97c055cca38363919ac768559c
Revisions by author.

diff -r 9526b326caa3 -r 6491a144e9a9 lisp/foldout.el
--- 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
+