diff options
| -rw-r--r-- | lisp/cedet/semantic/analyze/complete.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/cedet/semantic/analyze/complete.el b/lisp/cedet/semantic/analyze/complete.el index b471c0d1a13..b473ade1594 100644 --- a/lisp/cedet/semantic/analyze/complete.el +++ b/lisp/cedet/semantic/analyze/complete.el | |||
| @@ -93,8 +93,10 @@ in a buffer." | |||
| 93 | context | 93 | context |
| 94 | (semantic-analyze-current-context context))) | 94 | (semantic-analyze-current-context context))) |
| 95 | (ans (if (not context) | 95 | (ans (if (not context) |
| 96 | (error "Nothing to complete") | 96 | (when (called-interactively-p 'any) |
| 97 | (:override)))) | 97 | (error "Nothing to complete")) |
| 98 | (with-demoted-errors "%S" | ||
| 99 | (:override))))) | ||
| 98 | ;; If interactive, display them. | 100 | ;; If interactive, display them. |
| 99 | (when (called-interactively-p 'any) | 101 | (when (called-interactively-p 'any) |
| 100 | (with-output-to-temp-buffer "*Possible Completions*" | 102 | (with-output-to-temp-buffer "*Possible Completions*" |