From 45e92eca744b0be5922bfe6efb338a40172bf92a Mon Sep 17 00:00:00 2001
From: Phillip Lord <phillip.lord@newcastle.ac.uk>
Date: Sun, 24 Feb 2019 17:26:03 +0000
Subject: Add org-drill-cram-tree function

---
 org-drill.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/org-drill.el b/org-drill.el
index 08eb20a..18ed058 100644
--- a/org-drill.el
+++ b/org-drill.el
@@ -3020,6 +3020,12 @@ hours."
   (setq *org-drill-cram-mode* t)
   (org-drill scope drill-match))
 
+(defun org-drill-cram-tree ()
+  "Run  an interactive drill session in 'cram mode' using subtree at point.
+
+See also, `org-drill-cram' and `org-drill-tree'."
+  (interactive)
+  (org-drill-cram 'tree))
 
 (defun org-drill-tree ()
   "Run an interactive drill session using drill items within the
-- 
cgit v1.2.3