From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 31 May 1997 01:22:39 +0000 (+0000)
Subject: (widget-sexp-value-to-internal):
X-Git-Tag: emacs-20.1~1891
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6d1ab9d4d67b291df337a404a93fd065bf426359;p=emacs.git

(widget-sexp-value-to-internal):
Don't bother with pp for a symbol.
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 9198ceed8e8..561c7efb42b 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -2637,7 +2637,9 @@ It will read a directory name from the minibuffer when invoked."
 
 (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)