Mercurial > emacs

diff lisp/chistory.el @ 32367:7c181d033dae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use lisp-mode-shared-map instead of shared-lisp-mode-map
author Sam Steingold <sds@gnu.org>
date Tue, 10 Oct 2000 17:27:38 +0000
parents bd4ad2d321a7
children 10c41fa2dafe
line wrap: on
line diff
--- a/lisp/chistory.el	Tue Oct 10 16:42:37 2000 +0000
+++ b/lisp/chistory.el	Tue Oct 10 17:27:38 2000 +0000
@@ -145,10 +145,9 @@
   :group 'chistory)
 
 (defvar command-history-map nil)
-(if command-history-map
-    nil
-  (setq command-history-map
-	(nconc (make-sparse-keymap) shared-lisp-mode-map))
+(unless command-history-map
+  (setq command-history-map (make-sparse-keymap))
+  (set-keymap-parent command-history-map lisp-mode-shared-map)
   (suppress-keymap command-history-map)
   (define-key command-history-map "x" 'command-history-repeat)
   (define-key command-history-map "\n" 'next-line)