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

org-drill: Fix void function error

Browse source 
* 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

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