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