Mercurial > emacs
comparison lisp/textmodes/ooutline.el @ 2934:7c4226d1ea65
(outline-minor-mode): Make var permanent local in all buffers.
Give the command a doc string.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 21 May 1993 17:25:50 +0000 |
| parents | 443ebd8f59d2 |
| children | 898d7a33c038 |
comparison
equal
deleted
inserted
replaced
| 2933:420dfaaacfc5 | 2934:7c4226d1ea65 |
|---|---|
| 57 (define-key outline-mode-map "\C-c\C-f" 'outline-forward-same-level) | 57 (define-key outline-mode-map "\C-c\C-f" 'outline-forward-same-level) |
| 58 (define-key outline-mode-map "\C-c\C-b" 'outline-backward-same-level)) | 58 (define-key outline-mode-map "\C-c\C-b" 'outline-backward-same-level)) |
| 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 |
| 65 ;;;###autoload | 67 ;;;###autoload |
| 66 (defun outline-mode () | 68 (defun outline-mode () |
| 133 (setq minor-mode-map-alist | 135 (setq minor-mode-map-alist |
| 134 (cons (cons 'outline-minor-mode outline-minor-mode-map) | 136 (cons (cons 'outline-minor-mode outline-minor-mode-map) |
| 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) |
| 141 (> (prefix-numeric-value arg) 0))) | 146 (> (prefix-numeric-value arg) 0))) |
| 142 (if outline-minor-mode | 147 (if outline-minor-mode |