tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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
This commit is contained in:
Nicolas Goaziou 2019-04-07 08:56:10 +02:00
parent b913b7404b
commit 4ba6de43d4
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
contrib/lisp/org-drill.el
View File

@ -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)))))