Mercurial > emacs

comparison lisp/outline.el @ 68279:fae5d0cc2b1d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Comment change.
author Richard M. Stallman <rms@gnu.org>
date Fri, 20 Jan 2006 01:21:18 +0000
parents 4747977f1afa
children 3bd95f4f2941 5b7d410e31f9
comparison
equal deleted inserted replaced
68278:125d04254c22 68279:fae5d0cc2b1d
805 (defun hide-leaves () 805 (defun hide-leaves ()
806 "Hide the body after this heading and at deeper levels." 806 "Hide the body after this heading and at deeper levels."
807 (interactive) 807 (interactive)
808 (save-excursion 808 (save-excursion
809 (outline-back-to-heading) 809 (outline-back-to-heading)
810 ;; Turned off to fix bug reported by Otto Maddox on 22 Nov 2005.
810 ;; (outline-end-of-heading) 811 ;; (outline-end-of-heading)
811 (hide-region-body (point) (progn (outline-end-of-subtree) (point))))) 812 (hide-region-body (point) (progn (outline-end-of-subtree) (point)))))
812 813
813 (defun show-subtree () 814 (defun show-subtree ()
814 "Show everything after this heading at deeper levels." 815 "Show everything after this heading at deeper levels."