[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:

	* slime.el (slime-switch-to-output-buffer): Fix regression
	discovered by Ariel Badichi. Programmatic invocation of this
	function expect this function to also set-buffer to the REPL
	buffer. Even though that's ugly, we do it for now, and declare it
	to be a FIXME.
	(slime-dispatch-event): Don't use `message' for the pipelined
	request message, but `slime-display-oneliner' which will truncate
	the form to be displayed.


--- /project/slime/cvsroot/slime/slime.el	2008/08/15 22:59:09	1.998
+++ /project/slime/cvsroot/slime/slime.el	2008/08/17 22:07:57	1.999
@@ -2331,7 +2331,7 @@
            (slime-write-string output target))
           ((:emacs-rex form package thread continuation)
            (when (and (slime-use-sigint-for-interrupt) (slime-busy-p))
-             (message "; pipelined request... %S" form))
+             (slime-display-oneliner "; pipelined request... %S" form))
            (let ((id (incf (slime-continuation-counter))))
              (push (cons id continuation) (slime-rex-continuations))
              (slime-send `(:emacs-rex ,form ,package ,thread ,id))))
@@ -2716,10 +2716,13 @@
     (let* ((repl-buffer (slime-output-buffer))
            (all-frames-p slime-switch-to-output-buffer-search-all-frames)
            (repl-window (get-buffer-window repl-buffer all-frames-p)))
+      ;; FIXME: I don't think that this function should set the
+      ;; buffer. We currently do it, because the programmatic
+      ;; invocations of this function expect this.
+      (set-buffer repl-buffer)
       (if repl-window
           (progn (select-frame-set-input-focus (window-frame repl-window))
                  (select-window repl-window))
-        (set-buffer repl-buffer)
         (unless (eq (current-buffer) (window-buffer))
           (pop-to-buffer (current-buffer) t))))
     (goto-char (point-max))))
--- /project/slime/cvsroot/slime/ChangeLog	2008/08/17 08:31:26	1.1459
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/17 22:07:57	1.1460
@@ -1,3 +1,14 @@
+2008-08-15  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime.el (slime-switch-to-output-buffer): Fix regression
+	discovered by Ariel Badichi. Programmatic invocation of this
+	function expect this function to also set-buffer to the REPL
+	buffer. Even though that's ugly, we do it for now, and declare it
+	to be a FIXME.
+	(slime-dispatch-event): Don't use `message' for the pipelined
+	request message, but `slime-display-oneliner' which will truncate
+	the form to be displayed.
+
 2008-08-17  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-cmucl.lisp (waitpid): Don't use unix::pid-t, it's only