Commit e8c1cabf authored by Chong Yidong's avatar Chong Yidong

Use @ interactive spec for Info-mouse-follow-link.

Fixes: debbugs:11672
parent 136e1c1d
2012-06-23 Chong Yidong <cyd@gnu.org>
* info.el (Info-mouse-follow-link): Accept symbol values of the
link-args property. Select the window (Bug#11672).
* info.el (Info-mouse-follow-link): Accept symbol values of
link-args. Select window; suggested by Gerhard Kahl (Bug#11672).
(Info-fontify-node): Use Info-link-keymap for all navigation
buttons, with link-args property to perform the desired action.
(Info-link-keymap): Doc fix.
......
......@@ -3692,7 +3692,7 @@ If FORK is non-nil, it is passed to `Info-goto-node'."
(defun Info-mouse-follow-link (click)
"Follow a link where you click."
(interactive "e")
(interactive "@e")
(let* ((position (event-start click))
(posn-string (and position (posn-string position)))
(link-args (if posn-string
......@@ -3701,7 +3701,6 @@ If FORK is non-nil, it is passed to `Info-goto-node'."
(car posn-string))
(get-char-property (posn-point position)
'link-args))))
(select-window (posn-window position))
(cond ((stringp link-args)
(Info-goto-node link-args))
;; These special values of the `link-args' property are used
......
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