# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 916770166 0
# Node ID cfb980353cb291149824916e456d97ef73d3125d
# Parent  73346cd4a77e62fa37884171db64a17c545a1701
(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 -r 73346cd4a77e -r cfb980353cb2 lisp/foldout.el
--- 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)