;;; cedet-global.el --- GNU Global support for CEDET.
-;; Copyright (C) 2008-2012 Free Software Foundation, Inc.
+;; Copyright (C) 2008-2015 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <eric@siege-engine.com>
;; Package: cedet
(apply 'call-process cedet-global-gtags-command
nil b nil
flags)
+
+ ;; Check for warnings.
+ (with-current-buffer b
+ (goto-char (point-min))
+ (when (re-search-forward "Error\\|Warning" nil t)
+ (error "Output:\n%S" (buffer-string))))
+
b))
(defun cedet-gnu-global-expand-filename (filename)
(let ((default-directory dir))
(cedet-gnu-global-gtags-call
(when root
- '("-i");; Incremental update flag.
- )))))
+ '("-u");; Incremental update flag.
+ ))
+ )
+ ))
(provide 'cedet-global)