1267 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1268 |
(while (re-search-forward |
(while (re-search-forward |
1269 |
"^ \\([^ ]+\\) (`.*' in mode line)$" nil t) |
"^ \\([^ ]+\\) (`.*' in mode line)$" nil t) |
1270 |
(help-xref-button 1 #'describe-input-method |
(help-xref-button 1 #'help-input-method |
1271 |
(match-string 1) |
(match-string 1) |
1272 |
"mouse-2: describe this method"))) |
"mouse-2: describe this method"))) |
1273 |
(help-setup-xref '(list-input-methods) (interactive-p))))) |
(help-setup-xref '(list-input-methods) (interactive-p))))) |