Change go to address at point bindings

[dotemacs] / lisp / my-minor-modes.el

diff --git a/lisp/my-minor-modes.el b/lisp/my-minor-modes.el
index 20bb7cea6e5dcf23fb7559a6a92cd358b10acc80..b6e36eaae979dacc3dbe02c93f36d8b9f83eaec4 100644 (file)
--- a/lisp/my-minor-modes.el
+++ b/lisp/my-minor-modes.el
@@ -29,6 +29,12 @@
 (require 'goto-addr)
 (add-hook 'text-mode-hook #'goto-address-mode)
 (add-hook 'prog-mode-hook #'goto-address-prog-mode)
+(setq goto-address-highlight-keymap
+      (let ((m (make-sparse-keymap)))
+        (define-key m (kbd "C-<mouse-1>") 'goto-address-at-point)
+        (define-key m (kbd "C-c RET") 'goto-address-at-point)
+        m))
+
 
 (require 'hl-line)
 (global-hl-line-mode)