[slime-cvs] CVS update: slime/slime.el

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv16030

Modified Files:
	slime.el 
Log Message:
(slime-load-file): Handle (buffer-file-name) being nil.

Date: Wed Nov 24 04:52:53 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.427 slime/slime.el:1.428
--- slime/slime.el:1.427	Wed Nov 24 04:51:32 2004
+++ slime/slime.el	Wed Nov 24 04:52:52 2004
@@ -5160,9 +5160,10 @@
   "Load the Lisp file FILENAME."
   (interactive (list 
 		(read-file-name "Load file: " nil nil
-				nil (file-name-sans-extension
-				     (file-name-nondirectory 
-				      (buffer-file-name))))))
+				nil (if (buffer-file-name)
+                                        (file-name-sans-extension
+                                         (file-name-nondirectory 
+                                          (buffer-file-name)))))))
   (let ((lisp-filename (slime-to-lisp-filename (expand-file-name filename))))
     (slime-eval-with-transcript `(swank:load-file ,lisp-filename))))