From f80e2142fc2000fff4cad43019120113fade0a1d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 3 Feb 2002 10:32:13 +0000 Subject: [PATCH] (describe-input-method): Call help-setup-xref here. (describe-current-input-method): Doc fix. --- lisp/international/mule-cmds.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 1f0186f4cce..ef4e708cc9f 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1137,6 +1137,9 @@ and enable that one. The default is the most recent input method specified "Describe input method (default, current choice): "))) (if (and input-method (symbolp input-method)) (setq input-method (symbol-name input-method))) + (help-setup-xref (list #'describe-input-method (or input-method current-input-method)) + (interactive-p)) + (if (null input-method) (describe-current-input-method) (let ((current current-input-method)) @@ -1157,7 +1160,8 @@ and enable that one. The default is the most recent input method specified input-method (nth 3 elt) (nth 1 elt) (nth 4 elt)))))))))) (defun describe-current-input-method () - "Describe the input method currently in use." + "Describe the input method currently in use. +This is a subroutine for `describe-input-method'." (if current-input-method (if (and (symbolp describe-current-input-method-function) (fboundp describe-current-input-method-function)) -- 2.39.2