Commit e38427c5 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(goto-address): Don't bind C-c RET locally.

(goto-address-highlight-keymap): Bind C-c RET.
parent 9f25f6fb
...@@ -104,6 +104,7 @@ But only if `goto-address-highlight-p' is also non-nil." ...@@ -104,6 +104,7 @@ But only if `goto-address-highlight-p' is also non-nil."
(defvar goto-address-highlight-keymap (defvar goto-address-highlight-keymap
(let ((m (make-sparse-keymap))) (let ((m (make-sparse-keymap)))
(define-key m [mouse-2] 'goto-address-at-mouse) (define-key m [mouse-2] 'goto-address-at-mouse)
(define-key m "\C-c\r" 'goto-address-at-point)
m) m)
"keymap to hold goto-addr's mouse key defs under highlighted URLs.") "keymap to hold goto-addr's mouse key defs under highlighted URLs.")
...@@ -229,7 +230,6 @@ By default, goto-address binds to mouse-2 and C-c RET. ...@@ -229,7 +230,6 @@ By default, goto-address binds to mouse-2 and C-c RET.
Also fontifies the buffer appropriately (see `goto-address-fontify-p' and Also fontifies the buffer appropriately (see `goto-address-fontify-p' and
`goto-address-highlight-p' for more information)." `goto-address-highlight-p' for more information)."
(interactive) (interactive)
(local-set-key "\C-c\r" 'goto-address-at-point)
(if goto-address-highlight-p (if goto-address-highlight-p
(goto-address-fontify))) (goto-address-fontify)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment