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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-compile-file): Just prompt for saving the current file instead
of calling `save-some-buffers'. Based on a patch from Brian Downing.

Date: Tue Jun 15 10:01:04 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.312 slime/slime.el:1.313
--- slime/slime.el:1.312	Thu Jun 10 10:34:07 2004
+++ slime/slime.el	Tue Jun 15 10:01:04 2004
@@ -2586,7 +2586,11 @@
   (interactive)
   (unless (eq major-mode 'lisp-mode)
     (error "Only valid in lisp-mode"))
-  (save-some-buffers)
+  (unless buffer-file-name
+    (error "Buffer %s is not associated with a file." (buffer-name)))
+  (when (and (buffer-modified-p)
+             (y-or-n-p (format "Save file %s? " (buffer-file-name))))
+    (save-buffer))
   (let ((lisp-filename (slime-to-lisp-filename (buffer-file-name))))
     (slime-insert-transcript-delimiter
      (format "Compile file %s" lisp-filename))