From c98281fcfe863de280d3c385a56cfc8cb16e064c Mon Sep 17 00:00:00 2001 From: Morgan Smith Date: Thu, 28 Oct 2021 01:45:25 -0400 Subject: [PATCH] Remove compatibility code --- org-contacts.el | 7 ------- 1 file changed, 7 deletions(-) diff --git a/org-contacts.el b/org-contacts.el index 5d54325..7be845a 100644 --- a/org-contacts.el +++ b/org-contacts.el @@ -340,13 +340,6 @@ cell corresponding to the contact properties. (or (cdr (assoc-string "ALLTAGS" (caddr contact))) "") ":")))) collect contact))) -(when (not (fboundp 'completion-table-case-fold)) - ;; That function is new in Emacs 24... - (defun completion-table-case-fold (table &optional dont-fold) - (lambda (string pred action) - (let ((completion-ignore-case (not dont-fold))) - (complete-with-action action table string pred))))) - (defun org-contacts-try-completion-prefix (to-match collection &optional predicate) "Custom implementation of `try-completion'. This version works only with list and alist and it looks at all