[slime-cvs] CVS slime

[mbaringer]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv29576

Modified Files:
	slime.el 
Log Message:
(slime-insert-xrefs): Specify which file the item is in (when that
information is available).


--- /project/slime/cvsroot/slime/slime.el	2006/09/13 14:56:40	1.647
+++ /project/slime/cvsroot/slime/slime.el	2006/09/13 15:18:35	1.648
@@ -7260,11 +7260,17 @@
   (loop for (group . refs) in xrefs do 
         (progn
           (slime-insert-propertized '(face bold) group "\n")
-          (loop for (label . location) in refs do
-                (slime-insert-propertized 
+          (loop
+             for (label . location) in refs 
+             do (slime-insert-propertized 
                  (list 'slime-location location
                        'face 'font-lock-keyword-face)
-                 "  " (slime-one-line-ify label) "\n"))))
+                 "  " (slime-one-line-ify label))
+             do (insert " - " (if (and (eql :location (car location))
+                                       (assoc :file (cdr location)))
+                                  (second (assoc :file (cdr location)))
+                                  "file unknown")
+                          "\n"))))
   ;; Remove the final newline to prevent accidental window-scrolling
   (backward-char 1)
   (delete-char 1))