[elpa] externals/company a2e7b841a1 2/3: Merge pull request #1350 from dr-scsi/silence

[ELPA Syncer]

branch: externals/company
commit a2e7b841a1e8b5f74966538e7a5202f2d9e8cc50
Merge: 48fea7a905 57889e4777
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: GitHub <noreply@github.com>

    Merge pull request #1350 from dr-scsi/silence
    
    Silence warnings about unused lexical argument `ignored'
---
 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))