[slime-cvs] CVS update: slime/slime.el

[Matthias Koeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-dispatch-event): Handle new messages :y-or-n-p,
:background-message. 
(slime-y-or-n-p): New.

Date: Mon Aug 29 21:27:52 2005
Author: mkoeppe

Index: slime/slime.el
diff -u slime/slime.el:1.533 slime/slime.el:1.534
--- slime/slime.el:1.533	Mon Aug 29 21:23:52 2005
+++ slime/slime.el	Mon Aug 29 21:27:51 2005
@@ -2325,6 +2325,8 @@
       ((:read-string thread tag)
        (assert thread)
        (slime-repl-read-string thread tag))
+      ((:y-or-n-p thread tag question)
+       (slime-y-or-n-p thread tag question))
       ((:evaluate-in-emacs string thread tag)
        (assert thread)
        (evaluate-in-emacs (car (read-from-string string)) thread tag))
@@ -2351,6 +2353,8 @@
        (slime-send `(:emacs-return ,thread ,tag ,value)))
       ((:ed what)
        (slime-ed what))
+      ((:background-message message)
+       (slime-background-message "%s" message))
       ((:debug-condition thread message)
        (assert thread)
        (message "%s" message)))))
@@ -3627,6 +3631,11 @@
   (slime-mark-output-end)
   (slime-mark-input-start)
   (slime-repl-read-mode 1))
+
+(defun slime-y-or-n-p (thread tag question)
+  (push thread slime-read-string-threads)
+  (push tag slime-read-string-tags)
+  (slime-repl-return-string (y-or-n-p question)))
 
 (defcustom slime-enable-evaluate-in-emacs nil
   "If non-nil, the inferior Lisp can evaluate arbitrary forms in Emacs.