# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 960989864 0
# Node ID dfb2dd2b862a08bc35b20f88c51b9445c3932bba
# Parent  35fabb4b6bab726d067c248e3d4c3dcb0ce2ce9e
(goto-address): Don't bind C-c RET locally.
(goto-address-highlight-keymap): Bind C-c RET.

diff -r 35fabb4b6bab -r dfb2dd2b862a lisp/net/goto-addr.el
--- a/lisp/net/goto-addr.el	Wed Jun 14 13:37:07 2000 +0000
+++ b/lisp/net/goto-addr.el	Wed Jun 14 13:37:44 2000 +0000
@@ -104,6 +104,7 @@
 (defvar goto-address-highlight-keymap
   (let ((m (make-sparse-keymap)))
     (define-key m [mouse-2] 'goto-address-at-mouse)
+    (define-key m "\C-c\r" 'goto-address-at-point)
     m)
   "keymap to hold goto-addr's mouse key defs under highlighted URLs.")
 
@@ -229,7 +230,6 @@
 Also fontifies the buffer appropriately (see `goto-address-fontify-p' and
 `goto-address-highlight-p' for more information)."
   (interactive)
-  (local-set-key "\C-c\r" 'goto-address-at-point)
   (if goto-address-highlight-p
       (goto-address-fontify)))