From dd0727e1ec1f535b9b06be88173b4d3ccd55abcb Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Thu, 16 Dec 2021 09:40:21 -0800 Subject: encode-time simplifications * lisp/gnus/gnus-search.el (gnus-search-query-parse-date): * lisp/net/soap-client.el (soap-decode-date-time): * lisp/net/tramp-adb.el (tramp-adb-ls-output-time-less-p): * lisp/org/ol.el (org-store-link): * lisp/org/org-clock.el (org-clock-sum) (org-clock-update-time-maybe): * lisp/org/org-colview.el (org-colview-construct-allowed-dates): * lisp/org/org-macro.el (org-macro--vc-modified-time): * lisp/org/org-macs.el (org-2ft, org-matcher-time): * lisp/org/org-table.el (org-table-eval-formula): * lisp/org/org.el (org-read-date, org-display-custom-time) (org-time-string-to-time, org-timestamp-change): Prefer (encode-time L) to (apply #'encode-time L) where either will do. * lisp/gnus/gnus-search.el (gnus-search-imap-handle-date): * lisp/org/org-clock.el (org-clocktable-steps): Prefer (encode-time S M ...) to (apply #'encode-time (list S M ...)). --- lisp/org/ol.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/org/ol.el') diff --git a/lisp/org/ol.el b/lisp/org/ol.el index aa1849715c3..b70f1996d54 100644 --- a/lisp/org/ol.el +++ b/lisp/org/ol.el @@ -1575,7 +1575,7 @@ non-nil." (setq link (format-time-string (car org-time-stamp-formats) - (apply 'encode-time + (encode-time (list 0 0 0 (nth 1 cd) (nth 0 cd) (nth 2 cd) nil nil nil)))) (org-link-store-props :type "calendar" :date cd))) -- cgit v1.2.1