From 64a64856c0c8b8fac82161356a3ee398793972ce Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 3 Dec 2013 18:03:49 +0100 Subject: [PATCH] Fix customization types in org-drill.el * contrib/lisp/org-drill.el (org-drill-leech-method): (org-drill-scope): (org-drill-spaced-repetition-algorithm): Fix customization types. --- contrib/lisp/org-drill.el | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/contrib/lisp/org-drill.el b/contrib/lisp/org-drill.el index 2fedd476b..f559a0d4c 100644 --- a/contrib/lisp/org-drill.el +++ b/contrib/lisp/org-drill.el @@ -109,7 +109,7 @@ Possible values: but a warning message is printed when each leech item is presented." :group 'org-drill - :type '(choice (const 'warn) (const 'skip) (const nil))) + :type '(choice (const warn) (const skip) (const nil))) (defface org-drill-visible-cloze-face @@ -304,10 +304,14 @@ directory All files with the extension '.org' in the same ;; 'file-no-restriction' means current file/buffer, ignoring restrictions ;; 'directory' means all *.org files in current directory :group 'org-drill - :type '(choice (const 'file) (const 'tree) (const 'file-no-restriction) - (const 'file-with-archives) (const 'agenda) - (const 'agenda-with-archives) (const 'directory) - list)) + :type '(choice (const :tag "The current buffer, respecting the restriction if any." file) + (const :tag "The subtree started with the entry at point" tree) + (const :tag "The current buffer, without restriction" file-no-restriction) + (const :tag "The current buffer, and any archives associated with it." file-with-archives) + (const :tag "All agenda files" agenda) + (const :tag "All agenda files with any archive files associated with them." agenda-with-archives) + (const :tag "All files with the extension '.org' in the same directory as the current file (includes the current file if it is an .org file.)" directory) + (repeat :tag "List of files to scan for drill items." file))) (defcustom org-drill-match @@ -340,7 +344,7 @@ Available choices are: adjusting intervals when items are reviewed early or late has been taken from SM11, a later version of the algorithm, and included in Simple8." :group 'org-drill - :type '(choice (const 'sm2) (const 'sm5) (const 'simple8))) + :type '(choice (const sm2) (const sm5) (const simple8))) (defcustom org-drill-optimal-factor-matrix