[PATCH] org-drill.el: Fix void function error

[PATCH] org-drill.el: Fix void function error

[alexander.haeckel]

* org-drill.el (org-drill--compute-cloze-keywords, org-drill-cloze-regexp) Use
  real function name cl-copy-list instead of alias copy-list, because of void
  function error at org startup in emacs 26.1 for org-plus-contrib package.
---
 contrib/lisp/org-drill.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/contrib/lisp/org-drill.el b/contrib/lisp/org-drill.el
index 1c11515..36b5bb4 100644
--- a/contrib/lisp/org-drill.el
+++ b/contrib/lisp/org-drill.el
@@ -241,9 +241,9 @@ the hidden cloze during a test.")

 (defun org-drill--compute-cloze-keywords ()
   (list (list (org-drill--compute-cloze-regexp)
-              (copy-list '(1 'org-drill-visible-cloze-face nil))
-              (copy-list '(2 'org-drill-visible-cloze-hint-face t))
-              (copy-list '(3 'org-drill-visible-cloze-face nil))
+              (cl-copy-list '(1 'org-drill-visible-cloze-face nil))
+              (cl-copy-list '(2 'org-drill-visible-cloze-hint-face t))
+              (cl-copy-list '(3 'org-drill-visible-cloze-face nil))
               )))

 (defvar-local org-drill-cloze-regexp
@@ -1011,7 +1011,7 @@ in the matrix."
      (learn-str
       (let ((learn-data (or (and learn-str
                                  (read learn-str))
-                            (copy-list initial-repetition-state))))
+                            (cl-copy-list initial-repetition-state))))
         (list (nth 0 learn-data)        ; last interval
               (nth 1 learn-data)        ; repetitions
               (org-drill-entry-failure-count)
--
2.6.2

Re: [PATCH] org-drill.el: Fix void function error

[Nicolas Goaziou]

Hello,

alexander.haeckel@web.de writes:

> * org-drill.el (org-drill--compute-cloze-keywords, org-drill-cloze-regexp) Use
>   real function name cl-copy-list instead of alias copy-list, because of void
>   function error at org startup in emacs 26.1 for org-plus-contrib package.
> ---
>  contrib/lisp/org-drill.el | 8 ++++----
>  1 file changed, 4 insertions(+), 4 deletions(-)
>
> diff --git a/contrib/lisp/org-drill.el b/contrib/lisp/org-drill.el
> index 1c11515..36b5bb4 100644
> --- a/contrib/lisp/org-drill.el
> +++ b/contrib/lisp/org-drill.el
> @@ -241,9 +241,9 @@ the hidden cloze during a test.")
>
>  (defun org-drill--compute-cloze-keywords ()
>    (list (list (org-drill--compute-cloze-regexp)
> -              (copy-list '(1 'org-drill-visible-cloze-face nil))
> -              (copy-list '(2 'org-drill-visible-cloze-hint-face t))
> -              (copy-list '(3 'org-drill-visible-cloze-face nil))
> +              (cl-copy-list '(1 'org-drill-visible-cloze-face nil))
> +              (cl-copy-list '(2 'org-drill-visible-cloze-hint-face t))
> +              (cl-copy-list '(3 'org-drill-visible-cloze-face nil))
>                )))
>
>  (defvar-local org-drill-cloze-regexp
> @@ -1011,7 +1011,7 @@ in the matrix."
>       (learn-str
>        (let ((learn-data (or (and learn-str
>                                   (read learn-str))
> -                            (copy-list initial-repetition-state))))
> +                            (cl-copy-list initial-repetition-state))))
>          (list (nth 0 learn-data)        ; last interval
>                (nth 1 learn-data)        ; repetitions
>                (org-drill-entry-failure-count)

Thank you. I ended up applying a slightly different patch, though.

Regards,

-- 
Nicolas Goaziou