diff options
| -rw-r--r-- | lisp/net/eudc-capf.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/net/eudc-capf.el b/lisp/net/eudc-capf.el index 92f0c80493d..e2bbd5b28b6 100644 --- a/lisp/net/eudc-capf.el +++ b/lisp/net/eudc-capf.el | |||
| @@ -123,11 +123,12 @@ queried for email addresses, and the results delivered to | |||
| 123 | (match-end 0))) | 123 | (match-end 0))) |
| 124 | (end (point)) | 124 | (end (point)) |
| 125 | (prefix (save-excursion (buffer-substring-no-properties beg end)))) | 125 | (prefix (save-excursion (buffer-substring-no-properties beg end)))) |
| 126 | (list beg end | 126 | (let ((result |
| 127 | (completion-table-with-cache | 127 | (eudc-query-with-words (split-string prefix "[ \t]+") t))) |
| 128 | (lambda (_) | 128 | (when result |
| 129 | (eudc-query-with-words (split-string prefix "[ \t]+") t)) | 129 | (list beg end |
| 130 | t)))))) | 130 | (completion-table-with-cache |
| 131 | (lambda (_) result) t)))))))) | ||
| 131 | 132 | ||
| 132 | (provide 'eudc-capf) | 133 | (provide 'eudc-capf) |
| 133 | ;;; eudc-capf.el ends here | 134 | ;;; eudc-capf.el ends here |