[elpa] externals/org 670f68bea2: lisp/org-agenda.el: Obsolete unused `org-let' and `org-let2'

[ELPA Syncer]

branch: externals/org
commit 670f68bea2329e7eb92b222d8886223d1e75ec35
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    lisp/org-agenda.el: Obsolete unused `org-let' and `org-let2'
    
    * lisp/org-agenda.el (org-let):
    (org-let2):
    * lisp/org-compat.el (org-let):
    (org-let2): Move to org-compat and mark for removal.
    
    P.S. Save the kittens!
---
 lisp/org-agenda.el |  8 --------
 lisp/org-compat.el | 13 +++++++++++++
 2 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 2cd6675777..aecfc3d81c 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -3318,14 +3318,6 @@ s   Search for keywords                 M   Like m, but 
only TODO entries
 (defvar org-agenda-overriding-arguments nil)
 (defvar org-agenda-overriding-cmd-arguments nil)
 
-(defun org-let (list &rest body) ;FIXME: So many kittens are suffering here.
-  (declare (indent 1) (obsolete cl-progv "2021"))
-  (eval (cons 'let (cons list body))))
-
-(defun org-let2 (list1 list2 &rest body) ;FIXME: Where did our karma go?
-  (declare (indent 2) (obsolete cl-progv "2021"))
-  (eval (cons 'let (cons list1 (list (cons 'let (cons list2 body)))))))
-
 (defun org-agenda-run-series (name series)
   "Run agenda NAME as a SERIES of agenda commands."
   (let* ((gprops (nth 1 series))
diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index 0ca2f796bb..2f29754f1b 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -555,6 +555,19 @@ Counting starts at 1."
                "use `org-element' library"
                "9.0")
 
+;; FIXME: Unused; obsoleted; to be removed.
+(defun org-let (list &rest body) ;FIXME: So many kittens are suffering here.
+  (declare (indent 1) (obsolete cl-progv "2021"))
+  (eval (cons 'let (cons list body))))
+
+;; FIXME: Unused; obsoleted; to be removed.
+(defun org-let2 (list1 list2 &rest body) ;FIXME: Where did our karma go?
+  (declare (indent 2) (obsolete cl-progv "2021"))
+  (eval (cons 'let (cons list1 (list (cons 'let (cons list2 body)))))))
+
+(make-obsolete 'org-let "to be removed" "9.6")
+(make-obsolete 'org-let2 "to be removed" "9.6")
+
 (defun org-compatible-face (inherits specs)
   "Make a compatible face specification.
 If INHERITS is an existing face and if the Emacs version supports