[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-contrib d4ec5f7aca: lisp/org-mac-iCal.el: Fix using ob
|
From: |
ELPA Syncer |
|
Subject: |
[nongnu] elpa/org-contrib d4ec5f7aca: lisp/org-mac-iCal.el: Fix using obsolete function |
|
Date: |
Fri, 26 Jan 2024 06:59:58 -0500 (EST) |
branch: elpa/org-contrib
commit d4ec5f7aca42c13ff0019f4ee67f35d350462456
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
lisp/org-mac-iCal.el: Fix using obsolete function
* lisp/org-mac-iCal.el (omi-checked): Use `plist-get' with third
argument when available.
---
lisp/org-mac-iCal.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/lisp/org-mac-iCal.el b/lisp/org-mac-iCal.el
index 24f87b4c0a..e29580bccd 100644
--- a/lisp/org-mac-iCal.el
+++ b/lisp/org-mac-iCal.el
@@ -250,7 +250,14 @@ calendar from list of calendars for import"
x)))
keys))
(keys (delq 'nil keys)))
- (when (equal "1" (car (cddr (lax-plist-get keys '(key nil "Checked")))))
+ (when (equal "1"
+ (car
+ (cddr
+ (if (= 3 (cdr (func-arity #'plist-get)))
+ ;; FIXME: Emacs >=29.
+ (plist-get keys '(key nil "Checked") #'equal)
+ (with-no-warnings
+ (lax-plist-get keys '(key nil "Checked")))))))
directory)))
(provide 'org-mac-iCal)
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/org-contrib d4ec5f7aca: lisp/org-mac-iCal.el: Fix using obsolete function,
ELPA Syncer <=