diff options
| author | Stephen Leake | 2015-10-27 10:35:15 -0500 |
|---|---|---|
| committer | Stephen Leake | 2015-10-27 10:41:12 -0500 |
| commit | e166a701dd6263f29d9787deaf53d93f27557baa (patch) | |
| tree | d159c487106c3048c319a6a971fdffde6d3fb613 | |
| parent | f72ac3591b10cea65ea0969396995b97a887e571 (diff) | |
| download | emacs-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.el | 16 | ||||
| -rw-r--r-- | lisp/cedet/ede/generic.el | 2 |
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 |