changeset 18055:9e0c7dffc231

(widget-sexp-value-to-internal): Don't bother with pp for a symbol.
author Richard M. Stallman <rms@gnu.org>
date Sat, 31 May 1997 01:22:39 +0000
parents 0b9d9cbf3cd4
children f8591273bf79
files lisp/wid-edit.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/wid-edit.el	Sat May 31 01:10:39 1997 +0000
+++ b/lisp/wid-edit.el	Sat May 31 01:22:39 1997 +0000
@@ -2637,7 +2637,9 @@
 
 (defun widget-sexp-value-to-internal (widget value)
   ;; Use pp for printer representation.
-  (let ((pp (pp-to-string value)))
+  (let ((pp (if (symbolp value)
+		(prin1-to-string value)
+	      (pp-to-string value))))
     (while (string-match "\n\\'" pp)
       (setq pp (substring pp 0 -1)))
     (if (or (string-match "\n\\'" pp)