diff options
Diffstat (limited to 'lisp/cedet/semantic.el')
| -rw-r--r-- | lisp/cedet/semantic.el | 27 |
1 files changed, 12 insertions, 15 deletions
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el index 1c9228b0123..0c15a2a453e 100644 --- a/lisp/cedet/semantic.el +++ b/lisp/cedet/semantic.el @@ -618,21 +618,18 @@ Does nothing if the current buffer doesn't need reparsing." (lexically-safe t) ) - (unwind-protect - ;; Perform the parsing. - (progn - (when (semantic-lex-catch-errors safe-refresh - (save-excursion (semantic-fetch-tags)) - nil) - ;; If we are here, it is because the lexical step failed, - ;; probably due to unterminated lists or something like that. - - ;; We do nothing, and just wait for the next idle timer - ;; to go off. In the meantime, remember this, and make sure - ;; no other idle services can get executed. - (setq lexically-safe nil)) - ) - ) + ;; Perform the parsing. + (when (semantic-lex-catch-errors safe-refresh + (save-excursion (semantic-fetch-tags)) + nil) + ;; If we are here, it is because the lexical step failed, + ;; probably due to unterminated lists or something like that. + + ;; We do nothing, and just wait for the next idle timer + ;; to go off. In the meantime, remember this, and make sure + ;; no other idle services can get executed. + (setq lexically-safe nil)) + ;; Return if we are lexically safe lexically-safe)))) |