[elpa] 06/08: Stricter search for GTAGS file in ggtags-find-project

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit a5843afc7a8c766c38d35dcb6b083478d5dddab6
Author: Leo Liu <address@hidden>
Date:   Sun Feb 23 15:03:20 2014 +0800

    Stricter search for GTAGS file in ggtags-find-project
    
    to avoid being fooled by 'gtags' directory in case-insensitive file
    systems.
---
 ggtags.el |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/ggtags.el b/ggtags.el
index 1383817..960feb3 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -330,7 +330,9 @@ properly update `ggtags-mode-map'."
                 ;; https://github.com/leoliu/ggtags/issues/22, so
                 ;; let's help it out.
                 (when-let (gtags (locate-dominating-file
-                                  default-directory "GTAGS"))
+                                  default-directory
+                                  (lambda (dir)
+                                    (file-regular-p (expand-file-name "GTAGS" 
dir)))))
                   (file-truename gtags))))
       (when ggtags-project-root
         (or (gethash ggtags-project-root ggtags-projects)