[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108705: Use @ interactive spec fo
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108705: Use @ interactive spec for Info-mouse-follow-link. |
Date: |
Fri, 02 Nov 2012 01:49:05 -0000 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 108705
fixes bug: http://debbugs.gnu.org/11672
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2012-06-23 21:32:29 +0800
message:
Use @ interactive spec for Info-mouse-follow-link.
modified:
lisp/ChangeLog
lisp/info.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-06-23 13:27:40 +0000
+++ b/lisp/ChangeLog 2012-06-23 13:32:29 +0000
@@ -1,7 +1,7 @@
2012-06-23 Chong Yidong <address@hidden>
- * 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.
=== modified file 'lisp/info.el'
--- a/lisp/info.el 2012-06-23 13:27:40 +0000
+++ b/lisp/info.el 2012-06-23 13:32:29 +0000
@@ -3692,7 +3692,7 @@
(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 @@
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-24 r108705: Use @ interactive spec for Info-mouse-follow-link.,
Chong Yidong <=