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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-interactive-eval): Insert the result at point, if called with
prefix argument.
Date: Sun Dec  7 14:13:43 2003
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.131 slime/slime.el:1.132
--- slime/slime.el:1.131	Sat Dec  6 16:41:11 2003
+++ slime/slime.el	Sun Dec  7 14:13:42 2003
@@ -450,6 +450,7 @@
        [ "Who Sets..." slime-who-sets ,C ]
        [ "Who Binds..." slime-who-binds ,C ]
        [ "Who Macroexpands..." slime-who-macroexpands ,C ]
+       [ "Who Specializes..." slime-who-specializes ,C ]
        [ "List Callers..." slime-list-callers ,C ]
        [ "List Callees..." slime-list-callees ,C ]
        [ "Next Location" slime-next-location t ])
@@ -460,7 +461,7 @@
       "--"
       [ "Interrupt Command" slime-interrupt ,C ]
       [ "Abort Async. Command" slime-quit ,C ]
-      [ "Sync Package & Directory" slime-sync-package-and-default-directory ,C ]
+      [ "Sync Package & Directory" slime-sync-package-and-default-directory ,C]
       )))
 
 (easy-menu-define menubar-slime slime-mode-map "SLIME" slime-easy-menu) 
@@ -2797,7 +2798,9 @@
   (slime-eval-async 
    `(swank:interactive-eval ,string)
    (slime-buffer-package t)
-   (slime-show-evaluation-result-continuation)))
+   (if current-prefix-arg
+       (slime-insert-evaluation-result-continuation)
+     (slime-show-evaluation-result-continuation))))
 
 (defun slime-display-buffer-region (buffer start end &optional other-window)
   "Like `display-buffer', but only display the specified region."
@@ -2825,6 +2828,12 @@
     (lambda (value)
       (with-current-buffer buffer
         (slime-show-evaluation-result value)))))
+
+(defun slime-insert-evaluation-result-continuation ()
+  (lexical-let ((buffer (current-buffer)))
+    (lambda (value)
+      (with-current-buffer buffer
+        (insert value)))))
   
 (defun slime-last-expression ()
   (buffer-substring-no-properties (save-excursion (backward-sexp) (point))