diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-04-07 08:56:10 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-04-07 08:57:12 +0200 |
commit | 4ba6de43d48daf392410ba64b1380d7be4c11152 (patch) | |
tree | 13a167f0fe6afc313468a4795ea47ff035854101 | |
parent | b913b7404b0e9ed183da8abf4af738e750c9f34c (diff) | |
download | org-mode-4ba6de43d48daf392410ba64b1380d7be4c11152.tar.gz |
org-drill: Fix void function error
* contrib/lisp/org-drill.el (org-drill--compute-cloze-keywords):
(org-drill-get-item-data): Tiny refactoring to not use `copy-list'.
lignes
-rw-r--r-- | contrib/lisp/org-drill.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/contrib/lisp/org-drill.el b/contrib/lisp/org-drill.el index 6f9a8a3..89ede63 100644 --- a/contrib/lisp/org-drill.el +++ b/contrib/lisp/org-drill.el @@ -241,10 +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)) - ))) + (list 1 'org-drill-visible-cloze-face nil) + (list 2 'org-drill-visible-cloze-hint-face t) + (list 3 'org-drill-visible-cloze-face nil)))) (defvar-local org-drill-cloze-regexp (org-drill--compute-cloze-regexp)) @@ -1011,7 +1010,7 @@ in the matrix." (learn-str (let ((learn-data (or (and learn-str (read learn-str)) - (copy-list initial-repetition-state)))) + (copy-sequence initial-repetition-state)))) (list (nth 0 learn-data) ; last interval (nth 1 learn-data) ; repetitions (org-drill-entry-failure-count) @@ -1026,7 +1025,7 @@ in the matrix." (org-drill-entry-total-repeats) (org-drill-entry-average-quality) (org-drill-entry-ease))) - (t ; virgin item + (t ; virgin item (list 0 0 0 0 nil nil))))) |