diff options
Diffstat (limited to 'lisp/cedet/semantic/complete.el')
| -rw-r--r-- | lisp/cedet/semantic/complete.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index 58453ec223c..c379b05534c 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el @@ -2030,13 +2030,12 @@ how completion options are displayed." (semantic-complete-inline-analyzer (semantic-analyze-current-context (point)))) ;; Report a message if things didn't startup. - (if (and (interactive-p) + (if (and (called-interactively-p 'any) (not (semantic-completion-inline-active-p))) (message "Inline completion not needed.") ;; Since this is most likely bound to something, and not used ;; at idle time, throw in a TAB for good measure. - (semantic-complete-inline-TAB) - )) + (semantic-complete-inline-TAB))) ;;;###autoload (defun semantic-complete-analyze-inline-idle () @@ -2053,10 +2052,9 @@ to change how completion options are displayed." (semantic-complete-inline-analyzer-idle (semantic-analyze-current-context (point)))) ;; Report a message if things didn't startup. - (if (and (interactive-p) + (if (and (called-interactively-p 'interactive) (not (semantic-completion-inline-active-p))) - (message "Inline completion not needed.")) - ) + (message "Inline completion not needed."))) ;;;###autoload (defun semantic-complete-self-insert (arg) |