Change go to address at point bindings

diff --git a/lisp/my-keys.el b/lisp/my-keys.el
index aee4588e54d1a0741c23e53ad5460bbef1c775d3..4ed7196fe92618dde148deedd5accf5d6575375f 100644 (file)
--- 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 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)