[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv4858

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-goto-location-position): In case of
(:function-name name) go to (point-min) before searching for
function. Remove redundant regexp and regexp-quote function name
before inserting it into a regexp.


--- /project/slime/cvsroot/slime/ChangeLog	2010/10/21 08:07:03	1.2158
+++ /project/slime/cvsroot/slime/ChangeLog	2010/10/23 12:18:28	1.2159
@@ -1,3 +1,10 @@
+2010-10-23  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-goto-location-position): In case of
+	(:function-name name) go to (point-min) before searching for
+	function. Remove redundant regexp and regexp-quote function name
+	before inserting it into a regexp.
+
 2010-10-21  Helmut Eller  <heller at common-lisp.net>
 
 	In ABCL, try harder to find the source of stack frames.
--- /project/slime/cvsroot/slime/slime.el	2010/10/20 11:42:20	1.1348
+++ /project/slime/cvsroot/slime/slime.el	2010/10/23 12:18:28	1.1349
@@ -3275,12 +3275,12 @@
     ((:function-name name)
      (let ((case-fold-search t)
            (name (regexp-quote name)))
-       (when (or 
-              (re-search-forward 
-               (format "\\s *(def\\(\\s_\\|\\sw\\)*\\s +%s\\S_" name) nil t)
-              (re-search-forward 
-               (format "\\s *(def\\(\\s_\\|\\sw\\)*\\s +(*%s\\S_" name) nil t)
-              (re-search-forward 
+       (goto-char (point-min))
+       (when (or
+              (re-search-forward
+               (format "\\s *(def\\(\\s_\\|\\sw\\)*\\s +(*%s\\S_"
+                       (regexp-quote name)) nil t)
+              (re-search-forward
                (format "[( \t]%s\\>\\(\\s \\|$\\)" name) nil t))
          (goto-char (match-beginning 0)))))
     ((:method name specializers &rest qualifiers)