From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 19 Jan 1999 18:22:46 +0000 (+0000)
Subject: (foldout-inhibit-key-bindings):
X-Git-Tag: emacs-20.4~826
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9e076285747c6253d03445cb659d037d4b0728a;p=emacs.git

(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.
---

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)