mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
Fix spurious escapes in describe-input-method
Problem reported by Vincent Belaïche (Bug#22309). * lisp/international/mule-cmds.el (describe-language-environment): * lisp/international/quail.el (quail-help): Apply substitute-command-keys to doc strings before displaying them.
This commit is contained in:
parent
2e5a89fad1
commit
66ff8bac8b
2 changed files with 2 additions and 2 deletions
|
|
@ -2119,7 +2119,7 @@ See `set-language-info-alist' for use in programs."
|
|||
(with-current-buffer standard-output
|
||||
(insert language-name " language environment\n\n")
|
||||
(if (stringp doc)
|
||||
(insert doc "\n\n"))
|
||||
(insert (substitute-command-keys doc) "\n\n"))
|
||||
(condition-case nil
|
||||
(let ((str (eval (get-language-info language-name 'sample-text))))
|
||||
(if (stringp str)
|
||||
|
|
|
|||
|
|
@ -2516,7 +2516,7 @@ package to describe."
|
|||
")\n\n")
|
||||
(save-restriction
|
||||
(narrow-to-region (point) (point))
|
||||
(insert (quail-docstring))
|
||||
(insert (substitute-command-keys (quail-docstring)))
|
||||
(goto-char (point-min))
|
||||
(with-syntax-table emacs-lisp-mode-syntax-table
|
||||
(while (re-search-forward "\\\\<\\sw\\(\\sw\\|\\s_\\)+>" nil t)
|
||||
|
|
|
|||
Loading…
Reference in a new issue