Revert "Prefer ‘format’ to ‘substitute-command-keys’"

[gnu-emacs] / lisp / help.el

diff --git a/lisp/help.el b/lisp/help.el
index a8991b5f82bb2c72ac491e6b51760f5e0148b877..db87d5852b6d18653db52c69f3ff31c3d0fa33ab 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -964,12 +964,14 @@ 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 (format " defined in ‘%s’"
-                           (file-name-nondirectory file-name)))
+           (princ (concat (substitute-command-keys " defined in ‘")
+                           (file-name-nondirectory file-name)
+                           (substitute-command-keys "’")))
            ;; Make a hyperlink to the library.
            (with-current-buffer standard-output
              (save-excursion
-               (re-search-backward (format "‘\\([^‘’]+\\)’") nil t)
+               (re-search-backward (substitute-command-keys "‘\\([^‘’]+\\)’")
+                                    nil t)
                (help-xref-button 1 'help-function-def mode file-name)))))
        (princ ":\n")
        (princ (documentation major-mode)))))