Mercurial > emacs
diff lisp/textmodes/outline.el @ 49599:5ade352e8d1c
Trailing whitespace deleted.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 04 Feb 2003 13:30:45 +0000 |
parents | 2cbcb30abe6f |
children | d32039b77774 |
line wrap: on
line diff
--- a/lisp/textmodes/outline.el Tue Feb 04 13:24:35 2003 +0000 +++ b/lisp/textmodes/outline.el Tue Feb 04 13:30:45 2003 +0000 @@ -139,7 +139,7 @@ (cons '(--- "---") (cdr x)))) outline-mode-menu-bar-map)))))) map)) - + (defvar outline-mode-map (let ((map (make-sparse-keymap))) @@ -401,7 +401,7 @@ (save-match-data (outline-up-heading 1 t) (match-string 0)))))) - + (unless (rassoc level outline-heading-alist) (push (cons head level) outline-heading-alist)) @@ -446,7 +446,7 @@ (unless (rassoc level outline-heading-alist) (push (cons head level) outline-heading-alist)) - + (replace-match down-head nil t) (when children (outline-map-tree 'outline-demote level)))) @@ -533,7 +533,7 @@ ;; reveal do the rest, by simply doing: ;; (remove-overlays (overlay-start o) (overlay-end o) ;; 'invisible 'outline) - ;; + ;; ;; That works fine as long as everything is in sync, but if the ;; structure of the document is changed while revealing parts of it, ;; the resulting behavior can be ugly. I.e. we need to make