[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:
	(slime-goto-location-position): Only go to match-beginning if
	search succeeded.


--- /project/slime/cvsroot/slime/slime.el	2009/05/21 09:41:50	1.1177
+++ /project/slime/cvsroot/slime/slime.el	2009/05/24 12:24:04	1.1178
@@ -3331,14 +3331,14 @@
     ((:function-name name)
      (let ((case-fold-search t)
            (name (regexp-quote name)))
-       (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 
-         (format "[( \t]%s\\>\\(\\s \\|$\\)" name) nil t)))
-     (goto-char (match-beginning 0)))
+       (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 
+               (format "[( \t]%s\\>\\(\\s \\|$\\)" name) nil t))
+         (goto-char (match-beginning 0))))
     ((:method name specializers &rest qualifiers)
      (slime-search-method-location name specializers qualifiers))
     ((:source-path source-path start-position)
--- /project/slime/cvsroot/slime/ChangeLog	2009/05/23 16:48:16	1.1770
+++ /project/slime/cvsroot/slime/ChangeLog	2009/05/24 12:24:04	1.1771
@@ -1,3 +1,10 @@
+2009-05-24  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	(slime-goto-location-position): Only go to match-beginning if
+	search succeeded.
+
+	Patch by Madhu.
+
 2009-05-23  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-openmcl.lisp (break-in-sldb): Honor *break-on-signals*.