diff options
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index f6b11074af0..4366c0b9f23 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1428,18 +1428,19 @@ If FRAME is omitted or nil, use the selected frame." (when alias (setq face alias) (insert - (format "\n %s is an alias for the face `%s'.\n%s" + (format "\n %s is an alias for the face ‘%s’.\n%s" f alias (if (setq obsolete (get f 'obsolete-face)) - (format " This face is obsolete%s; use `%s' instead.\n" + (format " This face is obsolete%s; use ‘%s’ instead.\n" (if (stringp obsolete) (format " since %s" obsolete) "") alias) "")))) (insert "\nDocumentation:\n" - (or (face-documentation face) - "Not documented as a face.") + (substitute-command-keys + (or (face-documentation face) + "Not documented as a face.")) "\n\n")) (with-current-buffer standard-output (save-excursion @@ -1448,12 +1449,12 @@ If FRAME is omitted or nil, use the selected frame." (help-xref-button 1 'help-customize-face f))) (setq file-name (find-lisp-object-file-name f 'defface)) (when file-name - (princ "Defined in `") + (princ "Defined in ‘") (princ (file-name-nondirectory file-name)) - (princ "'") + (princ "’") ;; Make a hyperlink to the library. (save-excursion - (re-search-backward "`\\([^`']+\\)'" nil t) + (re-search-backward "‘\\([^‘’]+\\)’" nil t) (help-xref-button 1 'help-face-def f file-name)) (princ ".") (terpri) |