# HG changeset patch # User Richard M. Stallman # Date 1012732333 0 # Node ID 61ad8f29fefaaa6070f735882ec0d7bc4a4e09f8 # Parent 1983a485a15fcd13e6cab0375da2bacca9b5277d (describe-input-method): Call help-setup-xref here. (describe-current-input-method): Doc fix. diff -r 1983a485a15f -r 61ad8f29fefa lisp/international/mule-cmds.el --- a/lisp/international/mule-cmds.el Sun Feb 03 10:30:54 2002 +0000 +++ b/lisp/international/mule-cmds.el Sun Feb 03 10:32:13 2002 +0000 @@ -1137,6 +1137,9 @@ "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 @@ 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))