diff options
| author | Mike Fisher <Michael_Fisher@URMC.Rochester.edu> | 2022-09-27 11:38:57 -0400 |
|---|---|---|
| committer | Bastien Guerry <bzg@gnu.org> | 2022-09-27 18:01:53 +0200 |
| commit | 6422b265f1150204f024e33d54f2dcfd8323005c (patch) | |
| tree | 2f2dfa8d70490fcbed502739a6574b70c0710d8a | |
| parent | 7f32f80f9589f7cbf944135e4f3cd5c690eb5db2 (diff) | |
fix(org-checklist.el): change org-make-checklist-export (Emacs 28+ cl)
In more recent Emacs, cl functions (like "case") must be prefixed with
"cl-". Add this and re-order choices (t must be the last choice now).
| -rw-r--r-- | lisp/org-checklist.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-checklist.el b/lisp/org-checklist.el index b813c88..26b78cf 100644 --- a/lisp/org-checklist.el +++ b/lisp/org-checklist.el @@ -93,10 +93,10 @@ of checkbox items" "-" (format-time-string org-checklist-export-time-format) ".org")) - (print (case (org-entry-get (point) "PRINT_EXPORT" nil) + (print (cl-case (org-entry-get (point) "PRINT_EXPORT" nil) (("" "nil" nil) nil) - (t t) - (nil (y-or-n-p "Print list? ")))) + (nil (y-or-n-p "Print list? ")) + (t t))) exported-lines (title "Checklist export")) (save-restriction |