From 9c86731452e8f3ac2f62cceb179dcb98c94b94ae Mon Sep 17 00:00:00 2001 From: Paul Sexton Date: Thu, 20 Aug 2015 14:11:41 +1200 Subject: During drills, pressing keys for quit, edit and skip now works again. --- org-drill.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/org-drill.el b/org-drill.el index a78b806..428e993 100755 --- a/org-drill.el +++ b/org-drill.el @@ -4,7 +4,7 @@ ;;; Copyright (C) 2010-2015 Paul Sexton ;;; ;;; Author: Paul Sexton -;;; Version: 2.4.7 +;;; Version: 2.4.8 ;;; Keywords: flashcards, memory, learning, memorization ;;; Repository at http://bitbucket.org/eeeickythump/org-drill/ ;;; @@ -1574,11 +1574,11 @@ Consider reformulating the item to make it easier to remember.\n" (if (stringp input) (setq ch (elt input 0))) (if (eql ch org-drill--tags-key) (org-set-tags-command))) - (case ch - (org-drill--quit-key nil) - (org-drill--edit-key 'edit) - (org-drill--skip-key 'skip) - (otherwise t)))) + (cond + ((eql ch org-drill--quit-key) nil) + ((eql ch org-drill--edit-key) 'edit) + ((eql ch org-drill--skip-key) 'skip) + (t t)))) (defun org-pos-in-regexp (pos regexp &optional nlines) -- cgit v1.2.3