changeset 43078:61ad8f29fefa

(describe-input-method): Call help-setup-xref here. (describe-current-input-method): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Sun, 03 Feb 2002 10:32:13 +0000
parents 1983a485a15f
children a202d9fb56eb
files lisp/international/mule-cmds.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))