[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 17075a975f: EUDC: Fix eudc-capf-message-expand-name nil result
From: |
Thomas Fitzsimmons |
Subject: |
master 17075a975f: EUDC: Fix eudc-capf-message-expand-name nil result |
Date: |
Wed, 16 Nov 2022 20:30:19 -0500 (EST) |
branch: master
commit 17075a975ffefa7fc26d4681968a2f8bfe3a9cf2
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>
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)
---
lisp/net/eudc-capf.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/lisp/net/eudc-capf.el b/lisp/net/eudc-capf.el
index 92f0c80493..e2bbd5b28b 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
(match-end 0)))
(end (point))
(prefix (save-excursion (buffer-substring-no-properties beg
end))))
- (list beg end
- (completion-table-with-cache
- (lambda (_)
- (eudc-query-with-words (split-string prefix "[ \t]+") t))
- t))))))
+ (let ((result
+ (eudc-query-with-words (split-string prefix "[ \t]+") t)))
+ (when result
+ (list beg end
+ (completion-table-with-cache
+ (lambda (_) result) t))))))))
(provide 'eudc-capf)
;;; eudc-capf.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 17075a975f: EUDC: Fix eudc-capf-message-expand-name nil result,
Thomas Fitzsimmons <=