[slime-cvs] CVS slime

[CVS User nsiivola]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
new variable: slime-description-autofocus

  Controls behaviour of popped up description buffers.



--- /project/slime/cvsroot/slime/ChangeLog	2009/05/17 19:12:53	1.1764
+++ /project/slime/cvsroot/slime/ChangeLog	2009/05/18 12:54:08	1.1765
@@ -1,3 +1,10 @@
+2009-05-18  Nikodemus Siivola  <nikodemus at random-state.net>
+
+	* slime.el (slime-description-autofocus): New variable.
+	(slime-show-description): Use it to decide if description
+	buffers should receive focus automatically.
+	* doc/slime.texi: Document it.
+
 2009-05-17  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime.el (slime-dispatch-event): New event
--- /project/slime/cvsroot/slime/slime.el	2009/05/17 19:12:53	1.1174
+++ /project/slime/cvsroot/slime/slime.el	2009/05/18 12:54:08	1.1175
@@ -4146,11 +4146,15 @@
   (slime-eval-async form (slime-rcurry #'slime-show-description
                                        (slime-current-package))))
 
+(defvar slime-description-autofocus nil
+  "If NIL (the default) Slime description buffers do not grab
+focus automatically.")
+
 (defun slime-show-description (string package)
   ;; So we can have one description buffer open per connection. Useful
   ;; for comparing the output of DISASSEMBLE across implementations.
   (let ((bufname (format "*SLIME Description <%s>*" (slime-connection-name))))
-    (slime-with-popup-buffer (bufname package t)
+    (slime-with-popup-buffer (bufname package t slime-description-autofocus)
       (princ string)
       (goto-char (point-min)))))