[slime-cvs] CVS slime/contrib

[mkoeppe]

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

Modified Files:
	slime-presentations.el 
Log Message:
(slime-dispatch-presentation-event): Explicitly return t to indicate
the events have been handled, rather than relying on the return values
of the called functions.


--- /project/slime/cvsroot/slime/contrib/slime-presentations.el	2007/08/28 21:59:48	1.4
+++ /project/slime/cvsroot/slime/contrib/slime-presentations.el	2007/09/01 05:42:50	1.5
@@ -547,9 +547,11 @@
 (defun slime-dispatch-presentation-event (event)
   (destructure-case event
     ((:presentation-start id &optional target)
-     (slime-mark-presentation-start id target))
+     (slime-mark-presentation-start id target)
+     t)
     ((:presentation-end id &optional target)
-     (slime-mark-presentation-end id target))
+     (slime-mark-presentation-end id target)
+     t)
     (t nil)))
 
 (defun slime-presentation-write (string &optional target)