[elpa] 01/08: Small fixes to ggtags-find-tag-regexp

[Leo Liu]

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)