diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-09-29 20:48:31 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-09-29 20:48:31 -0400 |
| commit | a19f0977a96ee74b96410b41a8ea793c86f64b58 (patch) | |
| tree | 4a57254f896666d566871fae44b1b090a25c0650 /lisp/minibuffer.el | |
| parent | 73486689523ba42c04c006e6840f7f5f18deb016 (diff) | |
| download | emacs-a19f0977a96ee74b96410b41a8ea793c86f64b58.tar.gz emacs-a19f0977a96ee74b96410b41a8ea793c86f64b58.tar.bz2 emacs-a19f0977a96ee74b96410b41a8ea793c86f64b58.zip | |
* lisp/minibuffer.el (completion-at-point): Emit warning for ill-behaved
completion functions.
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index f998843cd85..fb74af2e0df 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -2106,7 +2106,11 @@ The completion method is determined by `completion-at-point-functions'." (completion-in-region start end collection (plist-get plist :predicate)))) ;; Maybe completion already happened and the function returned t. - (_ (cdr res))))) + (_ + (when (cdr res) + (message "Warning: %S failed to return valid completion data!" + (car res))) + (cdr res))))) (defun completion-help-at-point () "Display the completions on the text around point. |