[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-edit-definition): Don't ask the user for a name
to search if it's missing before running slime-edit-definition-hooks
(slime-open-inspector): pop-to-buffer before inserting anything,
otherwise the point is not moved into the desired position.


--- /project/slime/cvsroot/slime/ChangeLog	2012/11/23 15:32:12	1.2370
+++ /project/slime/cvsroot/slime/ChangeLog	2012/11/23 17:51:15	1.2371
@@ -2,6 +2,8 @@
 
 	* slime.el (slime-edit-definition): Don't ask the user for a name
 	to search if it's missing before running slime-edit-definition-hooks
+	(slime-open-inspector): pop-to-buffer before inserting anything,
+	otherwise the point is not moved into the desired position.
 
 2012-11-13  Francois-Rene Rideau <tunes at google.com>
 
--- /project/slime/cvsroot/slime/slime.el	2012/11/23 15:32:13	1.1423
+++ /project/slime/cvsroot/slime/slime.el	2012/11/23 17:51:16	1.1424
@@ -6553,26 +6553,26 @@
     (setq slime-buffer-connection (slime-current-connection))
     (let ((inhibit-read-only t))
       (erase-buffer)
+      (pop-to-buffer (current-buffer))
       (destructuring-bind (&key id title content) inspected-parts
-        (macrolet ((fontify (face string) 
-                            `(slime-inspector-fontify ,face ,string)))
+        (macrolet ((fontify (face string)
+                     `(slime-inspector-fontify ,face ,string)))
           (slime-propertize-region
-              (list 'slime-part-number id 
+           (list 'slime-part-number id 
                  'mouse-face 'highlight
                  'face 'slime-inspector-value-face)
-            (insert title))
+           (insert title))
           (while (eq (char-before) ?\n)
             (backward-delete-char 1))
           (insert "\n" (fontify label "--------------------") "\n")
           (save-excursion
-            (slime-inspector-insert-content content))
-          (pop-to-buffer (current-buffer))
+           (slime-inspector-insert-content content))
           (when point
             (check-type point cons)
             (ignore-errors
-              (goto-char (point-min))
-              (forward-line (1- (car point)))
-              (move-to-column (cdr point)))))))))
+             (goto-char (point-min))
+             (forward-line (1- (car point)))
+             (move-to-column (cdr point)))))))))
 
 (defvar slime-inspector-limit 500)