diff options
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 579278ceaa0..71233d406e1 100644 --- 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 (format "Here is a ‘%S’ button labeled ‘%s’.\n\n" - button-type button-label))) + (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) @@ -736,7 +739,9 @@ relevant to POS." (when face (insert (propertize " " 'display '(space :align-to 5)) "face: ") - (insert (format "‘%s’\n" face)))))) + (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)) |