[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-inspector-operate-on-point): Don't save the
point when inspecting a different object.


--- /project/slime/cvsroot/slime/ChangeLog	2011/02/08 18:18:40	1.2177
+++ /project/slime/cvsroot/slime/ChangeLog	2011/02/13 05:30:45	1.2178
@@ -1,3 +1,8 @@
+2011-02-13  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-inspector-operate-on-point): Don't save the
+	point when inspecting a different object.
+
 2011-02-08  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-choose-overlay-region): Don't use `list' instead
--- /project/slime/cvsroot/slime/slime.el	2011/02/08 18:18:40	1.1356
+++ /project/slime/cvsroot/slime/slime.el	2011/02/13 05:30:45	1.1357
@@ -6538,16 +6538,19 @@
         (opener (lexical-let ((point (slime-inspector-position)))
                   (lambda (parts)
                     (when parts
-                      (slime-open-inspector parts point))))))
+                      (slime-open-inspector parts point)))))
+        (new-opener (lambda (parts)
+                      (when parts
+                        (slime-open-inspector parts)))))
     (cond (part-number
            (slime-eval-async `(swank:inspect-nth-part ,part-number)
-                             opener)
+                             new-opener)
            (push (slime-inspector-position) slime-inspector-mark-stack))
           (range-button
            (slime-inspector-fetch-more range-button))
           (action-number 
            (slime-eval-async `(swank::inspector-call-nth-action ,action-number)
-                             opener))
+             opener))
           (t (error "No object at point")))))
 
 (defun slime-inspector-operate-on-click (event)