diff options
| author | Mauro Aranda <maurooaranda@gmail.com> | 2020-10-22 14:30:13 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-10-22 14:30:24 +0200 |
| commit | 5215067c4efd186ffc0d8bf2e68bd4be7bf627c5 (patch) | |
| tree | 6a38bbccd098f68189e857ac1f4ac297802bdde0 /lisp/wid-edit.el | |
| parent | a5b4789d994622acc8eb5e92e476839025583edc (diff) | |
| download | emacs-5215067c4efd186ffc0d8bf2e68bd4be7bf627c5.tar.gz | |
Pretty print restricted sexp values too
* lisp/wid-edit.el (restricted-sexp widget): Use
widget-sexp-value-to-internal to pretty print the widget's value, when
it is a valid one (bug#7524).
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index c3366b62cdb..009c6b4faf2 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -3584,7 +3584,7 @@ To use this type, you must define :match or :match-alternatives." :match 'widget-restricted-sexp-match :value-to-internal (lambda (widget value) (if (widget-apply widget :match value) - (prin1-to-string value) + (widget-sexp-value-to-internal widget value) value))) (defun widget-restricted-sexp-match (widget value) |