Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Adding swank versions of two missing pretty-printer control variables.

  • Loading branch information...
commit 18a98b624d0da40365b62ebd5ffb88fd87df108c 1 parent 3d25c19
Peter Seibel authored
Showing with 13 additions and 0 deletions.
  1. +5 −0 ChangeLog
  2. +8 −0 swank.lisp
View
5 ChangeLog
@@ -1,3 +1,8 @@
+2004-04-07 Peter Seibel <peter@javamonkey.com>
+
+ * swank.lisp (swank-pprint): Add swank versions of two missing
+ pretty-printer control variables.
+
2004-04-07 Luke Gorrie <luke@bluetail.com>
* swank.lisp (completion-set): Also complete package
View
8 swank.lisp
@@ -1128,6 +1128,12 @@ change, then send Emacs an update."
(defvar *swank-pprint-circle* *print-circle*
"*PRINT-CIRCLE* is bound to this value when pretty printing slime output.")
+(defvar *swank-pprint-case* *print-case*
+ "*PRINT-CASE* is bound to this value when pretty printing slime output.")
+
+(defvar *swank-pprint-right-margin* *print-right-margin*
+ "*PRINT-RIGHT-MARGIN* is bound to this value when pretty printing slime output.")
+
(defvar *swank-pprint-escape* *print-escape*
"*PRINT-ESCAPE* is bound to this value when pretty printing slime output.")
@@ -1140,6 +1146,8 @@ change, then send Emacs an update."
(defun swank-pprint (list)
"Bind some printer variables and pretty print each object in LIST."
(let ((*print-pretty* t)
+ (*print-case* *swank-pprint-case*)
+ (*print-right-margin* *swank-pprint-right-margin*)
(*print-circle* *swank-pprint-circle*)
(*print-escape* *swank-pprint-escape*)
(*print-level* *swank-pprint-level*)
Please sign in to comment.
Something went wrong with that request. Please try again.