------------------------------------------------------------
revno: 375
committer: Leo Liu <sdl....@gmail.com>
branch nick: elpa
timestamp: Thu 2013-03-28 10:53:02 +0800
message:
* ggtags.el: Release v0.6.3
- handle buffers not visiting files more gracefully
- give higher priority to ggtags-navigation-mode
or modes such as view-mode may shadow its key bindings.
removed:
packages/ggtags/README
modified:
packages/ggtags/ggtags.el
=== removed file 'packages/ggtags/README'
--- a/packages/ggtags/README 2013-02-02 15:38:27 +0000
+++ b/packages/ggtags/README 1970-01-01 00:00:00 +0000
@@ -1,22 +0,0 @@
-Type `M-x ggtags-mode' to enable the minor mode, or as usual enable it
-in your desired major mode hooks. When the mode is on the symbol at
-point is underlined if it is a valid tag.
-
-`M-.' finds definitions or references according to the tag at point,
-i.e. if point is at a definition tag find references and vice versa.
-`C-u M-.' is verbose and will ask you the name - with completion - and
-the type of tag to search.
-
-If multiple matches are found, navigation mode is entered. In this
-mode, `M-n' and `M-p' moves to next and previous match, `M-}' and
-`M-{' to next and previous file respectively. `M-o' toggles between
-full and abbreviated displays of file names in the auxiliary popup
-window. When you locate the right match, press RET to finish which
-hides the auxiliary window and exits navigation mode. You can resume
-the search using `M-,'. To abort the search press `M-*'.
-
-Normally after a few searches a dozen buffers are created visiting
-files tracked by GNU Global. `C-c M-k' helps clean them up.
-
-Bugs:
-https://github.com/leoliu/ggtags/issues
=== modified file 'packages/ggtags/ggtags.el'
--- a/packages/ggtags/ggtags.el 2013-03-21 07:16:18 +0000
+++ b/packages/ggtags/ggtags.el 2013-03-28 02:53:02 +0000
@@ -3,7 +3,7 @@
;; Copyright (C) 2013 Free Software Foundation, Inc.
;; Author: Leo Liu <sdl....@gmail.com>
-;; Version: 0.6.2
+;; Version: 0.6.3
;; Keywords: tools, convenience
;; Created: 2013-01-29
;; URL: https://github.com/leoliu/ggtags
@@ -23,8 +23,30 @@
;;; Commentary:
-;; Use GNU Global source code tagging system in Emacs.
-;; http://www.gnu.org/software/global
+;; A package to integrate GNU Global source code tagging system
+;; (http://www.gnu.org/software/global) with Emacs.
+;;
+;; Usage:
+;;
+;; Type `M-x ggtags-mode' to enable the minor mode, or as usual enable
+;; it in your desired major mode hooks. When the mode is on the symbol
+;; at point is underlined if it is a valid (definition) tag.
+;;
+;; `M-.' finds definition or references according to the context at
+;; point, i.e. if point is at a definition tag find references and
+;; vice versa. `C-u M-.' is verbose and will ask you the name - with
+;; completion - and the type of tag to search.
+;;
+;; If multiple matches are found, navigation mode is entered. In this
+;; mode, `M-n' and `M-p' moves to next and previous match, `M-}' and
+;; `M-{' to next and previous file respectively. `M-o' toggles between
+;; full and abbreviated displays of file names in the auxiliary popup
+;; window. When you locate the right match, press RET to finish which
+;; hides the auxiliary window and exits navigation mode. You can
+;; resume the search using `M-,'. To abort the search press `M-*'.
+;;
+;; Normally after a few searches a dozen buffers are created visiting
+;; files tracked by GNU Global. `C-c M-k' helps clean them up.
;;; Code:
@@ -217,10 +239,10 @@
(lambda (w) (split-window (frame-root-window w))))
(default-directory (ggtags-root-directory)))
(compilation-start
- (if verbose
+ (if (or verbose (not buffer-file-name))
(format "global %s %s \"%s\""
ggtags-global-options
- (if (y-or-n-p "Kind (y for definition n for reference)? ")
+ (if (y-or-n-p "Find definition (n for reference)? ")
"" "-r")
name)
(format "global %s --from-here=%d:%s \"%s\""
@@ -457,8 +479,9 @@
(if ggtags-mode
(progn
(add-hook 'after-save-hook 'ggtags-after-save-function nil t)
- (when (executable-find "global")
- (add-hook 'post-command-hook 'ggtags-post-command-function nil t)))
+ (if (executable-find "global")
+ (add-hook 'post-command-hook 'ggtags-post-command-function nil t)
+ (message "Failed to find GNU Global")))
(remove-hook 'after-save-hook 'ggtags-after-save-function t)
(remove-hook 'post-command-hook 'ggtags-post-command-function t)
(and (overlayp ggtags-tag-overlay)
@@ -514,5 +537,14 @@
(setq he-expand-list (cdr he-expand-list))
t)))
+;;; Finish up
+
+;; Higher priority for `ggtags-navigation-mode' to avoid being
+;; hijacked by modes such as `view-mode'.
+(defvar ggtags-mode-map-alist
+ `((ggtags-navigation-mode . ,ggtags-navigation-mode-map)))
+
+(add-to-list 'emulation-mode-map-alists 'ggtags-mode-map-alist)
+
(provide 'ggtags)
;;; ggtags.el ends here
