[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-open-inspector): Use forward-line instead of
goto-line, since it doesn't result in  "Mark set" message.
(slime-inspector-buffer): Enable slime-mode after enabling
slime-inspector-mode, otherwise the former will be disabled by the
latter.


--- /project/slime/cvsroot/slime/ChangeLog	2010/04/20 09:48:19	1.2072
+++ /project/slime/cvsroot/slime/ChangeLog	2010/04/21 08:54:10	1.2073
@@ -1,3 +1,11 @@
+2010-04-21  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-open-inspector): Use forward-line instead of
+	goto-line, since it doesn't result in  "Mark set" message.
+	(slime-inspector-buffer): Enable slime-mode after enabling
+	slime-inspector-mode, otherwise the former will be disabled by the
+	latter.
+
 2010-04-20  Tobias C. Rittweiler <tcr at freebits.de>
 
 	* swank-sbcl.lisp (condition-timed-wait): New helper. Use
--- /project/slime/cvsroot/slime/slime.el	2010/04/20 09:31:10	1.1304
+++ /project/slime/cvsroot/slime/slime.el	2010/04/21 08:54:11	1.1305
@@ -6506,9 +6506,9 @@
   (or (get-buffer "*Slime Inspector*")
       (with-current-buffer (get-buffer-create "*Slime Inspector*")
 	(setq slime-inspector-mark-stack '())
-        (buffer-disable-undo)
-        (slime-mode t)
 	(slime-inspector-mode)
+        (slime-mode t)
+        (buffer-disable-undo)
         (make-local-variable 'slime-saved-window-config)
         (setq slime-saved-window-config (current-window-configuration))
 	(current-buffer))))
@@ -6544,8 +6544,9 @@
           (pop-to-buffer (current-buffer))
           (when point
             (check-type point cons)
-            (ignore-errors 
-              (goto-line (car point))
+            (ignore-errors
+              (goto-char (point-min))
+              (forward-line (1- (car point)))
               (move-to-column (cdr point)))))))))
 
 (defvar slime-inspector-limit 500)