[Emacs-diffs] Changes to emacs/lisp/cmuscheme.el

[Pavel Janík]

Index: emacs/lisp/cmuscheme.el
diff -c emacs/lisp/cmuscheme.el:1.32 emacs/lisp/cmuscheme.el:1.33
*** emacs/lisp/cmuscheme.el:1.32        Sun Jul 15 12:15:34 2001
--- emacs/lisp/cmuscheme.el     Thu Dec 20 13:32:43 2001
***************
*** 352,358 ****
  (defun scheme-load-file (file-name)
    "Load a Scheme file FILE-NAME into the inferior Scheme process."
    (interactive (comint-get-source "Load Scheme file: " 
scheme-prev-l/c-dir/file
!                                 scheme-source-modes t)) ; T because LOAD
                                                            ; needs an exact 
name
    (comint-check-source file-name) ; Check to see if buffer needs saved.
    (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
--- 352,358 ----
  (defun scheme-load-file (file-name)
    "Load a Scheme file FILE-NAME into the inferior Scheme process."
    (interactive (comint-get-source "Load Scheme file: " 
scheme-prev-l/c-dir/file
!                                 scheme-source-modes t)) ; t because `load'
                                                            ; needs an exact 
name
    (comint-check-source file-name) ; Check to see if buffer needs saved.
    (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
***************
*** 366,372 ****
    (interactive (comint-get-source "Compile Scheme file: "
                                  scheme-prev-l/c-dir/file
                                  scheme-source-modes
!                                 nil)) ; NIL because COMPILE doesn't
                                          ; need an exact name.
    (comint-check-source file-name) ; Check to see if buffer needs saved.
    (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
--- 366,372 ----
    (interactive (comint-get-source "Compile Scheme file: "
                                  scheme-prev-l/c-dir/file
                                  scheme-source-modes
!                                 nil)) ; nil because COMPILE doesn't
                                          ; need an exact name.
    (comint-check-source file-name) ; Check to see if buffer needs saved.
    (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)