diff options
| author | Thomas Fitzsimmons | 2022-11-16 20:29:26 -0500 |
|---|---|---|
| committer | Thomas Fitzsimmons | 2022-11-16 20:29:26 -0500 |
| commit | 17075a975ffefa7fc26d4681968a2f8bfe3a9cf2 (patch) | |
| tree | eb3b2690a5b7a62f894e98e85c6275528a361631 | |
| parent | f696d27d1ca8e5fe72cd2cd305f5c00b906a00b1 (diff) | |
| download | emacs-17075a975ffefa7fc26d4681968a2f8bfe3a9cf2.tar.gz emacs-17075a975ffefa7fc26d4681968a2f8bfe3a9cf2.zip | |
EUDC: Fix eudc-capf-message-expand-name nil result
* lisp/net/eudc-capf.el (eudc-capf-message-expand-name): Return
nil if EUDC query returns no results. (Bug#59314)
| -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 |