[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
gtags.el: run mode hooks as the last thing
From: |
Jani Nikula |
Subject: |
gtags.el: run mode hooks as the last thing |
Date: |
Wed, 17 Aug 2011 11:33:54 +0300 (EEST) |
User-agent: |
Alpine 2.00 (DEB 1167 2008-08-23) |
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)
- gtags.el: run mode hooks as the last thing,
Jani Nikula <=