[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-maybe-show-compilation-log): New function.
(slime-compilation-finished-hook): Use it.  Now that the
compilation buffer gets not selected it's more acceptable to
display it more often.
(slime-insert-compilation-log): Set compilation-skip-threshold to
0 and compilation-skip-to-next-location to nil.  Seems to work
better for us.
(slime-with-popup-buffer): Synch window-point, otherwise it be at
the end of the buffer for reused buffers.
(slime-display-popup-buffer): Return the window.

--- /project/slime/cvsroot/slime/ChangeLog	2009/07/26 10:18:17	1.1815
+++ /project/slime/cvsroot/slime/ChangeLog	2009/07/26 10:18:29	1.1816
@@ -1,6 +1,19 @@
 2009-07-26  Helmut Eller  <heller at common-lisp.net>
 
-	* swank-sbcl.lisp (tempnam): Muffle efficientcy notes.
+	* slime.el (slime-maybe-show-compilation-log): New function.
+	(slime-compilation-finished-hook): Use it.  Now that the
+	compilation buffer gets not selected it's more acceptable to
+	display it more often.
+	(slime-insert-compilation-log): Set compilation-skip-threshold to
+	0 and compilation-skip-to-next-location to nil.  Seems to work
+	better for us.
+	(slime-with-popup-buffer): Synch window-point, otherwise it be at
+	the end of the buffer for reused buffers.
+	(slime-display-popup-buffer): Return the window.
+
+2009-07-26  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-sbcl.lisp (tempnam): Muffle efficiency notes.
 
 2009-07-26  Gail Zacharias <gz at clozure.com>
 
--- /project/slime/cvsroot/slime/slime.el	2009/07/26 10:18:07	1.1201
+++ /project/slime/cvsroot/slime/slime.el	2009/07/26 10:18:29	1.1202
@@ -1052,7 +1052,9 @@
          (assert (eq (current-buffer) standard-output))
          (setq buffer-read-only t)
          (slime-init-popup-buffer vars%)
-         (slime-display-popup-buffer ,(or select 'nil))))))
+         (set-window-point (slime-display-popup-buffer ,(or select 'nil))
+                           (point))
+         (current-buffer)))))
 
 (put 'slime-with-popup-buffer 'lisp-indent-function 1)
 
@@ -1081,7 +1083,6 @@
     (walk-windows (lambda (w) (push (cons w (window-buffer w)) old-windows))
                   nil t)
     (let ((new-window (display-buffer (current-buffer))))
-      (set-window-point new-window (point))
       (unless slime-popup-restore-data
         (set (make-local-variable 'slime-popup-restore-data)
              (list new-window
@@ -1089,7 +1090,7 @@
                    (cdr (find new-window old-windows :key #'car)))))
       (when select
         (select-window new-window))
-      (current-buffer))))
+      new-window)))
 
 (defun slime-close-popup-window ()
   (when slime-popup-restore-data
@@ -2657,7 +2658,7 @@
   "Hook called with a list of compiler notes after a compilation."
   :group 'slime-mode
   :type 'hook
-  :options '(slime-display-compilation-log-as-needed
+  :options '(slime-maybe-show-compilation-log
              slime-create-compilation-log
              slime-show-compilation-log
              slime-maybe-list-compiler-notes