diff options
| author | Richard M. Stallman | 1993-05-21 17:25:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-21 17:25:50 +0000 |
| commit | 326c43dc29cb7e3bcd0cfc152443bce71b768e16 (patch) | |
| tree | 76aa48eb9b3b03390515fd2f068b65e059d97474 | |
| parent | ab69b2fb30766ce9175344b92e6a5108b5d7244f (diff) | |
| download | emacs-326c43dc29cb7e3bcd0cfc152443bce71b768e16.tar.gz emacs-326c43dc29cb7e3bcd0cfc152443bce71b768e16.zip | |
(outline-minor-mode): Make var permanent local in all buffers.
Give the command a doc string.
| -rw-r--r-- | lisp/textmodes/ooutline.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el index 7867652ea62..c0241102d1c 100644 --- a/lisp/textmodes/ooutline.el +++ b/lisp/textmodes/ooutline.el | |||
| @@ -59,6 +59,8 @@ in the file it applies to.") | |||
| 59 | 59 | ||
| 60 | (defvar outline-minor-mode nil | 60 | (defvar outline-minor-mode nil |
| 61 | "Non-nil if using Outline mode as a minor mode of some other mode.") | 61 | "Non-nil if using Outline mode as a minor mode of some other mode.") |
| 62 | (make-variable-buffer-local 'outline-minor-mode) | ||
| 63 | (put 'outline-minor-mode 'permanent-local t) | ||
| 62 | (setq minor-mode-alist (append minor-mode-alist | 64 | (setq minor-mode-alist (append minor-mode-alist |
| 63 | (list '(outline-minor-mode " Outl")))) | 65 | (list '(outline-minor-mode " Outl")))) |
| 64 | 66 | ||
| @@ -135,6 +137,9 @@ Turning on outline mode calls the value of `text-mode-hook' and then of | |||
| 135 | minor-mode-map-alist))) | 137 | minor-mode-map-alist))) |
| 136 | 138 | ||
| 137 | (defun outline-minor-mode (&optional arg) | 139 | (defun outline-minor-mode (&optional arg) |
| 140 | "Toggle Outline minor mode. | ||
| 141 | With arg, turn Outline minor mode on if arg is positive, off otherwise. | ||
| 142 | See the command `outline-mode' for more information on this mode." | ||
| 138 | (interactive "P") | 143 | (interactive "P") |
| 139 | (setq outline-minor-mode | 144 | (setq outline-minor-mode |
| 140 | (if (null arg) (not outline-minor-mode) | 145 | (if (null arg) (not outline-minor-mode) |