[slime-cvs] CVS slime

[mbaringer]

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

Modified Files:
	swank.lisp 
Log Message:


--- /project/slime/cvsroot/slime/swank.lisp	2007/04/08 22:56:18	1.473
+++ /project/slime/cvsroot/slime/swank.lisp	2007/04/08 23:07:53	1.474
@@ -4975,22 +4975,7 @@
                       " "
                       (:action "[jump to source]"
                                , (let ((symbol symbol))
-                                   (lambda ()
-                                     ;; it would be nice to be a
-                                     ;; little smarter here and not
-                                     ;; convert the symbol to a string
-                                     ;; and have slime-edit-definition
-                                     ;; return to the same symbol
-                                     ;; again. however we already have
-                                     ;; this machinery in place and
-                                     ;; not using it would require
-                                     ;; updating this code whenever
-                                     ;; the find-definitions code
-                                     ;; changes.
-                                     (eval-in-emacs `(progn
-                                                       (slime-edit-definition
-                                                        ,(let ((*package* (find-package :common-lisp))) (format nil "~S" symbol)))
-                                                       t)))))
+                                   (lambda () (ed-in-emacs symbol))))
                       (:newline)
                       )))))))))