More-conservative ‘format’ quote restyling

[gnu-emacs] / lisp / help.el

diff --git a/lisp/help.el b/lisp/help.el
index db87d5852b6d18653db52c69f3ff31c3d0fa33ab..2fcb52e2e25312c24a7d8e168b5261534ca2dcb6 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -964,9 +964,8 @@ documentation for the major and minor modes of that buffer."
        (let* ((mode major-mode)
               (file-name (find-lisp-object-file-name mode nil)))
          (when file-name
-           (princ (concat (substitute-command-keys " defined in ‘")
-                           (file-name-nondirectory file-name)
-                           (substitute-command-keys "’")))
+           (princ (format-message " defined in ‘%s’"
+                                   (file-name-nondirectory file-name)))
            ;; Make a hyperlink to the library.
            (with-current-buffer standard-output
              (save-excursion