branch: externals/org-contacts
commit c98281fcfe863de280d3c385a56cfc8cb16e064c
Author: Morgan Smith <morgan.j.sm...@outlook.com>
Commit: stardiviner <numbch...@gmail.com>
Remove compatibility code
---
org-contacts.el | 7 -------
1 file changed, 7 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index 5d54325fd3..7be845af24 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
