diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2022-10-26 16:35:59 +0300 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2022-10-26 16:35:59 +0300 |
| commit | 38bcad545125a2cda218835b0210f24ab8db1e9e (patch) | |
| tree | 44e18a0ae651308c32897c2c89eae2efc105808c /lisp/mail/sendmail.el | |
| parent | 32dd769ca441a1bd9bf72494472d0a20e195f9af (diff) | |
| download | emacs-38bcad545125a2cda218835b0210f24ab8db1e9e.tar.gz emacs-38bcad545125a2cda218835b0210f24ab8db1e9e.tar.bz2 emacs-38bcad545125a2cda218835b0210f24ab8db1e9e.zip | |
Pacify recent unused/ignored lexvar warnings
Lexvars with special names like 'ignored' or 'unused' are no longer
treated specially.
* lisp/ansi-color.el (ansi-color-process-output):
* lisp/cus-edit.el (customize-apropos-options):
* lisp/cus-theme.el (customize-create-theme):
* lisp/dired-aux.el (dired-hide-all):
* lisp/emacs-lisp/crm.el (crm--choose-completion-string):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-revert):
* lisp/ido.el (ido-choose-completion-string):
* lisp/international/mule-diag.el (describe-font-internal):
* lisp/mail/sendmail.el (sendmail-user-agent-compose):
* lisp/progmodes/fortran.el (fortran-uncomment-region):
* lisp/progmodes/prolog.el (prolog-inferior-guess-flavor):
* lisp/progmodes/ruby-mode.el (ruby-indent-line, ruby-indent-exp):
* lisp/url/url.el (url-mm-callback):
* lisp/xwidget.el (xwidget-webkit-history-reload): Prepend an
underscore to unused function parameter names.
* lisp/emacs-lisp/cconv.el (cconv--dummy-var): Remove unused
constant.
* lisp/files.el (hack-local-variables-filter): Remove unused lexvar.
Diffstat (limited to 'lisp/mail/sendmail.el')
| -rw-r--r-- | lisp/mail/sendmail.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 387792eb310..3f75faa077d 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -550,10 +550,10 @@ This also saves the value of `send-mail-function' via Customize." #'mail-send-and-exit) ;;;###autoload -(defun sendmail-user-agent-compose (&optional to subject other-headers - continue switch-function yank-action - send-actions return-action - &rest ignored) +(defun sendmail-user-agent-compose ( &optional to subject other-headers + continue switch-function yank-action + send-actions return-action + &rest _ignored ) (if switch-function (funcall switch-function "*mail*")) (let ((cc (cdr (assoc-string "cc" other-headers t))) |