* lisp/net/rcirc.el: Add follow-link binding (Bug#4738).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eb35ed93afcb42df606c387aabc0ca9527188150..20a6e5e2bdf2e4ecf2a3779d5676167b663140e5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-01-02  Ryan Yeske  <rcyeske@gmail.com>
+
+       * net/rcirc.el: Add follow-link binding (Bug#4738).
+
 2010-01-02  Eli Zaretskii  <eliz@gnu.org>
 
        * Makefile.in (bzr-update): Renamed from cvs-update.

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index d1f54c9909dd39d134fcc9f5129dc92a34b23edd..e4aaef94983bd0e2845d078892af83bce046776f 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -836,6 +836,7 @@ If SILENT is non-nil, do not print the message in any irc buffer."
 
 (define-key rcirc-browse-url-map (kbd "RET") 'rcirc-browse-url-at-point)
 (define-key rcirc-browse-url-map (kbd "<mouse-2>") 'rcirc-browse-url-at-mouse)
+(define-key rcirc-browse-url-map [follow-link] 'mouse-face)
 
 (defvar rcirc-short-buffer-name nil
   "Generated abbreviation to use to indicate buffer activity.")