From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 11 Nov 1993 10:05:51 +0000 (+0000)
Subject: Comment change.
X-Git-Tag: emacs-19.34~10868
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d55d5ec215842cdce72395efef01a1a6386a5d4e;p=emacs.git

Comment change.
---

diff --git a/lisp/comint.el b/lisp/comint.el
index d1f025afaaa..6ac896fbbc1 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2041,17 +2041,21 @@ Typing SPC flushes the help buffer."
 ;;; comint-mode will take care of it. The following example, from shell.el,
 ;;; is typical:
 ;;; 
+;;; (defvar shell-mode-map '())
+;;; (cond ((not shell-mode-map)
+;;;        (setq shell-mode-map (full-copy-sparse-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)
+;;;        (define-key shell-mode-map "\M-?"
+;;;          'comint-dynamic-list-filename-completions)))
+;;;
 ;;; (defun shell-mode ()
 ;;;   (interactive)
 ;;;   (comint-mode)
 ;;;   (setq comint-prompt-regexp shell-prompt-pattern)
 ;;;   (setq major-mode 'shell-mode)
 ;;;   (setq mode-name "Shell")
-;;;   (cond ((not shell-mode-map)
-;;; 	     (setq shell-mode-map (full-copy-sparse-keymap comint-mode-map))
-;;; 	     (define-key shell-mode-map "\M-\t" 'comint-dynamic-complete)
-;;; 	     (define-key shell-mode-map "\M-?"
-;;;                      'comint-dynamic-list-filename-completions)))
 ;;;   (use-local-map shell-mode-map)
 ;;;   (make-local-variable 'shell-directory-stack)
 ;;;   (setq shell-directory-stack nil)