diff options
Diffstat (limited to 'lisp/international/mule-diag.el')
| -rw-r--r-- | lisp/international/mule-diag.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 028c9916faf..fa5a7ebe7c3 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -332,7 +332,7 @@ meanings of these arguments." (let ((char (charset-iso-final-char charset))) (when (> char 0) (insert "Final char of ISO2022 designation sequence: ") - (insert (format-message "‘%c’\n" char)))) + (insert (format-message "`%c'\n" char)))) (let (aliases) (dolist (c charset-list) (if (and (not (eq c charset)) @@ -1038,7 +1038,8 @@ see the function `describe-fontset' for the format of the list." (save-excursion (goto-char (point-min)) (while (re-search-forward - "^ \\([^ ]+\\) (‘.*’ in mode line)$" nil t) + (substitute-command-keys "^ \\([^ ]+\\) (`.*' in mode line)$") + nil t) (help-xref-button 1 'help-input-method (match-string 1))))))) (defun list-input-methods-1 () @@ -1046,7 +1047,8 @@ see the function `describe-fontset' for the format of the list." (princ " No input method is available, perhaps because you have not installed LEIM (Libraries of Emacs Input Methods).") - (princ "LANGUAGE\n NAME (‘TITLE’ in mode line)\n") + (princ (substitute-command-keys + "LANGUAGE\n NAME (`TITLE' in mode line)\n")) (princ " SHORT-DESCRIPTION\n------------------------------\n") (setq input-method-alist (sort input-method-alist @@ -1059,7 +1061,7 @@ installed LEIM (Libraries of Emacs Input Methods).") (princ language) (terpri)) (princ (format-message - " %s (‘%s’ in mode line)\n %s\n" + " %s (`%s' in mode line)\n %s\n" (car elt) (let ((title (nth 3 elt))) (if (and (consp title) (stringp (car title))) |