(message (format "%d" (length match-recs)))
(cond ((= 0 (length match-recs))
(message "No matching records"))
- ((= 1 (length match-recs)
+ ((= 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