diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-04-07 08:58:43 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-04-07 08:58:43 +0200 |
| commit | 7cd850a3ef9ed67aeaeb2c1cc57e7c7f8687c1da (patch) | |
| tree | 08c6146bc6e5e425ae31bcdfb27bdc550d0b81fc | |
| parent | 3375f039dd6836d8ecb2955cdd31100ea927cd4d (diff) | |
| parent | 6ec402dc91e4d2af30a34e8b21178adf1348de30 (diff) | |
| download | org-mode-7cd850a3ef9ed67aeaeb2c1cc57e7c7f8687c1da.tar.gz | |
Merge branch 'maint'
| -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 1c11515..1662ea0 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))))) |