# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 718526683 0
# Node ID 475a8122e0a5d6d30dc3ecc94a3dfefa8a3c2dc9
# Parent  ebf903dc2d706c3981c92b747d1ddda22b1f23ac
(inferior-scheme-filter-regexp):
Move definition of this var up before first use.
(scheme-buffer): Define variable.

diff -r ebf903dc2d70 -r 475a8122e0a5 lisp/cmuscheme.el
--- 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