From 7b6518cc0c9e8940cc53b94e3bd8b783094c7a67 Mon Sep 17 00:00:00 2001
From: Leon Rische <leon.rische@me.com>
Date: Sun, 7 Mar 2021 13:04:59 +0100
Subject: Replace use of `case` with `cl-case`

---
 org-fc-algo-sm2.el | 4 +++-
 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
diff --git a/org-fc.el b/org-fc.el
index 8731e61..2c55798 100644
--- a/org-fc.el
+++ b/org-fc.el
@@ -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))))
 
-- 
cgit v1.2.3