el/dot-emacs.el: Restore `gtags' mouse bindings.

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 75bbe8e68d96454dae2dbe702fdd9724b5b9ac6c..e8431104b7ab3a6738c872b6dc17dda820a27674 100644 (file)
--- 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.