diff options
| -rw-r--r-- | lisp/textmodes/ooutline.el | 5 |
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) |