Mercurial > emacs

diff lisp/wid-edit.el @ 18055:9e0c7dffc231

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 bccd356a3b7c
children f8591273bf79
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)