diff options
| author | Richard M. Stallman | 1999-01-19 18:22:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-01-19 18:22:46 +0000 |
| commit | f9e076285747c6253d03445cb659d037d4b0728a (patch) | |
| tree | 566038f469073d5147c3352178795b7ed465bf15 | |
| parent | c5377356a79cc8796e505ab8fcc2309c5b6ae056 (diff) | |
| download | emacs-f9e076285747c6253d03445cb659d037d4b0728a.tar.gz emacs-f9e076285747c6253d03445cb659d037d4b0728a.zip | |
(foldout-inhibit-key-bindings):
Avoid concatenating onto outline-minor-mode-prefix.
Make a new keymap for that prefix, if it does not already have one.
| -rw-r--r-- | lisp/foldout.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/foldout.el b/lisp/foldout.el index cf337e7e7e5..4a2aa2b06a5 100644 --- a/lisp/foldout.el +++ b/lisp/foldout.el | |||
| @@ -531,11 +531,12 @@ Valid modifiers are shift, control, meta, alt, hyper and super.") | |||
| 531 | () | 531 | () |
| 532 | (define-key outline-mode-map "\C-c\C-z" 'foldout-zoom-subtree) | 532 | (define-key outline-mode-map "\C-c\C-z" 'foldout-zoom-subtree) |
| 533 | (define-key outline-mode-map "\C-c\C-x" 'foldout-exit-fold) | 533 | (define-key outline-mode-map "\C-c\C-x" 'foldout-exit-fold) |
| 534 | (define-key outline-minor-mode-map | 534 | (let ((map (lookup-key outline-minor-mode-map outline-minor-mode-prefix))) |
| 535 | (concat outline-minor-mode-prefix "\C-z") 'foldout-zoom-subtree) | 535 | (unless map |
| 536 | (define-key outline-minor-mode-map | 536 | (setq map (make-sparse-keymap)) |
| 537 | (concat outline-minor-mode-prefix "\C-x") 'foldout-exit-fold) | 537 | (define-key outline-minor-mode-map outline-minor-mode-prefix map)) |
| 538 | 538 | (define-key map "\C-z" 'foldout-zoom-subtree) | |
| 539 | (define-key map "\C-x" 'foldout-exit-fold)) | ||
| 539 | (let* ((modifiers (apply 'concat | 540 | (let* ((modifiers (apply 'concat |
| 540 | (mapcar (function | 541 | (mapcar (function |
| 541 | (lambda (modifier) | 542 | (lambda (modifier) |