2913 |
(define-key Info-mode-map "," 'Info-index-next) |
(define-key Info-mode-map "," 'Info-index-next) |
2914 |
(define-key Info-mode-map "\177" 'Info-scroll-down) |
(define-key Info-mode-map "\177" 'Info-scroll-down) |
2915 |
(define-key Info-mode-map [mouse-2] 'Info-mouse-follow-nearest-node) |
(define-key Info-mode-map [mouse-2] 'Info-mouse-follow-nearest-node) |
2916 |
|
(define-key Info-mode-map [follow-link] 'mouse-face) |
2917 |
) |
) |
2918 |
|
|
2919 |
(defun Info-check-pointer (item) |
(defun Info-check-pointer (item) |
3454 |
(define-key keymap [header-line mouse-2] 'Info-next) |
(define-key keymap [header-line mouse-2] 'Info-next) |
3455 |
(define-key keymap [header-line down-mouse-1] 'ignore) |
(define-key keymap [header-line down-mouse-1] 'ignore) |
3456 |
(define-key keymap [mouse-2] 'Info-next) |
(define-key keymap [mouse-2] 'Info-next) |
3457 |
|
(define-key keymap [follow-link] 'mouse-face) |
3458 |
keymap) |
keymap) |
3459 |
"Keymap to put on the Next link in the text or the header line.") |
"Keymap to put on the Next link in the text or the header line.") |
3460 |
|
|
3464 |
(define-key keymap [header-line mouse-2] 'Info-prev) |
(define-key keymap [header-line mouse-2] 'Info-prev) |
3465 |
(define-key keymap [header-line down-mouse-1] 'ignore) |
(define-key keymap [header-line down-mouse-1] 'ignore) |
3466 |
(define-key keymap [mouse-2] 'Info-prev) |
(define-key keymap [mouse-2] 'Info-prev) |
3467 |
|
(define-key keymap [follow-link] 'mouse-face) |
3468 |
keymap) |
keymap) |
3469 |
"Keymap to put on the Prev link in the text or the header line.") |
"Keymap to put on the Prev link in the text or the header line.") |
3470 |
|
|
3475 |
(define-key keymap [header-line mouse-2] 'Info-up) |
(define-key keymap [header-line mouse-2] 'Info-up) |
3476 |
(define-key keymap [header-line down-mouse-1] 'ignore) |
(define-key keymap [header-line down-mouse-1] 'ignore) |
3477 |
(define-key keymap [mouse-2] 'Info-up) |
(define-key keymap [mouse-2] 'Info-up) |
3478 |
|
(define-key keymap [follow-link] 'mouse-face) |
3479 |
keymap) |
keymap) |
3480 |
"Keymap to put on the Up link in the text or the header line.") |
"Keymap to put on the Up link in the text or the header line.") |
3481 |
|
|
3510 |
(put-text-property tbeg nend 'mouse-face 'highlight) |
(put-text-property tbeg nend 'mouse-face 'highlight) |
3511 |
(put-text-property tbeg nend |
(put-text-property tbeg nend |
3512 |
'help-echo |
'help-echo |
3513 |
(concat "Go to node " |
(concat "mouse-2: Go to node " |
3514 |
(buffer-substring nbeg nend))) |
(buffer-substring nbeg nend))) |
3515 |
;; Always set up the text property keymap. |
;; Always set up the text property keymap. |
3516 |
;; It will either be used in the buffer |
;; It will either be used in the buffer |