[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-inspect-presentation-at-mouse): Use swank:inspect-presentation here.


--- /project/slime/cvsroot/slime/slime.el	2007/08/23 16:20:51	1.803
+++ /project/slime/cvsroot/slime/slime.el	2007/08/23 22:50:06	1.804
@@ -3494,9 +3494,8 @@
     (let ((reset-p 
            (with-current-buffer buffer
              (not (eq major-mode 'slime-inspector-mode)))))
-      (slime-inspect (slime-presentation-expression presentation)
-                     :no-reset (not reset-p)
-                     :eval t :dwim-mode nil))))
+      (slime-eval-async `(swank:inspect-presentation ',(slime-presentation-id presentation) ,reset-p)
+                        'slime-open-inspector))))
 
 (defun slime-copy-presentation-at-mouse (event)
   (interactive "e")