From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 2 Mar 1994 16:51:02 +0000 (+0000)
Subject: (shell-mode-map): Use copy-keymap.
X-Git-Tag: emacs-19.34~9702
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9376442d171fc386c3ec320a23b9f6ab12cb31e0;p=emacs.git

(shell-mode-map): Use copy-keymap.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index a759aedc8ea..97a86d9de6a 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -230,9 +230,9 @@ Thus, this does not include the shell's current directory.")
 (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)