[slime-cvs] CVS update: slime/swank-sbcl.lisp

[Luke Gorrie]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(function-source-location): For definitions compiled in Emacs buffers,
include the :emacs-string as a :snippet hint for search-based M-.
lookup.

Date: Mon Mar 21 01:38:43 2005
Author: lgorrie

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.124 slime/swank-sbcl.lisp:1.125
--- slime/swank-sbcl.lisp:1.124	Fri Mar 18 23:23:36 2005
+++ slime/swank-sbcl.lisp	Mon Mar 21 01:38:43 2005
@@ -462,7 +462,8 @@
                                    form-path emacs-string))
                                 character-offset)))
                    (make-location `(:buffer ,(getf info :emacs-buffer))
-                                  `(:position ,(+ pos emacs-position)))))))
+                                  `(:position ,(+ pos emacs-position))
+                                  `(:snippet ,(getf info :emacs-string)))))))
             (t
              (let* ((filename (namestring (truename pathname)))
                     (pos (if form-path