[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el

[Richard M. Stallman]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.181 
emacs/lisp/international/mule-cmds.el:1.182
*** emacs/lisp/international/mule-cmds.el:1.181 Sun Jan 13 20:32:32 2002
--- emacs/lisp/international/mule-cmds.el       Sun Feb  3 05:32:13 2002
***************
*** 1137,1142 ****
--- 1137,1145 ----
          "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,1163 ****
                     input-method (nth 3 elt) (nth 1 elt) (nth 4 elt))))))))))
  
  (defun describe-current-input-method ()
!   "Describe the input method currently in use."
    (if current-input-method
        (if (and (symbolp describe-current-input-method-function)
               (fboundp describe-current-input-method-function))
--- 1160,1167 ----
                     input-method (nth 3 elt) (nth 1 elt) (nth 4 elt))))))))))
  
  (defun describe-current-input-method ()
!   "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))