From c59c49a4dfc501b4e6fc163c56760b67276579f2 Mon Sep 17 00:00:00 2001 From: Phillip Lord Date: Sat, 22 Jun 2019 16:53:05 +0100 Subject: Remove call to cl --- org-drill.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/org-drill.el b/org-drill.el index feea5c1..dadc19d 100644 --- a/org-drill.el +++ b/org-drill.el @@ -2903,7 +2903,7 @@ STATUS is one of the following values: (defun org-drill-progress-message (collected scanned) (when (zerop (% scanned 50)) (let* ((meter-width 40) - (sym1 (if (oddp (floor scanned (* 50 meter-width))) ?| ?.)) + (sym1 (if (cl-oddp (floor scanned (* 50 meter-width))) ?| ?.)) (sym2 (if (eql sym1 ?.) ?| ?.))) (message "Collecting due drill items:%4d %s%s" collected -- cgit v1.2.3