[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
	* slime.el (slime-postprocess-xref): Show a TAGS entry's hints as
	part of an Xref's dspec for the case of multiple matches.


--- /project/slime/cvsroot/slime/ChangeLog	2010/02/23 20:50:55	1.1996
+++ /project/slime/cvsroot/slime/ChangeLog	2010/02/23 20:54:30	1.1997
@@ -1,5 +1,10 @@
 2010-02-23  Tobias C. Rittweiler <tcr at freebits.de>
 
+	* slime.el (slime-postprocess-xref): Show a TAGS entry's hints as
+	part of an Xref's dspec for the case of multiple matches.
+
+2010-02-23  Tobias C. Rittweiler <tcr at freebits.de>
+
 	* swank-ecl.lisp (preferred-communication-style): Go back to
 	NIL. Some parts (like the compiler and CLOS) of ECL do not seem to
 	be thread-safe yet. Also get rid of non-working implementation of
--- /project/slime/cvsroot/slime/slime.el	2010/02/22 12:40:30	1.1279
+++ /project/slime/cvsroot/slime/slime.el	2010/02/23 20:54:30	1.1280
@@ -3870,11 +3870,13 @@
            (destructure-case (slime-location.position loc)
              ((:tag &rest tags)
               (visit-tags-table tags-file)
-              (mapcar #'(lambda (loc)
-                          (make-slime-xref 
-                           :dspec (slime-xref.dspec original-xref)
-                           :location loc))
-                      (mapcan #'slime-etags-to-locations tags)))))
+              (mapcar #'(lambda (xref)
+                          (let ((old-dspec (slime-xref.dspec original-xref))
+                                (new-dspec (slime-xref.dspec xref)))
+                            (setf (slime-xref.dspec xref) 
+                                  (format "%s: %s" old-dspec new-dspec))
+                            xref))
+                      (mapcan #'slime-etags-definitions tags)))))
           (t 
            (list original-xref))))))