emacs-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]