[AUCTeX] amstex mode calls an undefined function

[Andrew Swann]

Opening an amstex file before a latex file produces the error message 

Symbol's function definition is void: LaTeX-add-environments

This is reproducable with 

emacs -q t.tex

where t.tex is the file given below.

On the other hand if I first open a latex file and then the amstex
file no error occurs.

Andrew Swann

Emacs  : GNU Emacs 21.3.2 (i386-mandrake-linux-gnu, X toolkit, Xaw3d scroll 
bars)
 of 2005-02-11 on updates.mandrakesoft.com, modified by Mandrake
Package: AUCTeX 11.51

current state:
==============
(setq
 window-system 'x
 LaTeX-version "2e"
 TeX-style-path '("style/" "auto/" "/usr/share/emacs/site-lisp/auctex/style/"
                  "/var/lib/auctex/")
 TeX-auto-save nil
 TeX-parse-self nil
 TeX-master t
 )

File t.tex:
===========
-----start------
%&amstex    % -*-ams-tex-*-
\input amstex
Text
\end
-----end--------


Backtrace:
==========

Debugger entered--Lisp error: (void-variable LaTeX-equation-label)
  eval(LaTeX-equation-label)
  custom-initialize-reset(LaTeX-amsmath-label LaTeX-equation-label)
  custom-declare-variable(LaTeX-amsmath-label LaTeX-equation-label 
("/usr/share/emacs/site-lisp/auctex/style/amsmath.elc" . -4548) :group 
LaTeX-label :type string)
  load("/usr/share/emacs/site-lisp/auctex/style/amsmath.elc" nil nil t)
  load-file("/usr/share/emacs/site-lisp/auctex/style/amsmath.elc")
  TeX-load-style-file("/usr/share/emacs/site-lisp/auctex/style/amsmath")
  #[(name) "ÂÃ!      P!‡" [name style TeX-load-style-file 
file-name-as-directory] 3]("/usr/share/emacs/site-lisp/auctex/style/")
  mapcar(#[(name) "ÂÃ!       P!‡" [name style TeX-load-style-file 
file-name-as-directory] 3] ("style/" "auto/" 
"/usr/share/emacs/site-lisp/auctex/style/" "/var/lib/auctex/"))
  TeX-load-style("amsmath")
  #[(style) "Ã        Ä#?…'
  mapcar(#[(style) "Ã Ä#?…'
  TeX-run-style-hooks("amsmath")
  #[nil "ÀÁ!‡" [TeX-run-style-hooks "amsmath"] 2]()
  funcall(#[nil "ÀÁ!‡" [TeX-run-style-hooks "amsmath"] 2])
  mapcar(funcall (#[nil "ÀÁ!‡" [TeX-run-style-hooks "amsmath"] 2]))
  #[(style) "Ã        Ä#?…'
  mapcar(#[(style) "Ã Ä#?…'
  TeX-run-style-hooks("amstex")
  (lambda nil (TeX-run-style-hooks "amstex"))()
  funcall((lambda nil (TeX-run-style-hooks "amstex")))
  mapcar(funcall ((lambda nil (TeX-run-style-hooks "amstex"))))
  #[(style) "Ã        Ä#?…'
  mapcar(#[(style) "Ã Ä#?…'
  TeX-run-style-hooks("t")
  TeX-update-style()
  #[nil "ÀÁ !„
  run-hooks(find-file-hooks)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer t.tex> "~/t.tex" nil nil 
"/mnt/amd/bach/export/staff/swann/t.tex" (20154873 16))
  find-file-noselect("~/t.tex" nil nil 1)
  find-file("~/t.tex" 1)
* call-interactively(find-file)

-- 
Andrew Swann     address@hidden     http://www.imada.sdu.dk/~swann
Department of Mathematics and Computer Science,      Tel +45 6550 2354
University of Southern Denmark, Campusvej 55,       Dept +45 6550 2387
DK-5230 Odense M, Denmark            Fax +45 6593 2691 / +45 6550 2325