text-quoting-style for usage of fn names with ‘’

* lisp/help.el (help--docstring-quote): Don’t assume
text-quoting-style is ‘curve’ when generating usage strings for
functions whose names contain curved quotes.

diff --git a/lisp/help.el b/lisp/help.el
index 2fcb52e2e25312c24a7d8e168b5261534ca2dcb6..d9b0e187f79eb16da4e3d37f2d7235a336a3976b 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1353,7 +1353,7 @@ the help window if the current value of the user option
 (defun help--docstring-quote (string)
   "Return a doc string that represents STRING.
 The result, when formatted by ‘substitute-command-keys’, should equal STRING."
-  (replace-regexp-in-string "['\\`]" "\\\\=\\&" string))
+  (replace-regexp-in-string "['\\`‘’]" "\\\\=\\&" string))
 
 ;; The following functions used to be in help-fns.el, which is not preloaded.
 ;; But for various reasons, they are more widely needed, so they were