aboutsummaryrefslogtreecommitdiff
path: root/emacs/notmuch-print.el
diff options
context:
space:
mode:
authorJonas Bernoulli <jonas@bernoul.li>2021-01-10 15:00:48 +0100
committerDavid Bremner <david@tethera.net>2021-01-13 07:16:23 -0400
commit0067a43ea2ee554eafed1e1300a71259cd6b6a6d (patch)
tree3434a63a6df67c7da6073ce2c25e2071b28aab9a /emacs/notmuch-print.el
parentfc4cda07a9afbbb545dcc6cd835ca697f6ef2a1b (diff)
emacs: deal with unused lexical arguments and variables
The previous commit switched to lexical-binding but without dealing with the new warnings about unused lexical arguments and variables. This commit deals with most of them, in most cases by either removing leftover bindings that are actually unnecessary, or by marking certain arguments as "known to be unused" by prefixing their names with "_". In the case of the functions named `notmuch-show-insert-...' the amount of silencing that is required is a bit extreme and we might want to investigate if there is a better way. In the case of `notmuch-mua-mail', ignoring CONTINUE means that we do not fully follow the intended behavior described in `compose-mail's doc-string.
Diffstat (limited to 'emacs/notmuch-print.el')
-rw-r--r--emacs/notmuch-print.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/emacs/notmuch-print.el b/emacs/notmuch-print.el
index 8da9a091..d0061499 100644
--- a/emacs/notmuch-print.el
+++ b/emacs/notmuch-print.el
@@ -58,7 +58,7 @@ Optional OUTPUT allows passing a list of flags to muttprint."
;;; User-visible functions
-(defun notmuch-print-lpr (msg)
+(defun notmuch-print-lpr (_msg)
"Print a message buffer using lpr."
(lpr-buffer))
@@ -78,11 +78,11 @@ Optional OUTPUT allows passing a list of flags to muttprint."
(ps-print-buffer ps-file)
(notmuch-print-run-evince ps-file)))
-(defun notmuch-print-muttprint (msg)
+(defun notmuch-print-muttprint (_msg)
"Print a message using muttprint."
(notmuch-print-run-muttprint))
-(defun notmuch-print-muttprint/evince (msg)
+(defun notmuch-print-muttprint/evince (_msg)
"Preview a message buffer using muttprint and evince."
(let ((ps-file (make-temp-file "notmuch" nil ".ps")))
(notmuch-print-run-muttprint (list "--printer" (concat "TO_FILE:" ps-file)))