diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-10-23 16:15:41 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-10-23 16:15:41 -0400 |
| commit | 72e1e30afeb3e69797fb43af216e9d8c4945359f (patch) | |
| tree | 0c463630876a8ce841dca367943e78fe52be4b35 /lisp/cedet | |
| parent | b7037662e1111d55218fb2345f9ebb9ed3ebef13 (diff) | |
| download | emacs-72e1e30afeb3e69797fb43af216e9d8c4945359f.tar.gz | |
* lisp/cedet/semantic/analyze/complete.el: Fix completion-at-point
Completion tables are not supposed to signal errors:
emacs -q
M-x semantic-mode
; visit a file supported by semantic, such as a C file
; put cursor in a blank space
M-x completion-at-point
It will error with: "Nothing to complete"
(semantic-analyze-possible-completions): Return nil instead of
signaling errors.
Diffstat (limited to 'lisp/cedet')
| -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." context (semantic-analyze-current-context context))) (ans (if (not context) - (error "Nothing to complete") - (:override)))) + (when (called-interactively-p 'any) + (error "Nothing to complete")) + (with-demoted-errors "%S" + (:override))))) ;; If interactive, display them. (when (called-interactively-p 'any) (with-output-to-temp-buffer "*Possible Completions*" |