From 3162d922625f71990532abae1f67e3b6ac2a1454 Mon Sep 17 00:00:00 2001
From: James Bunton <jamesbunton@delx.net.au>
Date: Sat, 11 Feb 2017 11:17:13 +1100
Subject: [PATCH] Change go to address at point bindings

---
 lisp/my-keys.el        | 8 ++++++++
 lisp/my-minor-modes.el | 6 ++++++
 2 files changed, 14 insertions(+)

diff --git a/lisp/my-keys.el b/lisp/my-keys.el
index aee4588..4ed7196 100644
--- a/lisp/my-keys.el
+++ b/lisp/my-keys.el
@@ -68,6 +68,14 @@
 (global-set-key (kbd "<f9>") 'whitespace-mode)
 (global-set-key (kbd "<f10>") 'toggle-truncate-lines)
 
+;; Disable some default bindings from the builtin mouse.el
+(global-set-key [C-down-mouse-1] nil)
+(global-set-key [C-down-mouse-2] nil)
+(global-set-key [C-down-mouse-3] nil)
+(global-set-key [S-down-mouse-1] nil)
+(global-set-key [S-down-mouse-2] nil)
+(global-set-key [S-down-mouse-3] nil)
+
 
 (defun my/window-resize-mode ()
   (interactive)
diff --git a/lisp/my-minor-modes.el b/lisp/my-minor-modes.el
index 20bb7ce..b6e36ea 100644
--- 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)
-- 
2.39.2