[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:

* slime.el (slime-list-compiler-notes): Only shrink if notes tree
  isn't displayed as being collapsed.


--- /project/slime/cvsroot/slime/slime.el	2008/08/15 09:51:43	1.996
+++ /project/slime/cvsroot/slime/slime.el	2008/08/15 20:48:54	1.997
@@ -4175,11 +4175,14 @@
       (slime-compiler-notes-mode)
       (when (null notes)
         (insert "[no notes]"))
-      (dolist (tree (slime-compiler-notes-to-tree notes))
-        (slime-tree-insert tree "")
-        (insert "\n"))
-      (shrink-window-if-larger-than-buffer)
-      (goto-char (point-min)))))
+      (let ((collapsed-p))
+        (dolist (tree (slime-compiler-notes-to-tree notes))
+          (when (slime-tree.collapsed-p tree) (setf collapsed-p t))
+          (slime-tree-insert tree "")
+          (insert "\n"))
+        (unless collapsed-p
+          (shrink-window-if-larger-than-buffer))
+        (goto-char (point-min))))))
 
 (defun slime-alistify (list key test)
   "Partition the elements of LIST into an alist.
--- /project/slime/cvsroot/slime/ChangeLog	2008/08/15 09:51:44	1.1454
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/15 20:48:54	1.1455
@@ -1,5 +1,10 @@
 2008-08-15  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime.el (slime-list-compiler-notes): Only shrink if notes tree
+	isn't displayed as being collapsed.
+
+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.