emacs-elpa-diffs
[Top][All Lists]
Advanced

[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"))))
 
 
 



reply via email to

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