aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStephen Leake2015-10-27 10:35:15 -0500
committerStephen Leake2015-10-27 10:41:12 -0500
commite166a701dd6263f29d9787deaf53d93f27557baa (patch)
treed159c487106c3048c319a6a971fdffde6d3fb613
parentf72ac3591b10cea65ea0969396995b97a887e571 (diff)
downloademacs-e166a701dd6263f29d9787deaf53d93f27557baa.tar.gz
emacs-e166a701dd6263f29d9787deaf53d93f27557baa.zip
Minor CEDET fixes
* lisp/cedet/cedet-global.el (cedet-gnu-global-gtags-call): Handle warnings from gtags about invalid options. (cedet-gnu-global-create/update-database): Do incremental update properly. * lisp/cedet/ede/generic.el (ede-enable-generic-projects): Get monotone root right.
-rw-r--r--lisp/cedet/cedet-global.el16
-rw-r--r--lisp/cedet/ede/generic.el2
2 files changed, 10 insertions, 8 deletions
diff --git a/lisp/cedet/cedet-global.el b/lisp/cedet/cedet-global.el
index 3773ba09f32..3ceed5d3b54 100644
--- a/lisp/cedet/cedet-global.el
+++ b/lisp/cedet/cedet-global.el
@@ -97,7 +97,7 @@ SCOPE is the scope of the search, such as 'project or 'subdirs."
97 ;; Check for warnings. 97 ;; Check for warnings.
98 (with-current-buffer b 98 (with-current-buffer b
99 (goto-char (point-min)) 99 (goto-char (point-min))
100 (when (re-search-forward "Error\\|Warning" nil t) 100 (when (re-search-forward "Error\\|Warning\\|invalid" nil t)
101 (error "Output:\n%S" (buffer-string)))) 101 (error "Output:\n%S" (buffer-string))))
102 102
103 b)) 103 b))
@@ -186,12 +186,14 @@ If a database already exists, then just update it."
186 (let ((root (cedet-gnu-global-root dir))) 186 (let ((root (cedet-gnu-global-root dir)))
187 (if root (setq dir root)) 187 (if root (setq dir root))
188 (let ((default-directory dir)) 188 (let ((default-directory dir))
189 (cedet-gnu-global-gtags-call 189 (if root
190 (when root 190 ;; Incremental update. This can be either "gtags -i" or
191 '("-u");; Incremental update flag. 191 ;; "global -u"; the gtags manpage says it's better to use
192 )) 192 ;; "global -u".
193 ) 193 (cedet-gnu-global-call (list "-u"))
194 )) 194 (cedet-gnu-global-gtags-call nil)
195 )
196 )))
195 197
196(provide 'cedet-global) 198(provide 'cedet-global)
197 199
diff --git a/lisp/cedet/ede/generic.el b/lisp/cedet/ede/generic.el
index b865ff5028d..d3be545a158 100644
--- a/lisp/cedet/ede/generic.el
+++ b/lisp/cedet/ede/generic.el
@@ -303,7 +303,7 @@ CLASS is the EIEIO class that is used to track this project. It should subclass
303 (ede-generic-new-autoloader "generic-cvs" "Generic CVS" 303 (ede-generic-new-autoloader "generic-cvs" "Generic CVS"
304 "CVS" 'ede-generic-vc-project) 304 "CVS" 'ede-generic-vc-project)
305 (ede-generic-new-autoloader "generic-mtn" "Generic Monotone" 305 (ede-generic-new-autoloader "generic-mtn" "Generic Monotone"
306 "_MTN/options" 'ede-generic-vc-project) 306 "_MTN" 'ede-generic-vc-project)
307 307
308 ;; Take advantage of existing 'projectile' based projects. 308 ;; Take advantage of existing 'projectile' based projects.
309 ;; @TODO - if projectile supports compile commands etc, can we 309 ;; @TODO - if projectile supports compile commands etc, can we