Mercurial > emacs
comparison lisp/net/rcirc.el @ 106707:51aa25e5e86b
* lisp/net/rcirc.el: Add follow-link binding (Bug#4738).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 02 Jan 2010 11:13:22 -0500 |
| parents | df4934f25eef |
| children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
| 106706:f2acba714cf4 | 106707:51aa25e5e86b |
|---|---|
| 834 (defvar rcirc-browse-url-map (make-sparse-keymap) | 834 (defvar rcirc-browse-url-map (make-sparse-keymap) |
| 835 "Keymap used for browsing URLs in `rcirc-mode'.") | 835 "Keymap used for browsing URLs in `rcirc-mode'.") |
| 836 | 836 |
| 837 (define-key rcirc-browse-url-map (kbd "RET") 'rcirc-browse-url-at-point) | 837 (define-key rcirc-browse-url-map (kbd "RET") 'rcirc-browse-url-at-point) |
| 838 (define-key rcirc-browse-url-map (kbd "<mouse-2>") 'rcirc-browse-url-at-mouse) | 838 (define-key rcirc-browse-url-map (kbd "<mouse-2>") 'rcirc-browse-url-at-mouse) |
| 839 (define-key rcirc-browse-url-map [follow-link] 'mouse-face) | |
| 839 | 840 |
| 840 (defvar rcirc-short-buffer-name nil | 841 (defvar rcirc-short-buffer-name nil |
| 841 "Generated abbreviation to use to indicate buffer activity.") | 842 "Generated abbreviation to use to indicate buffer activity.") |
| 842 | 843 |
| 843 (defvar rcirc-mode-hook nil | 844 (defvar rcirc-mode-hook nil |