diff options
| author | Richard M. Stallman <[email protected]> | 2002-02-03 10:32:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2002-02-03 10:32:13 +0000 |
| commit | f80e2142fc2000fff4cad43019120113fade0a1d (patch) | |
| tree | d3b613758880348bd4bd08a4a6daa29fbc8fe7b9 /lisp/international/mule-cmds.el | |
| parent | 606e6135a8921ae2e4ab2175e43a358e5613a2cd (diff) | |
(describe-input-method): Call help-setup-xref here.
(describe-current-input-method): Doc fix.
Diffstat (limited to 'lisp/international/mule-cmds.el')
| -rw-r--r-- | lisp/international/mule-cmds.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 1f0186f4cc..ef4e708cc9 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)) |