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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-goto-location-buffer): Put "SLIME Source Form" buffer into Lisp mode.

(slime-input-complete-p): Skip over strings too.
Date: Tue Jul 26 23:36:06 2005
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.513 slime/slime.el:1.514
--- slime/slime.el:1.513	Wed Jul  6 18:27:00 2005
+++ slime/slime.el	Tue Jul 26 23:36:05 2005
@@ -545,7 +545,7 @@
   "Return t if the region from START to END contains a complete sexp."
   (save-excursion
     (goto-char start)
-    (cond ((looking-at "\\s *['`#]?(")
+    (cond ((looking-at "\\s *['`#]?[(\"]")
            (ignore-errors
              (save-restriction
                (narrow-to-region start end)
@@ -3753,6 +3753,9 @@
 
 (defvar slime-lisp-modes '(lisp-mode))
 
+(defvar slime-coding nil
+  "*The coding to use for `slime-compile-file'. Only used if buffer local.")
+
 (defun slime-compile-file (&optional load)
   "Compile current buffer's file and highlight resulting compiler notes.
 
@@ -4384,6 +4387,7 @@
     ((:source-form string)
      (set-buffer (get-buffer-create "*SLIME Source Form*"))
      (erase-buffer)
+     (lisp-mode)
      (insert string)
      (goto-char (point-min)))))