Function: foldout-mouse-zoom

foldout-mouse-zoom is an interactive and byte-compiled function defined in foldout.el.gz.

Signature

(foldout-mouse-zoom EVENT)

Documentation

Zoom in on the heading clicked on.

How much is exposed by the zoom depends on the number of mouse clicks:-

1 expose body
2 expose subheadings
3 expose body and subheadings
4 expose entire subtree

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/foldout.el.gz
(defun foldout-mouse-zoom (event)
  "Zoom in on the heading clicked on.

How much is exposed by the zoom depends on the number of mouse clicks:-

	1	expose body
	2	expose subheadings
	3	expose body and subheadings
	4	expose entire subtree"
  (interactive "@e")

  ;; swallow intervening mouse events so we only get the final click-count.
  (setq event (foldout-mouse-swallow-events event))

  ;; go to the heading clicked on
  (foldout-mouse-goto-heading event)

  ;; zoom away
  (foldout-zoom-subtree
   (let ((nclicks (event-click-count event)))
     (cond
      ((= nclicks 1) -1)		; body only
      ((= nclicks 2) '(1))		; subheadings only
      ((= nclicks 3) nil)		; body and subheadings
      (t 0)))))				; entire subtree