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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-interactive-eval): Changed display of results.  By default the
result goes to `slime-message', which leads either to echo area,
temporary buffer, or typeout frame.  With a prefix argument the result
is printed to the REPL.  This goes for all commands based on
slime-interactive-eval, e.g.  `C-x C-e' and `C-c M-:'.

Date: Fri Jul 16 13:55:00 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.367 slime/slime.el:1.368
--- slime/slime.el:1.367	Fri Jul 16 10:56:37 2004
+++ slime/slime.el	Fri Jul 16 13:55:00 2004
@@ -4697,11 +4697,20 @@
 ;;; Interactive evaluation.
 
 (defun slime-interactive-eval (string)
-  "Read and evaluate STRING and print value in minibuffer. "
+  "Read and evaluate STRING and print value in minibuffer.
+
+Note: If a prefix argument is in effect then the result will be output
+in the REPL."
   (interactive (list (slime-read-from-minibuffer "Slime Eval: ")))
   (slime-insert-transcript-delimiter string)
   (slime-eval-with-transcript `(swank:interactive-eval ,string)
-                              (slime-buffer-package t)))
+                              (slime-buffer-package t)
+                              (if current-prefix-arg
+                                  'slime-output-string
+                                'slime-display-eval-result)))
+
+(defun slime-display-eval-result (value)
+  (slime-message (format "%s" value)))
 
 (defun slime-eval-with-transcript (form package &optional fn)
   "Send FROM and PACKAGE to Lisp and pass the result to FN.