Give error message when no matching records are found

diff --git a/lisp/eweouz.el b/lisp/eweouz.el
index 70ff29bc23284c36460db24b003f27a25bfd044e..216f5696218c50e4501cc0159920db8f9523d1bc 100644 (file)
--- a/lisp/eweouz.el
+++ b/lisp/eweouz.el
@@ -62,11 +62,13 @@
     (eweouz-search-do '(lambda (x) (add-to-list 'match-recs x)) typed)
     (message (format "%s" match-recs))
     (message (format "%d" (length match-recs)))
-    (cond ((= 1 (length match-recs))
+    (cond ((= 0 (length match-recs))
+          (message "No matching records"))
+         ((= 1 (length match-recs)
          ; Just one match; insert it
           (progn
             (delete-region beg end)
-            (insert (vcard-format-sample-get-name (car match-recs)))))
+            (insert (vcard-format-sample-get-name (car match-recs))))))
          ((< 1 (length match-recs))
           ;; For now, just display the records and leave the user to
           ;; complete