/[emacs]/emacs/lisp/progmodes/inf-lisp.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/inf-lisp.el

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

revision 1.30 by sds, Tue Oct 10 17:27:38 2000 UTC revision 1.31 by pj, Thu Dec 20 18:15:41 2001 UTC
# Line 436  Used by these commands to determine defa Line 436  Used by these commands to determine defa
436  (defun lisp-load-file (file-name)  (defun lisp-load-file (file-name)
437    "Load a Lisp file into the inferior Lisp process."    "Load a Lisp file into the inferior Lisp process."
438    (interactive (comint-get-source "Load Lisp file: " lisp-prev-l/c-dir/file    (interactive (comint-get-source "Load Lisp file: " lisp-prev-l/c-dir/file
439                                    lisp-source-modes nil)) ; NIL because LOAD                                    lisp-source-modes nil)) ; nil because LOAD
440                                          ; doesn't need an exact name                                          ; doesn't need an exact name
441    (comint-check-source file-name) ; Check to see if buffer needs saved.    (comint-check-source file-name) ; Check to see if buffer needs saved.
442    (setq lisp-prev-l/c-dir/file (cons (file-name-directory    file-name)    (setq lisp-prev-l/c-dir/file (cons (file-name-directory    file-name)
# Line 449  Used by these commands to determine defa Line 449  Used by these commands to determine defa
449  (defun lisp-compile-file (file-name)  (defun lisp-compile-file (file-name)
450    "Compile a Lisp file in the inferior Lisp process."    "Compile a Lisp file in the inferior Lisp process."
451    (interactive (comint-get-source "Compile Lisp file: " lisp-prev-l/c-dir/file    (interactive (comint-get-source "Compile Lisp file: " lisp-prev-l/c-dir/file
452                                    lisp-source-modes nil)) ; NIL = don't need                                    lisp-source-modes nil)) ; nil = don't need
453                                          ; suffix .lisp                                          ; suffix .lisp
454    (comint-check-source file-name) ; Check to see if buffer needs saved.    (comint-check-source file-name) ; Check to see if buffer needs saved.
455    (setq lisp-prev-l/c-dir/file (cons (file-name-directory    file-name)    (setq lisp-prev-l/c-dir/file (cons (file-name-directory    file-name)

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

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