diff options
| author | Richard M. Stallman | 1997-05-31 01:22:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-31 01:22:39 +0000 |
| commit | 6d1ab9d4d67b291df337a404a93fd065bf426359 (patch) | |
| tree | 7b3b57fe1b9d341fd32dfe2c930ed14abf8ab538 | |
| parent | ddc90f39b06e390109df09d7c0a76d42fa7c6e26 (diff) | |
| download | emacs-6d1ab9d4d67b291df337a404a93fd065bf426359.tar.gz emacs-6d1ab9d4d67b291df337a404a93fd065bf426359.zip | |
(widget-sexp-value-to-internal):
Don't bother with pp for a symbol.
| -rw-r--r-- | lisp/wid-edit.el | 4 |
1 files changed, 3 insertions, 1 deletions
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." | |||
| 2637 | 2637 | ||
| 2638 | (defun widget-sexp-value-to-internal (widget value) | 2638 | (defun widget-sexp-value-to-internal (widget value) |
| 2639 | ;; Use pp for printer representation. | 2639 | ;; Use pp for printer representation. |
| 2640 | (let ((pp (pp-to-string value))) | 2640 | (let ((pp (if (symbolp value) |
| 2641 | (prin1-to-string value) | ||
| 2642 | (pp-to-string value)))) | ||
| 2641 | (while (string-match "\n\\'" pp) | 2643 | (while (string-match "\n\\'" pp) |
| 2642 | (setq pp (substring pp 0 -1))) | 2644 | (setq pp (substring pp 0 -1))) |
| 2643 | (if (or (string-match "\n\\'" pp) | 2645 | (if (or (string-match "\n\\'" pp) |