From 2f44ee7524e5b2e53f912cff1276f7817495c657 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sat, 30 Apr 2022 19:27:15 -0700 Subject: [PATCH] org-encode-time compatibility function * lisp/org/org-compat.el (org-encode-time): New function. --- lisp/org/org-compat.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/org/org-compat.el b/lisp/org/org-compat.el index 3e394fbab1..0a0025fa0d 100644 --- a/lisp/org/org-compat.el +++ b/lisp/org/org-compat.el @@ -144,6 +144,16 @@ org-file-has-changed-p--hash-table (defun org-time-convert-to-list (time) (seconds-to-time (float-time time)))) +(if (ignore-errors (encode-time '(0 0 0 1 1 1971))) + (if (ignore-errors (encode-time 0 0 0 1 1 1971)) + (defalias 'org-encode-time #'encode-time) + (defun org-encode-time (time &rest args) + (encode-time (if args (cons time args) time)))) + (defun org-encode-time (time &rest args) + (if args + (apply #'encode-time time args) + (apply #'encode-time time)))) + ;; `newline-and-indent' did not take a numeric argument before 27.1. (if (version< emacs-version "27") (defsubst org-newline-and-indent (&optional _arg) -- 2.34.1