From 0cf7d7537ccbf6b68f031e47775e220607aa191e Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Wed, 7 Oct 2020 20:02:04 -0300 Subject: [PATCH] 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) --- lisp/wid-edit.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index c3366b62cd..009c6b4faf 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -3584,7 +3584,7 @@ 'restricted-sexp :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) -- 2.28.0