Mercurial > emacs
diff lisp/international/mule-cmds.el @ 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 | b9d397c16fbe |
| children | faaa5a3adc82 |
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))