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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-lisp-modes): New variable to make C-c C-k customizable and
usable in scheme-mode.
(slime-compile-file): Use it.

Date: Wed Dec 15 23:32:50 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.440 slime/slime.el:1.441
--- slime/slime.el:1.440	Wed Dec 15 08:11:47 2004
+++ slime/slime.el	Wed Dec 15 23:32:50 2004
@@ -3283,12 +3283,14 @@
   (interactive)
   (slime-compile-file t))
 
+(defvar slime-lisp-modes '(lisp-mode))
+
 (defun slime-compile-file (&optional load)
   "Compile current buffer's file and highlight resulting compiler notes.
 
 See `slime-compile-and-load-file' for further details."
   (interactive)
-  (unless (eq major-mode 'lisp-mode)
+  (unless (memq major-mode slime-lisp-modes)
     (error "Only valid in lisp-mode"))
   (unless buffer-file-name
     (error "Buffer %s is not associated with a file." (buffer-name)))