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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-repl-current-input): Don't remove the final newline only if we
are in reading state.
(slime-goto-source-location): Regex-quote the function name and
handle package prefixes.  Reported by Alan Ruttenberg.
Date: Fri Dec 12 06:11:37 2003
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.143 slime/slime.el:1.144
--- slime/slime.el:1.143	Thu Dec 11 20:51:29 2003
+++ slime/slime.el	Fri Dec 12 06:11:37 2003
@@ -1642,10 +1642,10 @@
   (buffer-substring-no-properties slime-repl-input-start-mark
                                   (save-excursion
                                     (goto-char slime-repl-input-end-mark)
-                                    (when (eq (char-before) ?\n)
+                                    (when (and (eq (char-before) ?\n)
+                                               (not (slime-reading-p)))
                                       (backward-char 1))
                                     (point))))
-     
 
 (defun slime-repl-add-to-input-history (string)
   (when (and (plusp (length string))
@@ -2299,8 +2299,10 @@
           (slime-forward-sexp)
           (beginning-of-sexp)))
        ((:function-name name)
-        (let ((case-fold-search t))
-          (re-search-forward (format "^(\\(def.*[ \n\t(]\\)?%s[ \t)]" name)))
+        (let ((case-fold-search t)
+              (name (regexp-quote name)))
+          (re-search-forward 
+           (format "^(\\(def.*[ \n\t(]\\([a-z]+:\\)?\\)?%s[ \t)]" name)))
         (goto-char (match-beginning 0)))
        ((:source-path source-path start-position)
         (cond (start-position