Commit 9147ae66 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(list-input-methods):

Use help-input-method, not describe-input-method, for button type.
parent 6ed21409
...@@ -1267,7 +1267,7 @@ see the function `describe-fontset' for the format of the list." ...@@ -1267,7 +1267,7 @@ see the function `describe-fontset' for the format of the list."
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward (while (re-search-forward
"^ \\([^ ]+\\) (`.*' in mode line)$" nil t) "^ \\([^ ]+\\) (`.*' in mode line)$" nil t)
(help-xref-button 1 #'describe-input-method (help-xref-button 1 #'help-input-method
(match-string 1) (match-string 1)
"mouse-2: describe this method"))) "mouse-2: describe this method")))
(help-setup-xref '(list-input-methods) (interactive-p))))) (help-setup-xref '(list-input-methods) (interactive-p)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment