/[emacs]/emacs/lisp/info.el
ViewVC logotype

Diff of /emacs/lisp/info.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.413 by rms, Mon Dec 13 19:31:32 2004 UTC revision 1.414 by kfstorm, Sat Jan 8 20:06:23 2005 UTC
# Line 2913  if point is in a menu item description, Line 2913  if point is in a menu item description,
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)
# Line 3453  Preserve text properties." Line 3454  Preserve text properties."
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    
# Line 3462  Preserve text properties." Line 3464  Preserve text properties."
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    
# Line 3472  Preserve text properties." Line 3475  Preserve text properties."
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    
# Line 3506  Preserve text properties." Line 3510  Preserve text properties."
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

Legend:
Removed from v.1.413  
changed lines
  Added in v.1.414

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26