[Emacs-diffs] Changes to emacs/lisp/info.el

[Kim F . Storm]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.413 emacs/lisp/info.el:1.414
*** emacs/lisp/info.el:1.413    Mon Dec 13 19:31:32 2004
--- emacs/lisp/info.el  Sat Jan  8 20:06:23 2005
***************
*** 2913,2918 ****
--- 2913,2919 ----
    (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,3458 ****
--- 3454,3460 ----
      (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,3467 ****
--- 3464,3470 ----
      (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,3477 ****
--- 3475,3481 ----
      (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,3512 ****
                (put-text-property tbeg nend 'mouse-face 'highlight)
                (put-text-property tbeg nend
                                   'help-echo
!                                  (concat "Go to node "
                                           (buffer-substring nbeg nend)))
                ;; Always set up the text property keymap.
                ;; It will either be used in the buffer
--- 3510,3516 ----
                (put-text-property tbeg nend 'mouse-face 'highlight)
                (put-text-property tbeg nend
                                   'help-echo
!                                  (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