changeset 1367:475a8122e0a5

(inferior-scheme-filter-regexp): Move definition of this var up before first use. (scheme-buffer): Define variable.

--- a/lisp/cmuscheme.el	Thu Oct 08 06:44:24 1992 +0000
+++ b/lisp/cmuscheme.el	Thu Oct 08 06:44:43 1992 +0000
@@ -136,6 +136,8 @@
 (define-key scheme-mode-map "\C-c\C-l" 'scheme-load-file)
 (define-key scheme-mode-map "\C-c\C-k" 'scheme-compile-file) ;k for "kompile"
 
+(defvar scheme-buffer)
+
 (defun inferior-scheme-mode ()
   "Major mode for interacting with an inferior Scheme process.
 
@@ -187,14 +189,14 @@
   (setq comint-get-old-input (function scheme-get-old-input))
   (run-hooks 'inferior-scheme-mode-hook))
 
+(defvar inferior-scheme-filter-regexp "\\`\\s *\\S ?\\S ?\\s *\\'"
+  "*Input matching this regexp are not saved on the history list.
+Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters.")
+
 (defun scheme-input-filter (str)
   "Don't save anything matching inferior-scheme-filter-regexp"
   (not (string-match inferior-scheme-filter-regexp str)))
 
-(defvar inferior-scheme-filter-regexp "\\`\\s *\\S ?\\S ?\\s *\\'"
-  "*Input matching this regexp are not saved on the history list.
-Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters.")
-
 (defun scheme-get-old-input ()
   "Snarf the sexp ending at point"
   (save-excursion