gtags.el: run mode hooks as the last thing

[Jani Nikula]

Hi -

After the changes in the default key and mouse mappings in the recent 
versions of gtags.el, the mode hooks are no longer the last thing run when 
entering the mode. If I wanted to have gtags-suggested-key-mapping t, but 
disable or modify some key mapping in a hook, it would not be possible. 
It's a minor thing, but I think the correct order would be as in the patch 
below.

BR,
Jani.


--- gtags.orig  2011-08-17 11:07:47.982839234 +0300
+++ gtags.el    2011-08-17 11:08:34.582839262 +0300
@@ -688,7 +688,6 @@
   (setq gtags-mode
       (if (null forces) (not gtags-mode)
         (> (prefix-numeric-value forces) 0)))
-  (run-hooks 'gtags-mode-hook)
   ; Suggested key mapping
   (if gtags-suggested-key-mapping
       (progn
@@ -712,6 +711,7 @@
             (define-key gtags-mode-map [mouse-3] 'gtags-pop-stack)
             (define-key gtags-mode-map [mouse-2] 'gtags-find-tag-by-event)))
   )
+  (run-hooks 'gtags-mode-hook)
 )

 ;; make gtags select-mode
@@ -737,7 +737,6 @@
   (setq gtags-current-buffer (current-buffer))
   (goto-char (point-min))
   (message "[GTAGS SELECT MODE] %d lines" (count-lines (point-min) 
(point-max)))
-  (run-hooks 'gtags-select-mode-hook)
   ; Mouse key mapping
   (if gtags-suggested-key-mapping
       (progn
@@ -748,6 +747,7 @@
             (define-key gtags-select-mode-map [mouse-3] 'gtags-pop-stack)
             (define-key gtags-select-mode-map [mouse-2] 
'gtags-select-tag-by-event)))
   )
+  (run-hooks 'gtags-select-mode-hook)
 )

 (provide 'gtags)