branch: elpa/org-drill
commit 5d4f60d49d84ed0c22cfc1be0a84e87a82c1c5b3
Author: Phillip Lord <[email protected]>
Commit: Phillip Lord <[email protected]>
Silence more unused variable messages
---
org-drill.el | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/org-drill.el b/org-drill.el
index 1b67067de4..c5b3366bca 100644
--- a/org-drill.el
+++ b/org-drill.el
@@ -3233,8 +3233,7 @@ values as `org-drill-scope'."
the tag 'imported'."
(cl-block org-drill-copy-entry-to-other-buffer
(save-excursion
- (let ((src (current-buffer))
- (m nil))
+ (let ((m nil))
(cl-flet ((paste-tree-here (&optional level)
(org-paste-subtree level)
(org-drill-strip-entry-data)
@@ -3359,7 +3358,7 @@ copy them across."
;; which have been scheduled by another user of DEST. Clear out the
;; scheduling info from all the unmatched items in DEST.
(with-current-buffer dest
- (maphash (lambda (id m)
+ (maphash (lambda (_id m)
(goto-char m)
(org-drill-strip-entry-data)
(org-drill-free-marker m))
@@ -3463,7 +3462,7 @@ and conjugate for the %s.\n\n"
"Show the answer for a drill item whose card type is 'conjugate'.
RESCHEDULE-FN must be a function that calls `org-drill-reschedule' and
returns its return value."
- (cl-destructuring-bind (infinitive inf-hint translation tense mood)
+ (cl-destructuring-bind (infinitive _inf-hint translation tense mood)
(org-drill-get-verb-conjugation-info)
(with-replaced-entry-heading
(format "%s of %s ==> %s\n\n"
@@ -3528,7 +3527,7 @@ returns its return value."
(defun org-drill-present-noun-declension (session)
"Present a drill entry whose card type is 'decline_noun'."
- (cl-destructuring-bind (noun noun-root noun-gender noun-hint translation)
+ (cl-destructuring-bind (noun _noun-root noun-gender noun-hint translation)
(org-drill-get-noun-info)
(let* ((props (org-entry-properties (point)))
(definite
@@ -3568,7 +3567,7 @@ and list its declensions%s.\n\n"
"Show the answer for a drill item whose card type is 'decline_noun'.
RESCHEDULE-FN must be a function that calls `org-drill-reschedule' and
returns its return value."
- (cl-destructuring-bind (noun noun-root noun-gender noun-hint translation)
+ (cl-destructuring-bind (noun _noun-root noun-gender _noun-hint translation)
(org-drill-get-noun-info)
(with-replaced-entry-heading
(format "Declensions of %s (%s) ==> %s\n\n"
