From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 23 Oct 2019 20:15:41 +0000 (-0400)
Subject: * lisp/cedet/semantic/analyze/complete.el: Fix completion-at-point
X-Git-Tag: emacs-27.0.90~904
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72e1e30afeb3e69797fb43af216e9d8c4945359f;p=emacs.git

* 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.
---

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*"