X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/88cb9c2b1ddd7215c5b856c9fe549a669ba68211..f19304cbc33560e0367c025f97995a2b3e7c8043:/el/dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index b77ea98..784aad1 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -654,8 +654,14 @@ case."
   (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.
 
@@ -699,6 +705,11 @@ doesn't match any of the regular expressions in
   (((type w32)) :family "courier new" :height 85)
   (((type x)) :family "6x13" :height 130)
   (t :foreground "white" :background "black"))
+(if (>= emacs-major-version 23)
+    (mdw-define-face variable-pitch
+      (((type x)) :family "sans" :height 100))
+  (mdw-define-face variable-pitch
+    (((type x)) :family "helvetica" :height 120)))
 (mdw-define-face region
   (((type tty)) :background "blue") (t :background "grey30"))
 (mdw-define-face minibuffer-prompt
@@ -713,9 +724,9 @@ doesn't match any of the regular expressions in
   (t :foreground "black" :background "lightgrey"))
 (mdw-define-face fringe
   (t :foreground "yellow"))
-(mdw-define-face show-paren-match-face
+(mdw-define-face show-paren-match
   (t :background "darkgreen"))
-(mdw-define-face show-paren-mismatch-face
+(mdw-define-face show-paren-mismatch
   (t :background "red"))
 (mdw-define-face highlight
   (t :background "DarkSeaGreen4"))
@@ -737,7 +748,7 @@ doesn't match any of the regular expressions in
 (mdw-define-face mdw-number-face
   (t :foreground "yellow"))
 (mdw-define-face font-lock-function-name-face
-  (t :weight bold))
+  (t :slant italic))
 (mdw-define-face font-lock-keyword-face
   (t :weight bold))
 (mdw-define-face font-lock-constant-face
@@ -799,6 +810,9 @@ doesn't match any of the regular expressions in
   (t :foreground "red"))
 (mdw-define-face diff-context)
 
+(mdw-define-face erc-input-face
+  (t :foreground "red"))
+
 (mdw-define-face woman-bold
   (t :weight bold))
 (mdw-define-face woman-italic