[Emacs-diffs] /srv/bzr/emacs/trunk r108705: Use @ interactive spec for Info-mouse-follow-link.

[Chong Yidong]

------------------------------------------------------------
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