diff options
Diffstat (limited to 'lisp')
| -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) |