[slime-cvs] CVS slime/contrib

[heller]

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

Modified Files:
	slime-presentations.el ChangeLog 
Log Message:
* swank.lisp (slime-repl-clear-buffer-hook): New hook.
(slime-repl-clear-buffer): Use it.

* slime-presentations.el (slime-clear-presentations): New
function. Add it to slime-repl-clear-buffer-hook.


--- /project/slime/cvsroot/slime/contrib/slime-presentations.el	2007/08/28 08:25:29	1.2
+++ /project/slime/cvsroot/slime/contrib/slime-presentations.el	2007/08/28 14:38:05	1.3
@@ -657,7 +657,10 @@
 	(list* '("<" . slime-mark-presentation-start-handler) 
 	       '(">" . slime-mark-presentation-end-handler)
 	       bridge-handlers)))
-  
+
+(defun slime-clear-presentations ()
+  (slime-eval-async `(swank:clear-repl-results)))
+
 ;;; Initialization
 
 (defun slime-presentation-init ()
@@ -671,7 +674,8 @@
   (setq slime-write-string-function 'slime-presentation-write)
   (add-hook 'slime-repl-return-hooks 'slime-presentation-on-return-pressed)
   (add-hook 'slime-repl-current-input-hooks 'slime-presentation-current-input)
-  (add-hook 'slime-open-stream-hooks 'slime-presentation-on-stream-open))
+  (add-hook 'slime-open-stream-hooks 'slime-presentation-on-stream-open)
+  (add-hook 'slime-repl-clear-buffer-hook 'slime-clear-presentations))
 
 (slime-presentation-init)
 
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2007/08/28 08:26:03	1.12
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2007/08/28 14:38:05	1.13
@@ -1,3 +1,19 @@
+2007-08-28  Helmut Eller  <heller at common-lisp.net>
+
+	* slime-presentations.el (slime-clear-presentations): New
+	function. Add it to slime-repl-clear-buffer-hook.
+
+2007-08-28  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-listener-hooks.lisp: New file
+
+2007-08-28  Helmut Eller  <heller at common-lisp.net>
+
+	Move the rest of the presentation related code.
+
+	* swank-presentations.lisp (present-repl-results): Renamed from
+	send-repl-results-to-emacs.
+
 2007-08-28  Matthias Koeppe  <mkoeppe at mail.math.uni-magdeburg.de>
 
 	* swank-presentations.lisp (send-repl-results-to-emacs): 
@@ -13,13 +29,10 @@
 
 2007-08-27  Helmut Eller  <heller at common-lisp.net>
 
-	* slime-scratch.el (slime-scratch-buffer): Ignore presentations. 
-
-2007-08-27  Helmut Eller  <heller at common-lisp.net>
-
 	Move presentations to contrib. (ELisp part)
 
 	* slime-presentations.el: New file.
+	* slime-scratch.el (slime-scratch-buffer): Ignore presentations.
 
 2007-08-24  Matthias Koeppe  <mkoeppe at mail.math.uni-magdeburg.de>