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 | d25ea29a7c8dbfaab478b1acc1ce79caf675a297 (patch) | |
| tree | 39341b152ac9f002719afa2c7e4927414a4b2723 /lisp/foldout.el | |
| parent | 40f07dadb2d04a8d6ff7761f3a2557c0e0b4555c (diff) | |
| download | emacs-d25ea29a7c8dbfaab478b1acc1ce79caf675a297.tar.gz | |
(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) |