Mercurial > emacs
changeset 24123:cfb980353cb2
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 19 Jan 1999 18:22:46 +0000 |
| parents | 73346cd4a77e |
| children | 21b9595acf22 |
| files | lisp/foldout.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/foldout.el Tue Jan 19 17:55:16 1999 +0000 +++ b/lisp/foldout.el Tue Jan 19 18:22:46 1999 +0000 @@ -531,11 +531,12 @@ () (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)