diff options
| author | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-15 12:29:52 +0100 |
|---|---|---|
| committer | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-15 12:29:52 +0100 |
| commit | 6c14bd6c5079bfb384134f4275a5f289f92e4ab5 (patch) | |
| tree | fd12aab22755850bb37c460a4dd488acb3cbd7cb /org-drill.el | |
| parent | 507daae5a2ece2ec15a3f45a7ac0d88939b48852 (diff) | |
| download | org-drill-6c14bd6c5079bfb384134f4275a5f289f92e4ab5.tar.gz org-drill-6c14bd6c5079bfb384134f4275a5f289f92e4ab5.zip | |
Update robot, Fix remaining CL dependencies
The robot test now includes "with-typing" input. This uncovered some
more usages of cl.el which are now gone.
Diffstat (limited to 'org-drill.el')
| -rw-r--r-- | org-drill.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/org-drill.el b/org-drill.el index 6497367..e3ba4fb 100644 --- a/org-drill.el +++ b/org-drill.el @@ -2638,7 +2638,7 @@ maximum number of items." (*org-drill-again-entries* (pop *org-drill-again-entries*)) (t ; nothing left -- return nil - (return-from org-drill-pop-next-pending-entry nil))))) + (cl-return-from org-drill-pop-next-pending-entry nil))))) m))) @@ -2680,10 +2680,10 @@ RESUMING-P is true if we are resuming a suspended drill session." ((null result) (message "Quit") (setq end-pos :quit) - (return-from org-drill-entries nil)) + (cl-return-from org-drill-entries nil)) ((eql result 'edit) (setq end-pos (point-marker)) - (return-from org-drill-entries nil)) + (cl-return-from org-drill-entries nil)) ((eql result 'skip) (setq *org-drill-current-item* nil) nil) ; skip this item @@ -3265,7 +3265,7 @@ the tag 'imported'." (condition-case nil (org-find-olp path t) (error ; path does not exist in DEST - (return-from org-drill-copy-entry-to-other-buffer + (cl-return-from org-drill-copy-entry-to-other-buffer (cond ((cdr path) (org-drill-copy-entry-to-other-buffer |