diff options
| author | Leon Rische <leon.rische@me.com> | 2021-03-07 13:04:59 +0100 |
|---|---|---|
| committer | Leon Rische <leon.rische@me.com> | 2021-03-07 13:04:59 +0100 |
| commit | 7b6518cc0c9e8940cc53b94e3bd8b783094c7a67 (patch) | |
| tree | f7cac6647ed31283c5b42902bf61c967dfb658a2 /org-fc-algo-sm2.el | |
| parent | 711511192c62f6dccc96644dcf0705fda99e753a (diff) | |
Replace use of `case` with `cl-case`
Diffstat (limited to 'org-fc-algo-sm2.el')
| -rw-r--r-- | org-fc-algo-sm2.el | 4 |
1 files changed, 3 insertions, 1 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 |