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

[Matthias Koeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-load-file): Change the default to be the buffer
file name with extension.  This is more convenient for files like
.asd files that do not have the default source file extension.
(slime-save-some-lisp-buffers, slime-update-modeline-package):
Handle all files with major mode in slime-lisp-modes, not just
lisp-mode.

Date: Wed Dec  7 14:15:10 2005
Author: mkoeppe

Index: slime/slime.el
diff -u slime/slime.el:1.567 slime/slime.el:1.568
--- slime/slime.el:1.567	Mon Dec  5 21:19:40 2005
+++ slime/slime.el	Wed Dec  7 14:15:10 2005
@@ -484,7 +484,7 @@
 (defun slime-update-modeline-package ()
   (ignore-errors
     (when (and slime-update-modeline-package
-               (eq major-mode 'lisp-mode)
+               (memq major-mode slime-lisp-modes)
                slime-mode)
       (let ((package (slime-current-package)))
         (when package
@@ -3979,7 +3979,7 @@
 (defun slime-save-some-lisp-buffers ()
   (if slime-repl-only-save-lisp-buffers
       (save-some-buffers nil (lambda ()
-                               (and (eq major-mode 'lisp-mode)
+                               (and (memq major-mode slime-lisp-modes)
                                     (not (null buffer-file-name)))))
       (save-some-buffers)))
   
@@ -6523,9 +6523,8 @@
   (interactive (list 
 		(read-file-name "Load file: " nil nil
 				nil (if (buffer-file-name)
-                                        (file-name-sans-extension
-                                         (file-name-nondirectory 
-                                          (buffer-file-name)))))))
+                                        (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))))