Mercurial > emacs
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)