Fix customization of text-quoting-style

* lisp/cus-edit.el (custom-guess-type, custom-variable-documentation):
* lisp/wid-edit.el (widget-docstring):
Get raw docstring here since it’s cooked later and should not be
cooked twice.
* lisp/cus-edit.el (custom-group-value-create):
Cook the docstring before inserting it.
* lisp/cus-start.el (text-quoting-style): Quote the customization
docstrings according to the new rules.  Give curved examples.

1 files changed, 3 insertions, 5 deletions

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index daa95d1cb9d..2b9cc094f95 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -224,11 +224,9 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
              (text-quoting-style
               help
               (choice
-               (const :tag "Quote with curved single quotes" curve)
-               (const :tag "Quote with straight apostrophes 'like this'"
-                      straight)
-               (const :tag "Quote with grave accent and apostrophe `like this'"
-                      grave)
+               (const :tag "Quote with curved single quotes \\=‘like this\\=’" curve)
+               (const :tag "Quote with straight apostrophes \\='like this\\='" straight)
+               (const :tag "Quote with grave accent and apostrophe \\=`like this\\='" grave)
                (const :tag "Use curved quotes if displayable, grave accent and apostrophe otherwise" nil))
               "25.1")
              ;; dosfns.c