Improve the optional translation of quotes

[gnu-emacs] / lisp / descr-text.el

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index c8641aed8bbd0667abd68bad81705418776965e7..a0b9ddfe2c907ffc5c02bad862307f76743990cf 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -161,8 +161,11 @@ otherwise."
       ;; Buttons
       (when (and button (not (widgetp wid-button)))
        (newline)
-       (insert "Here is a ‘" (format "%S" button-type)
-               "’ button labeled ‘" button-label "’.\n\n"))
+       (insert (substitute-command-keys "Here is a ‘")
+               (format "%S" button-type)
+               (substitute-command-keys "’ button labeled ‘")
+               button-label
+               (substitute-command-keys "’.\n\n")))
       ;; Overlays
       (when overlays
        (newline)
@@ -738,8 +741,9 @@ relevant to POS."
                       (when face
                         (insert (propertize " " 'display '(space :align-to 5))
                                 "face: ")
-                        (insert (concat "‘" (symbol-name face) "’"))
-                        (insert "\n")))))
+                        (insert (substitute-command-keys "‘")
+                                (symbol-name face)
+                                (substitute-command-keys "’\n"))))))
               (insert "these terminal codes:\n")
               (dotimes (i (length disp-vector))
                 (insert (car (aref disp-vector i))