Error on loading polyglossia.el

[Joost Kremers]

Hi list,

I just opened a TeX file from Eshell and was greeted with the following error:

    Symbol’s value as variable is void: active-languages

Toggling debug-on-error shows that the problem is in
`LaTeX-polyglossia-active-language` (backtrace copied below). I don't really
understand why the problem occurs, because the variable `active-languages` only
occurs inside a `let`, but perhaps someone here has a better idea.

I did notice, BTW, that this function uses `add-to-list`, the doc string of
which warns against using it in Lisp code. (In fact, the corresponding `babel`
function `LaTeX-babel-active-languages` was indeed changed a couple of years
ago, but the same change wasn't made to `LaTeX-polyglossia-active-languages`, it
seems.)

I updated AUCTeX to the latest version 13.0 and my Emacs version is 27.1.90.
It's the first time I've opened a `.tex` file since I upgraded AUCTeX, but it's
still surprising to me that the error never occurred before (I assume it's not a
new function...)

Anyway, the backtrace (there's lots of eshell stuff, which I assume is
irrelevant, but it's not *that* long, so I decided to keep it in):

========================================
Debugger entered--Lisp error: (void-variable active-languages)
  add-to-list(active-languages "german" t)
  #f(compiled-function (elt) #<bytecode 0x156e02868641>)(("german" 
"mainlanguage"))
  mapc(#f(compiled-function (elt) #<bytecode 0x156e02868641>) (("german" 
"mainlanguage")))
  LaTeX-polyglossia-active-languages()
  LaTeX-polyglossia-load-languages()
  run-hooks(TeX-update-style-hook)
  TeX-update-style(t)
  #f(compiled-function () #<bytecode 0x156e0110f20d>)()
  run-hooks(find-file-hook)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer Anschreiben.tex> 
