leoliu pushed a commit to branch master
in repository elpa.
commit ae512f5eaecf435a3628f552e378b041e9f44ac5
Author: Leo Liu <sdl....@gmail.com>
Date: Wed Feb 19 17:25:23 2014 +0800
Small fixes to ggtags-find-tag-regexp
---
ggtags.el | 15 +++++++++------
1 files changed, 9 insertions(+), 6 deletions(-)
diff --git a/ggtags.el b/ggtags.el
index 1cd40bf..fd23802 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -3,7 +3,7 @@
;; Copyright (C) 2013-2014 Free Software Foundation, Inc.
;; Author: Leo Liu <sdl....@gmail.com>
-;; Version: 0.7.9
+;; Version: 0.7.10
;; Keywords: tools, convenience
;; Created: 2013-01-29
;; URL: https://github.com/leoliu/ggtags
@@ -641,14 +641,17 @@ Invert the match when called with a prefix arg
\\[universal-argument]."
(defun ggtags-find-tag-regexp (regexp directory)
"List tags matching REGEXP in DIRECTORY (default to project root)."
(interactive
- (list (ggtags-read-string "POSIX regexp")
- (if current-prefix-arg
- (read-directory-name "Directory: " nil nil t)
- (ggtags-current-project-root))))
+ (progn
+ (ggtags-check-project)
+ (list (ggtags-read-string "POSIX regexp")
+ (if current-prefix-arg
+ (read-directory-name "Directory: " nil nil t)
+ (ggtags-current-project-root)))))
(ggtags-check-project)
(let ((root (file-name-as-directory directory))
(cmd (ggtags-global-build-command
- nil nil "-l" "--regexp" (prin1-to-string regexp))))
+ nil nil "-l" "--regexp"
+ (prin1-to-string (substring-no-properties regexp)))))
(ggtags-global-start cmd root)))
(defun ggtags-query-replace (from to &optional delimited)
