diff options
| -rw-r--r-- | org-fc-algo-sm2.el | 4 | ||||
| -rw-r--r-- | org-fc.el | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/org-fc-algo-sm2.el b/org-fc-algo-sm2.el index 827541c..f51d3ab 100644 --- a/org-fc-algo-sm2.el +++ b/org-fc-algo-sm2.el @@ -23,6 +23,8 @@ ;; ;;; Code: +(require 'cl-lib) + (defmacro org-fc-property (symbol standard doc &rest args) (let (defcustom-args property reader) (while args @@ -32,7 +34,7 @@ (unless args (error "Keyword %s is missing an argument" keyword)) (let ((value (pop args))) - (case keyword + (cl-case keyword (:property (setq property value)) (:reader (setq reader value)) (t @@ -1013,7 +1013,7 @@ END is the start of the line with :END: on it." (defun org-fc-review-data-default (position) "Default review data for position POSITION." - (case org-fc-algorithm + (cl-case org-fc-algorithm ('sm2-v1 (org-fc-algo-sm2-initial-review-data position)) ('sm2-v2 (org-fc-algo-sm2-initial-review-data position)))) |