diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-01-19 18:22:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-01-19 18:22:46 +0000 |
| commit | f9e076285747c6253d03445cb659d037d4b0728a (patch) | |
| tree | 566038f469073d5147c3352178795b7ed465bf15 /lisp/foldout.el | |
| parent | c5377356a79cc8796e505ab8fcc2309c5b6ae056 (diff) | |
| download | emacs-f9e076285747c6253d03445cb659d037d4b0728a.tar.gz emacs-f9e076285747c6253d03445cb659d037d4b0728a.tar.bz2 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.
Diffstat (limited to 'lisp/foldout.el')
| -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.") () (define-key outline-mode-map "\C-c\C-z" 'foldout-zoom-subtree) (define-key outline-mode-map "\C-c\C-x" 'foldout-exit-fold) - (define-key outline-minor-mode-map - (concat outline-minor-mode-prefix "\C-z") 'foldout-zoom-subtree) - (define-key outline-minor-mode-map - (concat outline-minor-mode-prefix "\C-x") 'foldout-exit-fold) - + (let ((map (lookup-key outline-minor-mode-map outline-minor-mode-prefix))) + (unless map + (setq map (make-sparse-keymap)) + (define-key outline-minor-mode-map outline-minor-mode-prefix map)) + (define-key map "\C-z" 'foldout-zoom-subtree) + (define-key map "\C-x" 'foldout-exit-fold)) (let* ((modifiers (apply 'concat (mapcar (function (lambda (modifier) |