Lines Matching refs:outline
1 ;;; foldout.el --- folding extensions for outline-mode and outline-minor-mode
31 ;; This file provides folding editor extensions for outline-mode and
32 ;; outline-minor-mode buffers. What's a "folding editor"? Read on...
34 ;; Imagine you're in an outline-mode buffer and you've hidden all the text and
57 ;; While you're zoomed in you can still use outline-mode's exposure and hiding
108 ;; (eval-after-load "outline" '(require 'foldout))
113 ;; outline-mode goodies. In particular, `outline-hide-sublevels' makes
119 ;; c-outline.el (by me) provides outline-mode support to recognise `C'
120 ;; statements as outline headings, so with foldout you can have a folding `C'
147 ;; Added advertisement for my c-outline.el package. Now you can have a folding
186 ;; (outline-end-of-subtree) so it includes the end-of-line at the end of the
213 (require 'outline)
215 ;; something has gone very wrong if outline-minor-mode isn't bound now.
216 (if (not (boundp 'outline-minor-mode))
217 (error "Can't find outline-minor-mode"))
225 "Modeline string announcing that we are in an outline fold.")
228 ;; put our minor mode string immediately following outline-minor-mode's
230 (let ((outl-entry (memq (assq 'outline-minor-mode minor-mode-alist)
234 ;; something's wrong with outline if we can't find it
236 (error "Can't find outline-minor-mode in minor-mode-alist"))
242 ;; outline-flag-region has different `flag' values in outline.el and
265 (outline-back-to-heading)
269 (end (progn (outline-end-of-subtree)
362 ;; outline.el and leave a blank line before the heading.
378 (outline-flag-region end-of-subtree beginning-of-heading
412 ;; in outline-minor-mode we're after "Outl:xx" in the modeline
413 (outline-minor-mode
415 ;; otherwise just announce the depth (I guess we're in outline-mode)
515 (or (outline-on-heading-p)
516 ;; outline.el sometimes treats beginning-of-buffer as a heading
517 ;; even though outline-on-heading returns nil.
538 (define-key outline-mode-map "\C-c\C-z" 'foldout-zoom-subtree)
539 (define-key outline-mode-map "\C-c\C-x" 'foldout-exit-fold)
540 (let ((map (lookup-key outline-minor-mode-map outline-minor-mode-prefix)))
543 (define-key outline-minor-mode-map outline-minor-mode-prefix map))
565 (define-key outline-mode-map mouse-1 'foldout-mouse-zoom)
566 (define-key outline-mode-map mouse-2 'foldout-mouse-show)
567 (define-key outline-mode-map mouse-3 'foldout-mouse-hide-or-exit)
569 (define-key outline-minor-mode-map mouse-1 'foldout-mouse-zoom)
570 (define-key outline-minor-mode-map mouse-2 'foldout-mouse-show)
571 (define-key outline-minor-mode-map mouse-3 'foldout-mouse-hide-or-exit)