mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 14:40:54 -08:00
Code Issues Projects Releases Wiki Activity

(outline-minor-mode): No longer permanent local.

Browse source
This commit is contained in:
Richard M. Stallman 1996-06-26 18:03:44 +00:00
parent defccde391
commit be166d1726
1 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/textmodes/outline.el
View file

@ -132,7 +132,6 @@ in the file it applies to.")
(defvar outline-minor-mode nil
"Non-nil if using Outline mode as a minor mode of some other mode.")
(make-variable-buffer-local 'outline-minor-mode)
(put 'outline-minor-mode 'permanent-local t)
(or (assq 'outline-minor-mode minor-mode-alist)
(setq minor-mode-alist (append minor-mode-alist
(list '(outline-minor-mode " Outl")))))
@ -251,6 +250,11 @@ See the command `outline-mode' for more information on this mode."
(> (prefix-numeric-value arg) 0)))
(if outline-minor-mode
(progn
(make-local-hook 'change-major-mode-hook)
;; Turn off this mode if we change major modes.
(add-hook 'change-major-mode-hook
'(lambda () (outline-minor-mode -1))
nil t)
(make-local-variable 'line-move-ignore-invisible)
(setq line-move-ignore-invisible t)
;; Cause use of ellipses for invisible text.
@ -308,13 +312,14 @@ Only visible heading lines are considered."
(beginning-of-line)
(or (outline-on-heading-p)
(let (found)
(while (not found)
(setq found
(and (re-search-backward (concat "^\\(" outline-regexp "\\)")
nil t)
(outline-visible))))
found)
(error "before first heading")))
(save-excursion
(while (not found)
(or (re-search-backward (concat "^\\(" outline-regexp "\\)")
nil t)
(error "before first heading"))
(setq found (and (outline-visible) (point)))))
(goto-char found)
found)))
(defun outline-on-heading-p ()
"Return t if point is on a (visible) heading line."