emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/org-drill 9c86731452 086/251: During drills, pressing keys


From: ELPA Syncer
Subject: [nongnu] elpa/org-drill 9c86731452 086/251: During drills, pressing keys for quit, edit and skip now works again.
Date: Mon, 17 Jan 2022 18:59:03 -0500 (EST)

branch: elpa/org-drill
commit 9c86731452e8f3ac2f62cceb179dcb98c94b94ae
Author: Paul Sexton <eeeickythump@gmail.com>
Commit: Paul Sexton <eeeickythump@gmail.com>

    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 a78b8068ce..428e9936f5 100755
--- a/org-drill.el
+++ b/org-drill.el
@@ -4,7 +4,7 @@
 ;;; Copyright (C) 2010-2015  Paul Sexton
 ;;;
 ;;; Author: Paul Sexton <eeeickythump@gmail.com>
-;;; 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]