[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] scratch/org-contacts-rebased ede6e73 108/118: Remove compatibilit

From: Stefan Monnier
Subject: [elpa] scratch/org-contacts-rebased ede6e73 108/118: Remove compatibility code
Date: Fri, 12 Nov 2021 15:37:14 -0500 (EST)

branch: scratch/org-contacts-rebased
commit ede6e7332070c5e13b720c10f3f29f5bbed9dc3d
Author: Morgan Smith <Morgan.J.Smith@outlook.com>
Commit: Stefan Monnier <monnier@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 
   "Custom implementation of `try-completion'.
 This version works only with list and alist and it looks at all

reply via email to

[Prev in Thread] Current Thread [Next in Thread]