branch: scratch/org-contacts-rebased
commit ede6e7332070c5e13b720c10f3f29f5bbed9dc3d
Author: Morgan Smith <morgan.j.sm...@outlook.com>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
Remove compatibility code
---
org-contacts.el | 7 -------
1 file changed, 7 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index 7762e1b..4e4587a 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
