diff options
| author | Chong Yidong | 2009-09-07 01:31:06 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-09-07 01:31:06 +0000 |
| commit | 59aec83e8f0860e857ad00de8f780f83ce2d05a1 (patch) | |
| tree | f1eae2b473c8b51e2bbc001f72a0be38af752049 | |
| parent | a60f2e7b9c0567bec9ba06c73ccad235b32d8b8f (diff) | |
| download | emacs-59aec83e8f0860e857ad00de8f780f83ce2d05a1.tar.gz emacs-59aec83e8f0860e857ad00de8f780f83ce2d05a1.zip | |
lisp/cedet/semantic.el (semantic-fetch-tags): Check if progress
reporter is in use before calling it.
| -rw-r--r-- | lisp/cedet/semantic.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el index 97780453058..c683cf84837 100644 --- a/lisp/cedet/semantic.el +++ b/lisp/cedet/semantic.el | |||
| @@ -594,7 +594,8 @@ was marked unparseable, then do nothing, and return the cache." | |||
| 594 | (semantic-parser-working-message (buffer-name)) | 594 | (semantic-parser-working-message (buffer-name)) |
| 595 | 0 100)))) | 595 | 0 100)))) |
| 596 | (setq res (semantic-parse-region (point-min) (point-max))) | 596 | (setq res (semantic-parse-region (point-min) (point-max))) |
| 597 | (progress-reporter-done semantic--progress-reporter)) | 597 | (if semantic--progress-reporter |
| 598 | (progress-reporter-done semantic--progress-reporter))) | ||
| 598 | 599 | ||
| 599 | ;; Clear the caches when we see there were no errors. | 600 | ;; Clear the caches when we see there were no errors. |
| 600 | ;; But preserve the unmatched syntax cache and warnings! | 601 | ;; But preserve the unmatched syntax cache and warnings! |