branch: externals/company
commit 57889e47774c486ec3d27c8684f8a9010fec1fed
Author: dr-scsi <59777257+dr-s...@users.noreply.github.com>
Commit: dr-scsi <59777257+dr-s...@users.noreply.github.com>
Silence warnings about unused lexical argument `ignored'
* company-clang.el (company-clang):
* company-dabbrev-code.el (company-dabbrev-code):
* company-dabbrev.el (company-dabbrev):
* company.el (company-remove-callback, company-begin-with): Prefix
ignored argument with '_'.
---
company-clang.el | 2 +-
company-dabbrev-code.el | 2 +-
company-dabbrev.el | 2 +-
company.el | 4 ++--
4 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/company-clang.el b/company-clang.el
index 5d8ca5a5f4..463cc69135 100644
--- a/company-clang.el
+++ b/company-clang.el
@@ -357,7 +357,7 @@ or automatically through a custom
`company-clang-prefix-guesser'."
(string-to-number (match-string-no-properties 2)))
0)))
-(defun company-clang (command &optional arg &rest ignored)
+(defun company-clang (command &optional arg &rest _ignored)
"`company-mode' completion backend for Clang.
Clang is a parser for C and ObjC. Clang version 1.1 or newer is required.
diff --git a/company-dabbrev-code.el b/company-dabbrev-code.el
index e1d2bf0d05..6e26bff508 100644
--- a/company-dabbrev-code.el
+++ b/company-dabbrev-code.el
@@ -76,7 +76,7 @@ also `company-dabbrev-code-time-limit'."
"\\(\\sw\\|\\s_\\)*\\_>"))
;;;###autoload
-(defun company-dabbrev-code (command &optional arg &rest ignored)
+(defun company-dabbrev-code (command &optional arg &rest _ignored)
"dabbrev-like `company-mode' backend for code.
The backend looks for all symbols in the current buffer that aren't in
comments or strings."
diff --git a/company-dabbrev.el b/company-dabbrev.el
index 3b8268c9cc..bb23007ad5 100644
--- a/company-dabbrev.el
+++ b/company-dabbrev.el
@@ -179,7 +179,7 @@ This variable affects both `company-dabbrev' and
`company-dabbrev-code'."
(all-completions prefix candidates)))
;;;###autoload
-(defun company-dabbrev (command &optional arg &rest ignored)
+(defun company-dabbrev (command &optional arg &rest _ignored)
"dabbrev-like `company-mode' completion backend."
(interactive (list 'interactive))
(cl-case command
diff --git a/company.el b/company.el
index 81914ae9bc..79d2619246 100644
--- a/company.el
+++ b/company.el
@@ -2887,7 +2887,7 @@ automatically show the documentation buffer for each
selection."
(defvar-local company-callback nil)
-(defun company-remove-callback (&optional ignored)
+(defun company-remove-callback (&optional _ignored)
(remove-hook 'company-completion-finished-hook company-callback t)
(remove-hook 'company-completion-cancelled-hook 'company-remove-callback t)
(remove-hook 'company-completion-finished-hook 'company-remove-callback t))
@@ -2921,7 +2921,7 @@ successfully completes the input.
Example: \(company-begin-with \\='\(\"foo\" \"foobar\" \"foobarbaz\"\)\)"
(let ((begin-marker (copy-marker (point) t)))
(company-begin-backend
- (lambda (command &optional arg &rest ignored)
+ (lambda (command &optional arg &rest _ignored)
(pcase command
(`prefix
(when (equal (point) (marker-position begin-marker))
