Emacs: Fix mu contact completion when there are no matching contacts

1 files changed, 9 insertions, 6 deletions

diff --git a/common/.emacs.d/init.el b/common/.emacs.d/init.el
index 3ec6f05..0a7f33e 100644
--- a/common/.emacs.d/init.el
+++ b/common/.emacs.d/init.el
@@ -2007,12 +2007,15 @@ buffer's text scale."
               end
               (completion-table-dynamic
                (lambda (string)
-                 (thread-last
-                   (shell-quote-argument string)
-                   (format "mu cfind --format=json %s")
-                   shell-command-to-string
-                   json-parse-string
-                   (mapcar (lambda (h) (gethash "display" h))))))
+                 (let ((jsonstr
+                        (thread-last
+                          (shell-quote-argument string)
+                          (format "mu cfind --format=json %s 2>/dev/null")
+                          shell-command-to-string)))
+                   (when (not (string-empty-p jsonstr))
+                     (thread-last
+                       (json-parse-string jsonstr)
+                       (mapcar (lambda (h) (gethash "display" h))))))))
               :exclusive 'no))))
   (add-hook
    'message-mode-hook