"~/Documents/2020/Anschreiben.tex" nil nil "~/Documents/2020/Anschreiben.tex" 
(8259244 2050))
  find-file-noselect(#("Anschreiben.tex" 0 27 (escaped t)) nil nil nil)
  find-file(#("Anschreiben.tex" 0 27 (escaped t)))
  apply(find-file #("Anschreiben.tex" 0 27 (escaped t)))
  eshell-exec-lisp(eshell-print eshell-error find-file (#("Anschreiben.tex" 0 
27 (escaped t))) nil)
  eshell-lisp-command(find-file (#("Anschreiben.tex" 0 27 (escaped t))))
  eshell-plain-command("find-file" (#("Anschreiben.tex" 0 27 (escaped t))))
  eshell-named-command("find-file" (#("Anschreiben.tex" 0 27 (escaped t))))
  eval((eshell-named-command '"find-file" '(#("Anschreiben.tex" 0 27 (escaped 
t)))))
  eshell-do-eval((eshell-named-command '"find-file" '(#("Anschreiben.tex" 0 27 
(escaped t)))) nil)
  eshell-do-eval((prog1 (eshell-named-command '"find-file" 
'(#("Anschreiben.tex" 0 27 (escaped t)))) (mapc #'funcall 
eshell-this-command-hook)) nil)
  (condition-case err (eshell-do-eval '(prog1 (eshell-named-command 
'"find-file" '(#("Anschreiben.tex" 0 27 ...))) (mapc #'funcall 
eshell-this-command-hook)) nil) ((debug error) (mapc #'funcall 
eshell-this-command-hook) (eshell-errorn (error-message-string err)) 
(eshell-close-handles 1)))
  eval((condition-case err (eshell-do-eval '(prog1 (eshell-named-command 
'"find-file" '(...)) (mapc #'funcall eshell-this-command-hook)) nil) ((debug 
error) (mapc #'funcall eshell-this-command-hook) (eshell-errorn 
(error-message-string err)) (eshell-close-handles 1))))
  eshell-do-eval((condition-case err (eshell-do-eval '(prog1 
(eshell-named-command '"find-file" '(...)) (mapc #'funcall 
eshell-this-command-hook)) nil) ((debug error) (mapc #'funcall 
eshell-this-command-hook) (eshell-errorn (error-message-string err)) 
(eshell-close-handles 1))) nil)
  #f(compiled-function () #<bytecode 0x156e026251a5>)()
  funcall(#f(compiled-function () #<bytecode 0x156e026251a5>))
  (let ((eshell-this-command-hook '(ignore))) (funcall '#f(compiled-function () 
#<bytecode 0x156e026251a5>)))
  eval((let ((eshell-this-command-hook '(ignore))) (funcall 
'#f(compiled-function () #<bytecode 0x156e026251a5>))))
  eshell-do-eval((let ((eshell-this-command-hook '(ignore))) (condition-case 
err (eshell-do-eval '(prog1 (eshell-named-command '"find-file" '...) (mapc 
#'funcall eshell-this-command-hook)) nil) ((debug error) (mapc #'funcall 
eshell-this-command-hook) (eshell-errorn (error-message-string err)) 
(eshell-close-handles 1)))) nil)
  #f(compiled-function () #<bytecode 0x156e02625185>)()
  funcall(#f(compiled-function () #<bytecode 0x156e02625185>))
  (let ((eshell-prevent-alias-expansion '("ff")) (eshell-command-arguments 
'(#("Anschreiben.tex" 0 27 (escaped t)))) (eshell-command-name '"ff")) (funcall 
'#f(compiled-function () #<bytecode 0x156e02625185>)))
  eval((let ((eshell-prevent-alias-expansion '("ff")) (eshell-command-arguments 
'(#("Anschreiben.tex" 0 27 (escaped t)))) (eshell-command-name '"ff")) (funcall 
'#f(compiled-function () #<bytecode 0x156e02625185>))))
  eshell-do-eval((let ((eshell-command-name '"ff") (eshell-command-arguments 
'(#("Anschreiben.tex" 0 27 (escaped t)))) (eshell-prevent-alias-expansion 
'("ff"))) (let ((eshell-this-command-hook '(ignore))) (condition-case err 
(eshell-do-eval '(prog1 (eshell-named-command ... ...) (mapc ... 
eshell-this-command-hook)) nil) ((debug error) (mapc #'funcall 
eshell-this-command-hook) (eshell-errorn (error-message-string err)) 
(eshell-close-handles 1))))) nil)
  eshell-do-eval((let ((eshell-command-name '"ff") (eshell-command-arguments 
'(#("Anschreiben.tex" 0 27 (escaped t)))) (eshell-prevent-alias-expansion 
'("ff"))) (let ((eshell-this-command-hook '(ignore))) (condition-case err 
(eshell-do-eval '(prog1 (eshell-named-command ... ...) (mapc ... 
eshell-this-command-hook)) nil) ((debug error) (mapc #'funcall 
eshell-this-command-hook) (eshell-errorn (error-message-string err)) 
(eshell-close-handles 1))))) nil)
  eshell-do-eval((prog1 (let ((eshell-command-name '"ff") 
(eshell-command-arguments '(#("Anschreiben.tex" 0 27 ...))) 
(eshell-prevent-alias-expansion '("ff"))) (let ((eshell-this-command-hook 
'(ignore))) (condition-case err (eshell-do-eval '(prog1 ... ...) nil) ((debug 
error) (mapc #'funcall eshell-this-command-hook) (eshell-errorn 
(error-message-string err)) (eshell-close-handles 1))))) (mapc #'funcall 
eshell-this-command-hook)) nil)
  (condition-case err (eshell-do-eval '(prog1 (let ((eshell-command-name '"ff") 
(eshell-command-arguments '...) (eshell-prevent-alias-expansion '...)) (let 
((eshell-this-command-hook ...)) (condition-case err (eshell-do-eval ... nil) 
(... ... ... ...)))) (mapc #'funcall eshell-this-command-hook)) nil) ((debug 
error) (mapc #'funcall eshell-this-command-hook) (eshell-errorn 
(error-message-string err)) (eshell-close-handles 1)))
  eval((condition-case err (eshell-do-eval '(prog1 (let ((eshell-command-name 
...) (eshell-command-arguments ...) (eshell-prevent-alias-expansion ...)) (let 
(...) (condition-case err ... ...))) (mapc #'funcall eshell-this-command-hook)) 
nil) ((debug error) (mapc #'funcall eshell-this-command-hook) (eshell-errorn 
(error-message-string err)) (eshell-close-handles 1))))
  eshell-do-eval((condition-case err (eshell-do-eval '(prog1 (let 
((eshell-command-name ...) (eshell-command-arguments ...) 
(eshell-prevent-alias-expansion ...)) (let (...) (condition-case err ... ...))) 
(mapc #'funcall eshell-this-command-hook)) nil) ((debug error) (mapc #'funcall 
eshell-this-command-hook) (eshell-errorn (error-message-string err)) 
(eshell-close-handles 1))) nil)
  #f(compiled-function () #<bytecode 0x156e02625125>)()
  funcall(#f(compiled-function () #<bytecode 0x156e02625125>))
  (let ((eshell-this-command-hook '(ignore))) (funcall '#f(compiled-function () 
#<bytecode 0x156e02625125>)))
  eval((let ((eshell-this-command-hook '(ignore))) (funcall 
'#f(compiled-function () #<bytecode 0x156e02625125>))))
  eshell-do-eval((let ((eshell-this-command-hook '(ignore))) (condition-case 
err (eshell-do-eval '(prog1 (let (... ... ...) (let ... ...)) (mapc #'funcall 
eshell-this-command-hook)) nil) ((debug error) (mapc #'funcall 
eshell-this-command-hook) (eshell-errorn (error-message-string err)) 
(eshell-close-handles 1)))) nil)
  eshell-do-eval((progn (let ((eshell-this-command-hook '(ignore))) 
(condition-case err (eshell-do-eval '(prog1 (let ... ...) (mapc ... 
eshell-this-command-hook)) nil) ((debug error) (mapc #'funcall 
eshell-this-command-hook) (eshell-errorn (error-message-string err)) 
(eshell-close-handles 1))))) nil)
  (catch 'top-level (eshell-do-eval '(progn (let ((eshell-this-command-hook 
'...)) (condition-case err (eshell-do-eval '... nil) ((debug error) (mapc ... 
eshell-this-command-hook) (eshell-errorn ...) (eshell-close-handles 1))))) nil))
  eval((catch 'top-level (eshell-do-eval '(progn (let 
((eshell-this-command-hook ...)) (condition-case err (eshell-do-eval ... nil) 
(... ... ... ...)))) nil)))
  eshell-do-eval((catch 'top-level (eshell-do-eval '(progn (let 
((eshell-this-command-hook ...)) (condition-case err (eshell-do-eval ... nil) 
(... ... ... ...)))) nil)) nil)
  eshell-do-eval((progn 'nil (catch 'top-level (eshell-do-eval '(progn (let 
(...) (condition-case err ... ...))) nil)) (run-hooks 
'eshell-post-command-hook)) nil)
  #f(compiled-function () #<bytecode 0x156e02625105>)()
  funcall(#f(compiled-function () #<bytecode 0x156e02625105>))
  (let ((eshell-current-subjob-p 'nil) (eshell-current-handles '[nil (t . 1) (t 
. 1)])) (funcall '#f(compiled-function () #<bytecode 0x156e02625105>)))
  eval((let ((eshell-current-subjob-p 'nil) (eshell-current-handles '[nil (t . 
1) (t . 1)])) (funcall '#f(compiled-function () #<bytecode 0x156e02625105>))))
  eshell-do-eval((let ((eshell-current-handles '[nil (t . 1) (t . 1)]) 
eshell-current-subjob-p) (progn 'nil (catch 'top-level (eshell-do-eval '(progn 
(let ... ...)) nil)) (run-hooks 'eshell-post-command-hook))))
  eshell-resume-eval()
  eshell-eval-command((let ((eshell-current-handles '[nil (t . 1) (t . 1)]) 
eshell-current-subjob-p) (progn 'nil (catch 'top-level (eshell-do-eval '(progn 
(let ... ...)) nil)) (run-hooks 'eshell-post-command-hook))) "ff 
Anschreiben.tex ")
  eshell-send-input(nil)
  funcall-interactively(eshell-send-input nil)
  call-interactively(eshell-send-input nil nil)
  command-execute(eshell-send-input)
========================================

Anyone know what's going on? TIA,

Joost


-- 
Joost Kremers
Life has its moments