]> git.eshelyaron.com Git - emacs.git/commitdiff
EUDC: Fix eudc-capf-message-expand-name nil result
authorThomas Fitzsimmons <fitzsim@fitzsim.org>
Thu, 17 Nov 2022 01:29:26 +0000 (20:29 -0500)
committerThomas Fitzsimmons <fitzsim@fitzsim.org>
Thu, 17 Nov 2022 01:29:26 +0000 (20:29 -0500)
* 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

index 92f0c80493d1f932d617b2a2f59a7fd608747aaa..e2bbd5b28b6c006ed5dee54d6d29ea9c202f7404 100644 (file)
@@ -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