[slime-cvs] CVS slime/contrib

[CVS User crhodes]

Update of /project/slime/cvsroot/slime/contrib
In directory tiger.common-lisp.net:/tmp/cvs-serv31629/contrib

Modified Files:
	ChangeLog slime-media.el 
Log Message:
new :popup-buffer slime-media event

Allows the inferior process to popup a buffer with given name, mode and
contents.  (Makes ?help work nicely in swankr.)


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/09/01 06:33:23	1.491
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/09/12 16:23:59	1.492
@@ -1,3 +1,10 @@
+2011-09-12  Christophe Rhodes  <csr21 at cantab.net>
+
+	* slime-media.el (slime-dispatch-media-event): allow swank to
+	popup a buffer with a given name, mode and contents.  Intended to
+	support display of information formatted by the inferior process
+	as a return value: in particular, R help_files_with_topic objects.
+
 2011-09-01  Anton Kovalenko  <anton at sw4me.com>
 
 	* slime-c-p-c.el (slime-complete-symbol*-fancy-bit): "imitate" a
--- /project/slime/cvsroot/slime/contrib/slime-media.el	2010/09/16 13:24:20	1.1
+++ /project/slime/cvsroot/slime/contrib/slime-media.el	2011/09/12 16:23:59	1.2
@@ -13,6 +13,11 @@
      (let ((image (find-image image)))
        (slime-media-insert-image image string))
      t)
+    ((:popup-buffer bufname string mode)
+     (slime-with-popup-buffer (bufname :mode mode :connection t :package t)
+       (princ string)
+       (goto-char (point-min)))
+     t)
     (t nil)))
 
 (defun slime-media-insert-image (image string &optional bol)