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

[Alan Ruttenberg]

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

Modified Files:
	slime.el 
Log Message:
* slime.el 1.156
 slime-goto-source-location: Sometimes source information is recorded but it isn't a standard "def"
in that case, don't error out, just look for the most likely place for the definition. 

Date: Fri Dec 19 01:05:16 2003
Author: aruttenberg

Index: slime/slime.el
diff -u slime/slime.el:1.155 slime/slime.el:1.156
--- slime/slime.el:1.155	Thu Dec 18 01:55:09 2003
+++ slime/slime.el	Fri Dec 19 01:05:16 2003
@@ -2412,9 +2412,12 @@
        ((:function-name name)
         (let ((case-fold-search t)
               (name (regexp-quote name)))
-          (re-search-forward 
-           (format "^(\\(def.*[ \n\t(]\\([-.%%$&a-z0-9]+:?:\\)?\\)?%s[ \t)]" 
-                   name)))
+          (or 
+           (re-search-forward 
+            (format "^(\\(def.*[ \n\t(]\\([-.%%$&a-z0-9]+:?:\\)?\\)?%s[ \t)]" 
+                    name) nil t)
+           (re-search-forward 
+            (format "\\s %s" name) nil t)))
         (goto-char (match-beginning 0)))
        ((:source-path source-path start-position)
         (cond (start-position