From 670f68bea2329e7eb92b222d8886223d1e75ec35 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Fri, 25 Nov 2022 09:41:04 +0800 Subject: [PATCH] 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 2cd667577..aecfc3d81 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 0ca2f796b..2f29754f1 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