[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-list-threads): Update information before
setting the mode, otherwise it messes up current connection.
* doc/slime.texi: fix typo.


--- /project/slime/cvsroot/slime/ChangeLog	2009/10/19 10:01:50	1.1875
+++ /project/slime/cvsroot/slime/ChangeLog	2009/10/19 23:13:27	1.1876
@@ -1,3 +1,10 @@
+2009-10-19  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-list-threads): Update information before
+	setting the mode, otherwise it messes up current connection.
+
+	* doc/slime.texi: fix typo.
+
 2009-10-19  Tobias C. Rittweiler <tcr at freebits.de>
 
 	* swank.lisp (without-printing-errors): New macro.
--- /project/slime/cvsroot/slime/slime.el	2009/10/15 16:40:38	1.1228
+++ /project/slime/cvsroot/slime/slime.el	2009/10/19 23:13:27	1.1229
@@ -1060,18 +1060,17 @@
      (with-current-buffer standard-output
        (prog1 (progn , at body)
          (assert (eq (current-buffer) standard-output))
-         (setq buffer-read-only t)
          (slime-init-popup-buffer vars%)
+         (setq buffer-read-only t)
          (set-window-point (slime-display-popup-buffer ,(or select 'nil))
-                           (point))
-         (current-buffer)))))
+                           (point))))))
 
 (put 'slime-with-popup-buffer 'lisp-indent-function 1)
 
 (defun slime-make-popup-buffer (name buffer-vars)
   "Return a temporary buffer called NAME.
 The buffer also uses the minor-mode `slime-popup-buffer-mode'."
-  (with-current-buffer (or (get-buffer name) (get-buffer-create name))
+  (with-current-buffer (get-buffer-create name)
     (kill-all-local-variables)
     (setq buffer-read-only nil)
     (erase-buffer)
@@ -6227,9 +6226,9 @@
   (interactive)
   (let ((name slime-threads-buffer-name))
     (slime-with-popup-buffer (name nil t)
+      (slime-update-threads-buffer)
       (slime-thread-control-mode)
-      (setq slime-popup-buffer-quit-function 'slime-quit-threads-buffer)
-      (slime-update-threads-buffer))))
+      (setq slime-popup-buffer-quit-function 'slime-quit-threads-buffer))))
 
 (defun slime-quit-threads-buffer (&optional _)
   (slime-eval-async `(swank:quit-thread-browser))