chiark / gitweb /
el/dot-emacs.el: Restore `gtags' mouse bindings.
authorMark Wooding <mdw@distorted.org.uk>
Thu, 3 Dec 2009 13:30:41 +0000 (13:30 +0000)
committerMark Wooding <mdw@distorted.org.uk>
Thu, 3 Dec 2009 13:30:41 +0000 (13:30 +0000)
Sort of.  I've required C-S-... modifiers so that they don't conflict
with anything else.

el/dot-emacs.el

index 75bbe8e68d96454dae2dbe702fdd9724b5b9ac6c..e8431104b7ab3a6738c872b6dc17dda820a27674 100644 (file)
@@ -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.