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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-compile-file): Send the coding system if the buffer local
variable `slime-coding' is bound.

Date: Tue Jul  5 22:32:34 2005
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.511 slime/slime.el:1.512
--- slime/slime.el:1.511	Sun Jul  3 17:49:54 2005
+++ slime/slime.el	Tue Jul  5 22:32:34 2005
@@ -3773,7 +3773,10 @@
     (when slime-display-compilation-output
       (slime-display-output-buffer))
     (slime-eval-async
-     `(swank:compile-file-for-emacs ,lisp-filename ,(if load t nil))
+     `(swank:compile-file-for-emacs 
+       ,lisp-filename ,(if load t nil)
+       ,@(if (local-variable-p 'slime-coding)
+             (list (slime-coding-system-cl-name slime-coding))))
      (slime-compilation-finished-continuation))
     (message "Compiling %s.." lisp-filename)))