/[emacs]/emacs/lisp/cmuscheme.el
ViewVC logotype

Diff of /emacs/lisp/cmuscheme.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by pj, Sun Jul 15 16:15:34 2001 UTC revision 1.33 by pj, Thu Dec 20 18:32:43 2001 UTC
# Line 352  next one.") Line 352  next one.")
352  (defun scheme-load-file (file-name)  (defun scheme-load-file (file-name)
353    "Load a Scheme file FILE-NAME into the inferior Scheme process."    "Load a Scheme file FILE-NAME into the inferior Scheme process."
354    (interactive (comint-get-source "Load Scheme file: " scheme-prev-l/c-dir/file    (interactive (comint-get-source "Load Scheme file: " scheme-prev-l/c-dir/file
355                                    scheme-source-modes t)) ; T because LOAD                                    scheme-source-modes t)) ; t because `load'
356                                                            ; needs an exact name                                                            ; needs an exact name
357    (comint-check-source file-name) ; Check to see if buffer needs saved.    (comint-check-source file-name) ; Check to see if buffer needs saved.
358    (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)    (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
# Line 366  next one.") Line 366  next one.")
366    (interactive (comint-get-source "Compile Scheme file: "    (interactive (comint-get-source "Compile Scheme file: "
367                                    scheme-prev-l/c-dir/file                                    scheme-prev-l/c-dir/file
368                                    scheme-source-modes                                    scheme-source-modes
369                                    nil)) ; NIL because COMPILE doesn't                                    nil)) ; nil because COMPILE doesn't
370                                          ; need an exact name.                                          ; need an exact name.
371    (comint-check-source file-name) ; Check to see if buffer needs saved.    (comint-check-source file-name) ; Check to see if buffer needs saved.
372    (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)    (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26