# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 762627062 0
# Node ID c1dde384f0dd4f83711fc0a24f79010d524b2f49
# Parent  a093cbbdf14dc121078689fe3a56c468057bc982
(shell-mode-map): Use copy-keymap.

diff -r a093cbbdf14d -r c1dde384f0dd lisp/shell.el
--- a/lisp/shell.el	Wed Mar 02 16:45:37 1994 +0000
+++ b/lisp/shell.el	Wed Mar 02 16:51:02 1994 +0000
@@ -230,9 +230,9 @@
 (defvar shell-dirstack-query "dirs"
   "Command used by `shell-resync-dir' to query the shell.")
 
-(defvar shell-mode-map '())
+(defvar shell-mode-map nil)
 (cond ((not shell-mode-map)
-       (setq shell-mode-map (full-copy-sparse-keymap comint-mode-map))
+       (setq shell-mode-map (copy-keymap comint-mode-map))
        (define-key shell-mode-map "\C-c\C-f" 'shell-forward-command)
        (define-key shell-mode-map "\C-c\C-b" 'shell-backward-command)
        (define-key shell-mode-map "\t" 'comint-dynamic-complete)