119 |
(defvar goto-address-highlight-keymap |
(defvar goto-address-highlight-keymap |
120 |
(let ((m (make-sparse-keymap))) |
(let ((m (make-sparse-keymap))) |
121 |
(define-key m (if (featurep 'xemacs) (kbd "<button2>") (kbd "<mouse-2>")) |
(define-key m (if (featurep 'xemacs) (kbd "<button2>") (kbd "<mouse-2>")) |
122 |
'goto-address-at-point)) |
'goto-address-at-point) |
123 |
(define-key m (kbd "C-c RET") 'goto-address-at-point) |
(define-key m (kbd "C-c RET") 'goto-address-at-point) |
124 |
m) |
m) |
125 |
"keymap to hold goto-addr's mouse key defs under highlighted URLs.") |
"keymap to hold goto-addr's mouse key defs under highlighted URLs.") |