[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-pprint-eval-region): New command. No keybinding though.

--- /project/slime/cvsroot/slime/ChangeLog	2012/05/04 11:16:40	1.2328
+++ /project/slime/cvsroot/slime/ChangeLog	2012/05/06 08:39:11	1.2329
@@ -1,3 +1,9 @@
+2012-05-06  Cyrus Harmon <ch-slime at bobobeach.com>
+	    Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-pprint-eval-region): New command. No keybinding
+	though.
+
 2012-05-04  Nikodemus Siivola  <nikodemus at random-state.net>
 
 	* swank-sbcl.lisp: Remove the SB-C::MERGE-TAIL-CALLS proclamation.
--- /project/slime/cvsroot/slime/slime.el	2012/05/03 15:58:39	1.1404
+++ /project/slime/cvsroot/slime/slime.el	2012/05/06 08:39:11	1.1405
@@ -4297,6 +4297,13 @@
    `(swank:interactive-eval-region 
      ,(buffer-substring-no-properties start end))))
 
+(defun slime-pprint-eval-region (start end)
+  "Evaluate region; pprint the value in a buffer."
+  (interactive "r")
+  (slime-eval-describe
+   `(swank:pprint-eval
+     ,(buffer-substring-no-properties start end))))
+
 (defun slime-eval-buffer ()
   "Evaluate the current buffer.
 The value is printed in the echo area."
@@ -7149,6 +7156,7 @@
        [ "Eval Last Expression"    slime-eval-last-expression ,C ]
        [ "Eval And Pretty-Print"   slime-pprint-eval-last-expression ,C ]
        [ "Eval Region"             slime-eval-region ,C ]
+       [ "Eval Region And Pretty-Print" slime-pprint-eval-region ,C ]
        [ "Interactive Eval..."     slime-interactive-eval ,C ]
        [ "Edit Lisp Value..."      slime-edit-value ,C ]
        [ "Call Defun"              slime-call-defun ,C ])