Mercurial > emacs

comparison lisp/cmuscheme.el @ 6188:599aa761e6be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(inferior-scheme-mode): Removed unnecessary initialisation of comint-input-sentinel.
author Richard M. Stallman <rms@gnu.org>
date Thu, 03 Mar 1994 23:56:04 +0000
parents a093cbbdf14d
children d3334311fc58
comparison
equal deleted inserted replaced
6187:280d4a97da69 6188:599aa761e6be
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.
10 10
11 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
185 (setq major-mode 'inferior-scheme-mode) 185 (setq major-mode 'inferior-scheme-mode)
186 (setq mode-name "Inferior Scheme") 186 (setq mode-name "Inferior Scheme")
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
194 (defvar inferior-scheme-filter-regexp "\\`\\s *\\S ?\\S ?\\s *\\'" 193 (defvar inferior-scheme-filter-regexp "\\`\\s *\\S ?\\S ?\\s *\\'"
195 "*Input matching this regexp are not saved on the history list. 194 "*Input matching this regexp are not saved on the history list.