From: Dmitry Gutov <dmitry@gutov.dev>
Date: Wed, 3 May 2023 20:58:27 +0000 (+0300)
Subject: (rng-complete-tag): Add the (ignored) argument to the :company-kind function
X-Git-Tag: emacs-29.0.91~58
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cc090294d77c5d4047607d3234c304aaa1b0489c;p=emacs.git

(rng-complete-tag): Add the (ignored) argument to the :company-kind function

* lisp/nxml/rng-nxml.el (rng-complete-tag): Add the (ignored)
argument to the :company-kind function.  Fixes the "Wrong number
of arguments" error reported at
https://github.com/company-mode/company-mode/issues/1386.
---

diff --git a/lisp/nxml/rng-nxml.el b/lisp/nxml/rng-nxml.el
index 568cf24451b..fd1f4fb904e 100644
--- a/lisp/nxml/rng-nxml.el
+++ b/lisp/nxml/rng-nxml.el
@@ -180,7 +180,7 @@ Validation will be enabled if `rng-nxml-auto-validate-flag' is non-nil."
                    (insert " "))))
               ((member completion extra-strings)
                (insert ">"))))
-          :company-kind ,(lambda () 'property))))))
+          :company-kind ,(lambda (_) 'property))))))
 
 (defconst rng-in-end-tag-name-regex
   (replace-regexp-in-string