aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1993-08-14 09:08:50 +0000
committerRichard M. Stallman1993-08-14 09:08:50 +0000
commit6e301d2449a38b657cf3f93bbed7c1bd0fc774bf (patch)
tree5e1d1ff62775d038753d6546844202dd297e1221
parent1e068e8fbf5eeec0a26b8471969dc186f55ffcb9 (diff)
downloademacs-6e301d2449a38b657cf3f93bbed7c1bd0fc774bf.tar.gz
emacs-6e301d2449a38b657cf3f93bbed7c1bd0fc774bf.zip
(outline-minor-mode-prefix): New variable.
(outline-minor-mode-map): Use it.
-rw-r--r--lisp/textmodes/ooutline.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el
index 006ab6ecdb3..c0c478cc179 100644
--- a/lisp/textmodes/ooutline.el
+++ b/lisp/textmodes/ooutline.el
@@ -164,13 +164,16 @@ Turning on outline mode calls the value of `text-mode-hook' and then of
164 outline-regexp "\\)")) 164 outline-regexp "\\)"))
165 (run-hooks 'text-mode-hook 'outline-mode-hook)) 165 (run-hooks 'text-mode-hook 'outline-mode-hook))
166 166
167(defvar outline-minor-mode-prefix "\C-c"
168 "*Prefix key to use for Outline commands in Outline minor mode.")
169
167(defvar outline-minor-mode-map nil) 170(defvar outline-minor-mode-map nil)
168(if outline-minor-mode-map 171(if outline-minor-mode-map
169 nil 172 nil
170 (setq outline-minor-mode-map (make-sparse-keymap)) 173 (setq outline-minor-mode-map (make-sparse-keymap))
171 (define-key outline-minor-mode-map [menu-bar] 174 (define-key outline-minor-mode-map [menu-bar]
172 (lookup-key outline-mode-map [menu-bar])) 175 (lookup-key outline-mode-map [menu-bar]))
173 (define-key outline-minor-mode-map "\C-c" 176 (define-key outline-minor-mode-map outline-minor-mode-prefix
174 (lookup-key outline-mode-map "\C-c"))) 177 (lookup-key outline-mode-map "\C-c")))
175 178
176(or (assq 'outline-minor-mode minor-mode-map-alist) 179(or (assq 'outline-minor-mode minor-mode-map-alist)