Mercurial > emacs

comparison lisp/textmodes/ooutline.el @ 6320:799e5e721233

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(hide-other, hide-sublevels): Renamed from outline-...
author Richard M. Stallman <rms@gnu.org>
date Sun, 13 Mar 1994 00:38:48 +0000
parents d0a9fa0d0a8d
children cd88b5f54ae3
comparison
equal deleted inserted replaced
6319:63bf78eadcfe 6320:799e5e721233
69 (define-key outline-mode-map "\C-c\C-a" 'show-all) 69 (define-key outline-mode-map "\C-c\C-a" 'show-all)
70 (define-key outline-mode-map "\C-c\C-c" 'hide-entry) 70 (define-key outline-mode-map "\C-c\C-c" 'hide-entry)
71 (define-key outline-mode-map "\C-c\C-e" 'show-entry) 71 (define-key outline-mode-map "\C-c\C-e" 'show-entry)
72 (define-key outline-mode-map "\C-c\C-l" 'hide-leaves) 72 (define-key outline-mode-map "\C-c\C-l" 'hide-leaves)
73 (define-key outline-mode-map "\C-c\C-k" 'show-branches) 73 (define-key outline-mode-map "\C-c\C-k" 'show-branches)
74 (define-key outline-mode-map "\C-c\C-q" 'outline-hide-sublevels) 74 (define-key outline-mode-map "\C-c\C-q" 'hide-sublevels)
75 (define-key outline-mode-map "\C-c\C-o" 'outline-hide-other) 75 (define-key outline-mode-map "\C-c\C-o" 'hide-other)
76 76
77 (define-key outline-mode-map [menu-bar hide] 77 (define-key outline-mode-map [menu-bar hide]
78 (cons "Hide" (make-sparse-keymap "Hide"))) 78 (cons "Hide" (make-sparse-keymap "Hide")))
79 79
80 (define-key outline-mode-map [menu-bar hide outline-hide-other] 80 (define-key outline-mode-map [menu-bar hide hide-other]
81 '("Hide Other" . outline-hide-other)) 81 '("Hide Other" . hide-other))
82 (define-key outline-mode-map [menu-bar hide outline-hide-sublevels] 82 (define-key outline-mode-map [menu-bar hide hide-sublevels]
83 '("Hide Sublevels" . outline-hide-sublevels)) 83 '("Hide Sublevels" . hide-sublevels))
84 (define-key outline-mode-map [menu-bar hide hide-subtree] 84 (define-key outline-mode-map [menu-bar hide hide-subtree]
85 '("Hide Subtree" . hide-subtree)) 85 '("Hide Subtree" . hide-subtree))
86 (define-key outline-mode-map [menu-bar hide hide-entry] 86 (define-key outline-mode-map [menu-bar hide hide-entry]
87 '("Hide Entry" . hide-entry)) 87 '("Hide Entry" . hide-entry))
88 (define-key outline-mode-map [menu-bar hide hide-body] 88 (define-key outline-mode-map [menu-bar hide hide-body]
362 (defun show-subtree () 362 (defun show-subtree ()
363 "Show everything after this heading at deeper levels." 363 "Show everything after this heading at deeper levels."
364 (interactive) 364 (interactive)
365 (outline-flag-subtree ?\n)) 365 (outline-flag-subtree ?\n))
366 366
367 (defun outline-hide-sublevels (levels) 367 (defun hide-sublevels (levels)
368 "Hide everything except the top LEVELS levels of headers." 368 "Hide everything except the top LEVELS levels of headers."
369 (interactive "p") 369 (interactive "p")
370 (if (< levels 1) 370 (if (< levels 1)
371 (error "Must keep at least one level of headers")) 371 (error "Must keep at least one level of headers"))
372 (setq levels (1- levels)) 372 (setq levels (1- levels))
380 (while (outline-get-next-sibling) 380 (while (outline-get-next-sibling)
381 (hide-subtree) 381 (hide-subtree)
382 (show-children levels)) 382 (show-children levels))
383 (error nil)))) 383 (error nil))))
384 384
385 (defun outline-hide-other () 385 (defun hide-other ()
386 "Hide everything except for the current body and the parent headings." 386 "Hide everything except for the current body and the parent headings."
387 (interactive) 387 (interactive)
388 (outline-hide-sublevels 1) 388 (hide-sublevels 1)
389 (let ((last (point)) 389 (let ((last (point))
390 (pos (point))) 390 (pos (point)))
391 (while (save-excursion 391 (while (save-excursion
392 (and (re-search-backward "[\n\r]" nil t) 392 (and (re-search-backward "[\n\r]" nil t)
393 (eq (following-char) ?\r))) 393 (eq (following-char) ?\r)))