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/emacs-lisp | |
| 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/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cconv.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/crm.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 2 |
3 files changed, 2 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el index 3f27faab115..289e2b0eee4 100644 --- a/lisp/emacs-lisp/cconv.el +++ b/lisp/emacs-lisp/cconv.el @@ -130,8 +130,6 @@ Returns a form where all lambdas don't have any free variables." (prog1 (cconv-convert form nil nil) ; Env initially empty. (cl-assert (null cconv-freevars-alist))))) -(defconst cconv--dummy-var (make-symbol "ignored")) - (defun cconv--set-diff (s1 s2) "Return elements of set S1 that are not in set S2." (let ((res '())) diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el index 6d4b29b552c..8e61797315f 100644 --- a/lisp/emacs-lisp/crm.el +++ b/lisp/emacs-lisp/crm.el @@ -201,7 +201,7 @@ This function is modeled after `minibuffer-complete-and-exit'." (if doexit (exit-minibuffer)))) (defun crm--choose-completion-string (choice buffer base-position - &rest ignored) + &rest _ignored) "Completion string chooser for `completing-read-multiple'. This is called from `choose-completion-string-functions'. It replaces the string that is currently being completed, without diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index c01f3fd4fec..206c10a7734 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el @@ -374,7 +374,7 @@ Optional arg POS is a buffer position where to look for a fake header; defaults to `point-min'." (overlays-at (or pos (point-min)))) -(defun tabulated-list-revert (&rest ignored) +(defun tabulated-list-revert (&rest _ignored) "The `revert-buffer-function' for `tabulated-list-mode'. It runs `tabulated-list-revert-hook', then calls `tabulated-list-print'." (interactive) |