From: Kim F. Storm <storm@cua.dk>
Date: Sat, 8 Jan 2005 20:06:23 +0000 (+0000)
Subject: (Info-mode-map, Info-next-link-keymap)
X-Git-Tag: ttn-vms-21-2-B4~2862
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c1498ace84a3c0ca7549c662e6dd0487b6e4749;p=emacs.git

(Info-mode-map, Info-next-link-keymap)
(Info-prev-link-keymap, Info-up-link-keymap): Map follow-link to mouse-face.
(Info-fontify-node): Add "mouse-2: " prefix to tooltip.
---

diff --git a/lisp/info.el b/lisp/info.el
index 750f302d422..5e8e6ed8340 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2913,6 +2913,7 @@ if point is in a menu item description, follow that menu item."
   (define-key Info-mode-map "," 'Info-index-next)
   (define-key Info-mode-map "\177" 'Info-scroll-down)
   (define-key Info-mode-map [mouse-2] 'Info-mouse-follow-nearest-node)
+  (define-key Info-mode-map [follow-link] 'mouse-face)
   )
 
 (defun Info-check-pointer (item)
@@ -3453,6 +3454,7 @@ Preserve text properties."
     (define-key keymap [header-line mouse-2] 'Info-next)
     (define-key keymap [header-line down-mouse-1] 'ignore)
     (define-key keymap [mouse-2] 'Info-next)
+    (define-key keymap [follow-link] 'mouse-face)
     keymap)
   "Keymap to put on the Next link in the text or the header line.")
 
@@ -3462,6 +3464,7 @@ Preserve text properties."
     (define-key keymap [header-line mouse-2] 'Info-prev)
     (define-key keymap [header-line down-mouse-1] 'ignore)
     (define-key keymap [mouse-2] 'Info-prev)
+    (define-key keymap [follow-link] 'mouse-face)
     keymap)
   "Keymap to put on the Prev link in the text or the header line.")
 
@@ -3472,6 +3475,7 @@ Preserve text properties."
     (define-key keymap [header-line mouse-2] 'Info-up)
     (define-key keymap [header-line down-mouse-1] 'ignore)
     (define-key keymap [mouse-2] 'Info-up)
+    (define-key keymap [follow-link] 'mouse-face)
     keymap)
   "Keymap to put on the Up link in the text or the header line.")
 
@@ -3506,7 +3510,7 @@ Preserve text properties."
               (put-text-property tbeg nend 'mouse-face 'highlight)
               (put-text-property tbeg nend
                                  'help-echo
-                                 (concat "Go to node "
+                                 (concat "mouse-2: Go to node "
                                          (buffer-substring nbeg nend)))
               ;; Always set up the text property keymap.
               ;; It will either be used in the buffer