(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 cf337e7e7e5eb634091443139aaa27f0689d2356..4a2aa2b06a5775f30c0b55722a99ec45a3cc4ef2 100644 (file)
--- 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)