Lines Matching +defs:hide +defs:fold
63 ;; You unzoom (exit) a fold by doing C-c C-x (foldout-exit-fold). This hides
68 ;; You might want to exit a fold *without* hiding the text and subheadings.
90 ;; mouse-3 (foldout-mouse-hide-or-exit) hides text under the heading clicked
91 ;; on or exits the fold:-
93 ;; single click hide subtree
94 ;; double click exit fold and hide text
95 ;; triple click exit fold without hiding text
96 ;; quad click exit all folds and hide text
113 ;; outline-mode goodies. In particular, `outline-hide-sublevels' makes
121 ;; code editor without having to put in start- and end-of-fold markers. This
129 ;; bugfix: numeric arg to foldout-exit-fold wasn't working - looks like I don't
152 ;; narrowed region when inside a fold. Now *all* newlines before the following
157 ;; Since all newlines are now inside the narrowed region, when exiting a fold
171 ;; foldout-mouse-hide-or-exit.
183 ;; Bugfix: end-of-fold marking was wrong:-
189 ;; End-of-fold marker should be outside the narrowed region so text inserted
196 ;; subtree on entering the fold. As before, < 0 shows only the body and > 0
202 ;; Changed `foldout-exit-fold' to use prefix arg to say how many folds to exit.
203 ;; Negative arg means exit but don't hide text. Zero arg means exit all folds.
219 (defvar foldout-fold-list nil
221 An end marker of nil means the fold ends after (point-max).")
222 (make-variable-buffer-local 'foldout-fold-list)
225 "Modeline string announcing that we are in an outline fold.")
238 ;; slip our fold announcement into the list
245 (defconst foldout-hide-flag
299 ;; save the location of the fold we are entering
300 (setq foldout-fold-list (cons (cons start-marker end-marker)
301 foldout-fold-list))
309 (defun foldout-exit-fold (&optional num-folds)
310 "Return to the ARG'th enclosing fold view. With ARG = 0 exit all folds.
315 (let ((hide-fold t) start-marker end-marker
319 (if (null foldout-fold-list)
320 (error "Not in a fold!"))
325 (setq num-folds (length foldout-fold-list)))
327 ;; have we been told not to hide the fold?
329 (setq hide-fold nil
334 (setq num-folds (min num-folds (length foldout-fold-list)))
339 ;; get the fold at the top of the stack
340 (setq start-marker (car (car foldout-fold-list))
341 end-marker (cdr (car foldout-fold-list))
342 foldout-fold-list (cdr foldout-fold-list)
345 ;; Make sure there is a newline at the end of this fold,
355 ;; If this is the last fold to exit, hide the text unless we've
371 ;; hide the subtree
372 (when hide-fold
374 (hide-subtree))
386 ;; narrow to the enclosing fold if there is one
387 (if foldout-fold-list
389 (setq start-marker (car (car foldout-fold-list))
390 end-marker (cdr (car foldout-fold-list)))
405 "Set the modeline string to indicate our fold depth."
406 (let ((depth (length foldout-fold-list)))
409 ;; if we're not in a fold, keep quiet
417 " Inside 1 fold")
473 (defun foldout-mouse-hide-or-exit (event)
474 "Hide the subtree under the heading clicked on, or exit a fold.
478 1 hide subtree
479 2 exit fold and hide text
480 3 exit fold without hiding text
481 4 exit all folds and hide text"
487 ;; hide or exit
492 (hide-subtree))
493 (foldout-exit-fold
495 ((= nclicks 2) 1) ; exit and hide
496 ((= nclicks 3) -1) ; exit don't hide
539 (define-key outline-mode-map "\C-c\C-x" 'foldout-exit-fold)
545 (define-key map "\C-x" 'foldout-exit-fold))
567 (define-key outline-mode-map mouse-3 'foldout-mouse-hide-or-exit)
571 (define-key outline-minor-mode-map mouse-3 'foldout-mouse-hide-or-exit)