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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-goto-location-position): Changed the regexp to require the
function-name to be followed by a non-symbol-constituent character
\S_.  Previously a function-name of "find" will first match
find-if-not if it occurs earlier in the file.  Patch from Bryan
O'Connor.

Date: Sun Jan 30 01:29:15 2005
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.453 slime/slime.el:1.454
--- slime/slime.el:1.453	Thu Jan 27 11:54:42 2005
+++ slime/slime.el	Sun Jan 30 01:29:14 2005
@@ -3936,7 +3936,7 @@
            (name (regexp-quote name)))
        (or 
         (re-search-forward 
-         (format "\\s *(def\\(\\s_\\|\\sw\\)*\\s +%s\\>" name) nil t)
+         (format "\\s *(def\\(\\s_\\|\\sw\\)*\\s +%s\\S_" name) nil t)
         (re-search-forward 
          ;; FIXME: Isn't this far to general?
          (format "[( \t]%s\\>\\(\\s \\|$\\)" name) nil t)))