From 506bada965ae0c559cb2e9c9dbff460c782f391f Mon Sep 17 00:00:00 2001 Message-Id: <506bada965ae0c559cb2e9c9dbff460c782f391f.1717672434.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 3 Dec 2009 13:30:41 +0000 Subject: [PATCH] el/dot-emacs.el: Restore `gtags' mouse bindings. Organization: Straylight/Edgeware From: Mark Wooding Sort of. I've required C-S-... modifiers so that they don't conflict with anything else. --- el/dot-emacs.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/el/dot-emacs.el b/el/dot-emacs.el index 75bbe8e..e843110 100644 --- a/el/dot-emacs.el +++ b/el/dot-emacs.el @@ -654,8 +654,14 @@ (defun mdw-misc-mode-config () (trap (turn-on-font-lock))) (eval-after-load 'gtags - '(dolist (key '([mouse-2] [mouse-3])) - (define-key gtags-mode-map key nil))) + '(progn + (dolist (key '([mouse-2] [mouse-3])) + (define-key gtags-mode-map key nil)) + (define-key gtags-mode-map [C-S-mouse-2] 'gtags-find-tag-by-event) + (define-key gtags-select-mode-map [C-S-mouse-2] + 'gtags-select-tag-by-event) + (dolist (map (list gtags-mode-map gtags-select-mode-map)) + (define-key map [C-S-mouse-3] 'gtags-pop-stack)))) ;; Backup file handling. -- [mdw]