Work around yank text bug

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

diff --git a/lisp/my-minor-modes.el b/lisp/my-minor-modes.el
index b6e36eaae979dacc3dbe02c93f36d8b9f83eaec4..34ee915fc397479a94ee20eab13e4002ef6f8179 100644 (file)
--- a/lisp/my-minor-modes.el
+++ b/lisp/my-minor-modes.el
@@ -32,6 +32,7 @@
 (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 "<mouse-2>") 'ignore) ; fixes yank text bug for some reason
         (define-key m (kbd "C-c RET") 'goto-address-at-point)
         m))