Mercurial > emacs

comparison lisp/international/mule-diag.el @ 54970:4234b07e2bdb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list-input-methods): Fix args to help-xref-button.
author Juri Linkov <juri@jurta.org>
date Sun, 18 Apr 2004 15:13:25 +0000
parents 2d359989a04e
children c36561fe0657 4c90ffeb71c5
comparison
equal deleted inserted replaced
54969:019583986c66 54970:4234b07e2bdb
1179 (with-current-buffer standard-output 1179 (with-current-buffer standard-output
1180 (save-excursion 1180 (save-excursion
1181 (goto-char (point-min)) 1181 (goto-char (point-min))
1182 (while (re-search-forward 1182 (while (re-search-forward
1183 "^ \\([^ ]+\\) (`.*' in mode line)$" nil t) 1183 "^ \\([^ ]+\\) (`.*' in mode line)$" nil t)
1184 (help-xref-button 1 #'help-input-method 1184 (help-xref-button 1 'help-input-method (match-string 1)))))))
1185 (match-string 1)
1186 "mouse-2: describe this method"))))))
1187 1185
1188 (defun list-input-methods-1 () 1186 (defun list-input-methods-1 ()
1189 (if (not input-method-alist) 1187 (if (not input-method-alist)
1190 (progn 1188 (progn
1191 (princ " 1189 (princ "