[elpa] 03/07: For #34 and #48: Always update tags for current file on save

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit de8b41d1fe9117bdbd034288276bf749af157bab
Author: Leo Liu <address@hidden>
Date:   Sat Apr 19 11:00:30 2014 +0800

    For #34 and #48: Always update tags for current file on save
    
    Remove variable ggtags-global-always-update.
---
 ggtags.el |   16 +++++-----------
 1 files changed, 5 insertions(+), 11 deletions(-)

diff --git a/ggtags.el b/ggtags.el
index 4e8e2e2..05f8363 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -111,12 +111,6 @@ automatically switches to 'global --single-update'."
                  number)
   :group 'ggtags)
 
-(defcustom ggtags-global-always-update nil
-  "If non-nil always update tags for current file on save."
-  :safe 'booleanp
-  :type 'boolean
-  :group 'ggtags)
-
 (defcustom ggtags-include-pattern
   '("^\\s-*#\\(?:include\\|import\\)\\s-*[\"<]\\(?:[./]*\\)?\\(.*?\\)[\">]" . 
1)
   "Pattern used to detect #include files.
@@ -335,7 +329,7 @@ properly update `ggtags-mode-map'."
                                 'compilation-finish-functions ,exit-args))))))
 
 (defmacro ggtags-ensure-global-buffer (&rest body)
-  (declare (indent 0))
+  (declare (debug t) (indent 0))
   `(progn
      (or (and (buffer-live-p ggtags-global-last-buffer)
               (with-current-buffer ggtags-global-last-buffer
@@ -679,6 +673,7 @@ Do nothing if GTAGS exceeds the oversize limit unless 
FORCE."
        (setf (ggtags-project-mtime (ggtags-find-project)) (float-time))))))
 
 (defun ggtags-update-tags-single (file &optional nowait)
+  (cl-check-type file string)
   (ggtags-with-current-project
    (process-file (ggtags-program-path "global") nil (and nowait 0) nil
                  "--single-update" (ggtags-project-relative-file file))))
@@ -1554,6 +1549,7 @@ commands `next-error' and `previous-error'.
   (ggtags-navigation-mode-cleanup))
 
 (defun ggtags-navigation-mode-abort ()
+  "Abort navigation and return to where the search was started."
   (interactive)
   (ggtags-navigation-mode -1)
   (ggtags-navigation-mode-cleanup nil 0)
@@ -1697,10 +1693,8 @@ commands `next-error' and `previous-error'.
 (defun ggtags-after-save-function ()
   (when (ggtags-find-project)
     (ggtags-project-update-mtime-maybe)
-    ;; When oversize update on a per-save basis.
-    (when (and buffer-file-name
-               (or ggtags-global-always-update (ggtags-project-oversize-p)))
-      (ggtags-update-tags-single buffer-file-name 'nowait))))
+    (and buffer-file-name
+         (ggtags-update-tags-single buffer-file-name 'nowait))))
 
 (defun ggtags-global-output (buffer cmds callback &optional cutoff)
   "Asynchronously pipe the output of running CMDS to BUFFER.