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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-goto-source-location): Fixes when finding definition by regexp:
open the right file (was missed), and tweaked regexp to match more
'def' forms - especially `defmacro-mundanely' (hyphen wasn't allowed
before).

Date: Sun Nov 23 22:19:33 2003
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.105 slime/slime.el:1.106
--- slime/slime.el:1.105	Sun Nov 23 09:10:59 2003
+++ slime/slime.el	Sun Nov 23 22:19:33 2003
@@ -2012,8 +2012,10 @@
       filename position info source-path path source-form function-name)
      (cond (function-name
             (ignore-errors
+              (when filename
+                (set-buffer (find-file-noselect filename)))
               (goto-char (point-min))
-              (re-search-forward (format "^(def\\w+\\s +%s\\s +"
+              (re-search-forward (format "^(def\\S-+\\s +%s\\s +"
                                          function-name))
               (beginning-of-line)))
            ((and (eq filename :lisp) (not buffername))