Mercurial > emacs
changeset 55273:8362eef794e3
(outline-blank-line): New var.
(outline-next-preface, outline-show-heading)
(outline-end-of-subtree): Use it.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sat, 01 May 2004 03:44:30 +0000 |
| parents | ee2b597412c9 |
| children | 33be1cf542ec |
| files | lisp/outline.el |
| diffstat | 1 files changed, 13 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/outline.el Sat May 01 03:30:24 2004 +0000 +++ b/lisp/outline.el Sat May 01 03:44:30 2004 +0000 @@ -216,6 +216,9 @@ (defvar outline-mode-hook nil "*This hook is run when outline mode starts.") +(defvar outline-blank-line nil + "*Non-nil means to leave unhidden blank line before heading.") + ;;;###autoload (define-derived-mode outline-mode text-mode "Outline" "Set major mode for editing outlines with selective display. @@ -349,7 +352,7 @@ (if (re-search-forward (concat "\n\\(?:" outline-regexp "\\)") nil 'move) (goto-char (match-beginning 0))) - (if (and (bolp) (eobp) (not (bobp))) + (if (and (bolp) (or outline-blank-line (eobp)) (not (bobp))) (forward-char -1))) (defun outline-next-heading () @@ -769,7 +772,11 @@ (defun outline-show-heading () "Show the current heading and move to its end." - (outline-flag-region (- (point) (if (bobp) 0 1)) + (outline-flag-region (- (point) + (if (bobp) 0 + (if (and outline-blank-line + (eq (char-before (1- (point))) ?\n)) + 2 1))) (progn (outline-end-of-heading) (point)) nil)) @@ -837,7 +844,10 @@ (if (bolp) (progn ;; Go to end of line before heading - (forward-char -1))))) + (forward-char -1) + (if (and outline-blank-line (bolp)) + ;; leave blank line before heading + (forward-char -1)))))) (defun show-branches () "Show all subheadings of this heading, but not their bodies."