[AUCTeX-diffs] [elpa] externals/auctex 869f43f 2/7: Mark default argument to `LaTeX-arg-polyglossia-lang' as optional

[Tassilo Horn]

branch: externals/auctex
commit 869f43f9100a069719274c8a3986801e7856bb09
Author: Mosè Giordano <mose@gnu.org>
Commit: Mosè Giordano <mose@gnu.org>

    Mark default argument to `LaTeX-arg-polyglossia-lang' as optional
    
    * style/polyglossia.el (LaTeX-arg-polyglossia-lang): The `default' argument
      isn't currently used, mark it as ignored.
---
 style/polyglossia.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/style/polyglossia.el b/style/polyglossia.el
index b9aa3d4..aaa688d 100644
--- a/style/polyglossia.el
+++ b/style/polyglossia.el
@@ -148,7 +148,7 @@ The last language is the default one."
 The value is actually the tail of the list of options given to LANGUAGE."
   (member option (cdr (cdr (assoc language LaTeX-polyglossia-lang-list)))))
 
-(defun LaTeX-arg-polyglossia-lang (_optional default multiple setkeys)
+(defun LaTeX-arg-polyglossia-lang (_optional _default multiple setkeys)
   "Prompt for language and its options with completion and insert them
 as arguments.
 
@@ -156,14 +156,16 @@ This function is triggered by \"\setdefaultlanguage\",
 \"\setotherlanguage\", \"\setotherlanguages\", and \"\setkeys\"
 macros by polyglossia package.
 
-OPTIONAL is ignored, if DEFAULT is non-nil treat inserted
-language as default, if MULTIPLE is non-nil prompt for multiple
-languages, if SETKEYS is non-nil insert options as second
-mandatory argument."
+OPTIONAL and DEFAULT are ignored, if MULTIPLE is non-nil prompt
+for multiple languages, if SETKEYS is non-nil insert options as
+second mandatory argument."
   ;; DEFAULT =  t , MULTIPLE = nil, SETKEYS = nil: "\setdefaultlanguage".
   ;; DEFAULT = nil, MULTIPLE = nil, SETKEYS = nil: "\setotherlanguage".
   ;; DEFAULT = nil, MULTIPLE =  t , SETKEYS = nil: "\setotherlanguages".
   ;; DEFAULT = nil, MULTIPLE = nil, SETKEYS =  t : "\setkeys".
+
+  ;; Note: `DEFAULT' is currently ignored because we don't really have a
+  ;; mechanism to identify the default polyglossia language.
   (let ((language (funcall
                   (if multiple
                       'TeX-completing-read-multiple