[slime-cvs] CVS slime

[alendvai]

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

Modified Files:
	slime.el 
Log Message:
Added (cons row col) addressing to slime-open-inspector, use in slime-inspector-operate-on-point


--- /project/slime/cvsroot/slime/slime.el	2006/12/19 10:09:56	1.710
+++ /project/slime/cvsroot/slime/slime.el	2006/12/19 10:11:57	1.711
@@ -9136,7 +9136,11 @@
             (mapc #'slime-inspector-insert-ispec content))
           (pop-to-buffer (current-buffer))
           (when point 
-            (goto-char (min (point-max) point))))))))
+            (if (consp point)
+                (progn
+                  (goto-line (min (count-lines 1 (point-max)) (car point)))
+                  (move-to-column (cdr point)))
+                (goto-char (min (point-max) point)))))))))
 
 (defun slime-inspector-insert-ispec (ispec)
   (if (stringp ispec)
@@ -9166,7 +9170,7 @@
            (push (point) slime-inspector-mark-stack))
           (action-number 
            (slime-eval-async `(swank::inspector-call-nth-action ,action-number)
-                             (lexical-let ((point (point)))
+                             (lexical-let ((point (cons (line-number) (current-column))))
                                (lambda (parts)
                                  (slime-open-inspector parts :point point))))))))
 
@@ -9281,7 +9285,10 @@
 
 (defun slime-inspector-reinspect ()
   (interactive)
-  (slime-eval-async `(swank:inspector-reinspect) 'slime-open-inspector))
+  (slime-eval-async `(swank:inspector-reinspect)
+                    (lexical-let ((point (cons (line-number) (current-column))))
+                      (lambda (parts)
+                        (slime-open-inspector parts :point point)))))
 
 (slime-define-keys slime-inspector-mode-map
   ([return] 'slime-inspector-operate-on-point)