diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-06-23 21:32:29 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-06-23 21:32:29 +0800 |
| commit | e8c1cabf0330c190594cb77942a5690afee9e926 (patch) | |
| tree | ee08ba94c6eb5558b68dd44c50ff18be172fdfc2 /lisp/info.el | |
| parent | 136e1c1d50c2f7d857e37d07606a44c17954aaf6 (diff) | |
Use @ interactive spec for Info-mouse-follow-link.
Fixes: debbugs:11672
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index b3fb7917c7..cc86370d25 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -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 |