emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] 11/18: Revert "Fix ggtags-with-current-project to include GTAGSCO


From: Leo Liu
Subject: [elpa] 11/18: Revert "Fix ggtags-with-current-project to include GTAGSCONF"
Date: Sat, 05 Apr 2014 01:25:16 +0000

leoliu pushed a commit to branch master
in repository elpa.

commit c16d7b2c30b5d1f57239966c98dcc1f70a4237d5
Author: Leo Liu <address@hidden>
Date:   Thu Apr 3 10:12:17 2014 +0800

    Revert "Fix ggtags-with-current-project to include GTAGSCONF"
    
    This reverts commit e7c5371028912e07c37de2bf1c80c88bf51a1fea.
---
 ggtags.el |   13 ++-----------
 1 files changed, 2 insertions(+), 11 deletions(-)

diff --git a/ggtags.el b/ggtags.el
index fb9627d..e36fbb6 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -359,15 +359,13 @@ properly update `ggtags-mode-map'."
                               (:copier nil)
                               (:type vector)
                               :named)
-  root config tag-size has-refs has-path-style has-color dirty-p mtime 
timestamp)
+  root tag-size has-refs has-path-style has-color dirty-p mtime timestamp)
 
 (defun ggtags-make-project (root)
   (cl-check-type root string)
   (pcase (nthcdr 5 (file-attributes (expand-file-name "GTAGS" root)))
     (`(,mtime ,_ ,tag-size . ,_)
      (let* ((default-directory (file-name-as-directory root))
-            (config (cl-some (lambda (c) (and (file-exists-p c) c))
-                             '(".globalrc" "gtags.conf")))
             (rtags-size (nth 7 (file-attributes "GRTAGS")))
             (has-refs
              (when rtags-size
@@ -391,7 +389,6 @@ properly update `ggtags-mode-map'."
                     'has-color))))
        (puthash default-directory
                 (ggtags-project--make :root default-directory
-                                      :config config
                                       :tag-size tag-size
                                       :has-refs has-refs
                                       :has-path-style has-path-style
@@ -562,13 +559,7 @@ Value is new modtime if updated."
                      (and ,gtagsroot (list (concat "GTAGSROOT=" ,gtagsroot)))
                      (and (ggtags-find-project)
                           (not (ggtags-project-has-refs (ggtags-find-project)))
-                          (list "GTAGSLABEL=ctags"))
-                     (and ggtags-use-project-gtagsconf ,gtagsroot
-                          (ggtags-project-config (ggtags-find-project))
-                          (list (concat "GTAGSCONF="
-                                        (expand-file-name 
(ggtags-project-config
-                                                           
(ggtags-find-project))
-                                                          ,gtagsroot)))))))
+                          (list "GTAGSLABEL=ctags")))))
        (unwind-protect (save-current-buffer ,@body)
          (setq ggtags-project-root ,root)))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]