diff options
| author | Richard M. Stallman | 1994-03-03 23:56:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-03-03 23:56:04 +0000 |
| commit | 8a16a826953c8cdd874a1e7728fdf61bb978f703 (patch) | |
| tree | d79a8f4cb18f56d7f232b6b0f83b664422b2256b | |
| parent | fb9ab28af0a6d555d73ea320f29c66676fb08640 (diff) | |
| download | emacs-8a16a826953c8cdd874a1e7728fdf61bb978f703.tar.gz emacs-8a16a826953c8cdd874a1e7728fdf61bb978f703.zip | |
(inferior-scheme-mode): Removed unnecessary
initialisation of comint-input-sentinel.
| -rw-r--r-- | lisp/cmuscheme.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index e3f63527a99..9f236ad624e 100644 --- a/lisp/cmuscheme.el +++ b/lisp/cmuscheme.el | |||
| @@ -1,9 +1,9 @@ | |||
| 1 | ;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el. | 1 | ;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el. |
| 2 | 2 | ||
| 3 | |||
| 4 | ;; Copyright (C) 1988 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1988 Free Software Foundation, Inc. |
| 5 | 4 | ||
| 6 | ;; Author: Olin Shivers <olin.shivers@cs.cmu.edu> | 5 | ;; Author: Olin Shivers <olin.shivers@cs.cmu.edu> |
| 6 | ;; Maintainer: FSF | ||
| 7 | ;; Keywords: processes, lisp | 7 | ;; Keywords: processes, lisp |
| 8 | 8 | ||
| 9 | ;; This file is part of GNU Emacs. | 9 | ;; This file is part of GNU Emacs. |
| @@ -187,7 +187,6 @@ to continue it." | |||
| 187 | (setq mode-line-process '(": %s")) | 187 | (setq mode-line-process '(": %s")) |
| 188 | (use-local-map inferior-scheme-mode-map) | 188 | (use-local-map inferior-scheme-mode-map) |
| 189 | (setq comint-input-filter (function scheme-input-filter)) | 189 | (setq comint-input-filter (function scheme-input-filter)) |
| 190 | (setq comint-input-sentinel (function ignore)) | ||
| 191 | (setq comint-get-old-input (function scheme-get-old-input)) | 190 | (setq comint-get-old-input (function scheme-get-old-input)) |
| 192 | (run-hooks 'inferior-scheme-mode-hook)) | 191 | (run-hooks 'inferior-scheme-mode-hook)) |
| 193 | 192 | ||