# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1082301205 0
# Node ID 4234b07e2bdb062a39dc9a1c3ce2e858966c1bd3
# Parent  019583986c664f4c952cb351c82b43225ea2e8e6
(list-input-methods): Fix args to help-xref-button.

diff -r 019583986c66 -r 4234b07e2bdb lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Sun Apr 18 11:05:20 2004 +0000
+++ b/lisp/international/mule-diag.el	Sun Apr 18 15:13:25 2004 +0000
@@ -1181,9 +1181,7 @@
 	(goto-char (point-min))
 	(while (re-search-forward
 		"^  \\([^ ]+\\) (`.*' in mode line)$" nil t)
-	  (help-xref-button 1 #'help-input-method
-				(match-string 1)
-				"mouse-2: describe this method"))))))
+	  (help-xref-button 1 'help-input-method (match-string 1)))))))
 
 (defun list-input-methods-1 ()
   (if (not input-method-alist)