From d55d5ec215842cdce72395efef01a1a6386a5d4e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 11 Nov 1993 10:05:51 +0000 Subject: [PATCH] Comment change. --- lisp/comint.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) 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) -- 2.39.5