From f9e076285747c6253d03445cb659d037d4b0728a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 19 Jan 1999 18:22:46 +0000 Subject: [PATCH] (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. --- lisp/foldout.el | 11 ++++++----- 1 file 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) -- 2.39.2