aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove compatibility code

Browse source
This commit is contained in:
Morgan Smith 2021-10-28 01:45:25 -04:00 committed by stardiviner
parent 46726d2637
commit c98281fcfe
1 changed files with 0 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
org-contacts.el
View file

@ -340,13 +340,6 @@ cell corresponding to the contact properties.
(or (cdr (assoc-string "ALLTAGS" (caddr contact))) "") ":")))) (or (cdr (assoc-string "ALLTAGS" (caddr contact))) "") ":"))))
collect 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) (defun org-contacts-try-completion-prefix (to-match collection &optional predicate)
"Custom implementation of `try-completion'. "Custom implementation of `try-completion'.
This version works only with list and alist and it looks at all This version works only with list and alist and it looks at all