[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-contrib 5660ac6e55 1/2: lisp/ox-taskjuggler.el: Fix al
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/org-contrib 5660ac6e55 1/2: lisp/ox-taskjuggler.el: Fix all the compiler warnings |
Date: |
Sat, 20 Jan 2024 07:00:30 -0500 (EST) |
branch: elpa/org-contrib
commit 5660ac6e559a1f6652d21151e42a5062a534be62
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
lisp/ox-taskjuggler.el: Fix all the compiler warnings
* lisp/ox-taskjuggler.el (require): Use cl-lib instead of its obsolete
cl name.
(org-taskjuggler-get-start):
(org-taskjuggler-get-end): Wrap obsolete function call.
---
lisp/ox-taskjuggler.el | 14 +++++++++++---
1 file changed, 11 insertions(+), 3 deletions(-)
diff --git a/lisp/ox-taskjuggler.el b/lisp/ox-taskjuggler.el
index 9623c4ddc6..4144685e1a 100644
--- a/lisp/ox-taskjuggler.el
+++ b/lisp/ox-taskjuggler.el
@@ -145,7 +145,7 @@
;;
;;; Code:
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl-lib))
(require 'ox)
@@ -484,7 +484,11 @@ ITEM is a headline. Return value is a string or nil if
ITEM
doesn't have any start date defined."
(let ((scheduled (org-element-property :scheduled item)))
(or
- (and scheduled (org-timestamp-format scheduled "%Y-%02m-%02d"))
+ (and scheduled (funcall (eval-and-compile
+ (if (fboundp 'org-format-timestamp)
+ #'org-format-timestamp
+ (with-no-warnings #'org-timestamp-format)))
+ scheduled "%Y-%02m-%02d"))
(and (memq 'start org-taskjuggler-valid-task-attributes)
(org-element-property :START item)))))
@@ -493,7 +497,11 @@ doesn't have any start date defined."
ITEM is a headline. Return value is a string or nil if ITEM
doesn't have any end date defined."
(let ((deadline (org-element-property :deadline item)))
- (and deadline (org-timestamp-format deadline "%Y-%02m-%02d"))))
+ (and deadline (funcall (eval-and-compile
+ (if (fboundp 'org-format-timestamp)
+ #'org-format-timestamp
+ (with-no-warnings #'org-timestamp-format)))
+ deadline "%Y-%02m-%02d"))))