Re: outline-minor-mode with text before first heading

[Peter Heslin <pj@heslin.eclipse.co.uk>]

[-- Attachment #1: Type: text/plain, Size: 550 bytes --]

On Fri, Oct 22, 2004 at 06:47:10AM -0400, Richard Stallman wrote:
> Maybe hide-body should always leave text before the first heading
> unchanged.  Maybe that text should never be hidden.  Does anyone
> think it is a useful feature to hide text before the first heading?

Since both you and Stefan seem inclined to think that hiding text
before the first heading is the wrong thing to do (and I agree),
here's a simpler patch that fixes the bug rather than making the new
behavior optional.
 
> By the way, please use diff -c to make patches.

OK.



[-- Attachment #2: diff.txt --]
[-- Type: text/plain, Size: 1133 bytes --]

*** /usr/local/share/emacs/21.3.50/lisp/outline.el	2004-09-13 12:28:12.000000000 +0100
--- outline.el	2004-10-22 21:24:18.000000000 +0100
***************
*** 723,729 ****
  			 (progn (outline-next-preface) (point)) nil)))
  
  (defun hide-body ()
!   "Hide all of buffer except headings."
    (interactive)
    (hide-region-body (point-min) (point-max)))
  
--- 723,729 ----
  			 (progn (outline-next-preface) (point)) nil)))
  
  (defun hide-body ()
!   "Hide all body lines in buffer, leaving all headings visible."
    (interactive)
    (hide-region-body (point-min) (point-max)))
  
***************
*** 738,744 ****
  	(narrow-to-region start end)
  	(goto-char (point-min))
  	(if (outline-on-heading-p)
! 	    (outline-end-of-heading))
  	(while (not (eobp))
  	  (outline-flag-region (point)
  			       (progn (outline-next-preface) (point)) t)
--- 738,745 ----
  	(narrow-to-region start end)
  	(goto-char (point-min))
  	(if (outline-on-heading-p)
! 	    (outline-end-of-heading)
! 	  (outline-next-preface))
  	(while (not (eobp))
  	  (outline-flag-region (point)
  			       (progn (outline-next-preface) (point)) t)

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel