[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:

* slime.el (slime-popup-buffer-quit): If not kill, then at least
  bury the buffer.
  (slime-list-compiler-notes): Shrink the compiler-notes window.


--- /project/slime/cvsroot/slime/slime.el	2008/08/14 14:20:08	1.995
+++ /project/slime/cvsroot/slime/slime.el	2008/08/15 09:51:43	1.996
@@ -1043,12 +1043,12 @@
 last activated the buffer."
   (interactive)
   (let ((popup-buffer (current-buffer)))
-    (if (slime-popup-buffer-snapshot-unchanged-p)
-        (slime-popup-buffer-restore-snapshot)
-        (bury-buffer))
+    (when (slime-popup-buffer-snapshot-unchanged-p)
+      (slime-popup-buffer-restore-snapshot))
     (setq slime-popup-buffer-saved-emacs-snapshot nil)
-    (when kill-buffer-p
-      (kill-buffer popup-buffer))))
+    (if kill-buffer-p
+        (kill-buffer popup-buffer)
+        (bury-buffer popup-buffer))))
 
 (defun slime-popup-buffer-snapshot-unchanged-p ()
   (equalp (slime-current-emacs-snapshot-fingerprint)
@@ -4178,6 +4178,7 @@
       (dolist (tree (slime-compiler-notes-to-tree notes))
         (slime-tree-insert tree "")
         (insert "\n"))
+      (shrink-window-if-larger-than-buffer)
       (goto-char (point-min)))))
 
 (defun slime-alistify (list key test)
--- /project/slime/cvsroot/slime/ChangeLog	2008/08/14 15:32:40	1.1453
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/15 09:51:44	1.1454
@@ -1,3 +1,9 @@
+2008-08-15  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime.el (slime-popup-buffer-quit): If not kill, then at least
+	bury the buffer.
+	(slime-list-compiler-notes): Shrink the compiler-notes window.
+
 2008-08-14  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	If another frame is already displaying a REPL, `C-c C-z' will now