[Bug-AUCTeX] 2008-02-02; Highlighting verbatim environments gets confused

[Uwe Siart]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.

Be sure to consult the FAQ section in the manual before submitting
a bug report.  In addition check if the bug is reproducable with an
up-to-date version of AUCTeX.  So please upgrade to the version
available from http://www.gnu.org/software/auctex/ if your
installation is older than the one available from the web site.

If the bug is triggered by a specific (La)TeX file, you should try
to produce a minimal sample file showing the problem and include it
in your report.

Your bug report will be posted to the AUCTeX bug reporting list.
------------------------------------------------------------------------

Dear all,

using AUCTeX 2008-02-02 I found a situation where the highlighting of verbatim
environments gets confused.

In some documents I use a user-defined verbatim environment named {Enter}.
Therefore I've added "Enter" to 'LaTeX-verbatim-environments'. AUCTeX 2008-02-02
starts with verbatim highlighting from the particular line in the document
preamble where the environment "Enter" is defined by \newenvironment{Enter}.

The verbatim highlighting lasts up to the first instance of \begin{Enter}.
Thenceforth, everything between \end{Enter} and \begin{Enter} is highlighted as
if it was verbatim.

The problem does not persist in 2007-01-23 which I normally use.

Hoping I could explain the effect understandingly.

Uwe

Emacs  : GNU Emacs 23.0.50.1 (i386-mingw-nt5.0.2195)
 of 2007-10-08 on TOSHIBA-USER
Package: 2008-02-02

current state:
==============
(setq
 AUCTeX-date "2008-02-02"
 window-system 'w32
 LaTeX-version "2e"
 TeX-style-path '("style" "auto" 
"e:/programme/texmf-local/bibtex/bib/siart/style"
                  "e:/programme/texmf-local/bibtex/bib/siart/auto" 
"c:/programme/emacs/site-lisp/auctex/style"
                  "c:/programme/emacs/var/auctex")
 TeX-auto-save t
 TeX-parse-self t
 TeX-master nil
 TeX-command-list '(("TeX" "%(PDF)%(tex) %`%S%(PDFout)%(mode)%' %t" TeX-run-TeX 
nil
                     (plain-tex-mode ams-tex-mode texinfo-mode) :help "Run 
plain TeX")
                    ("LaTeX" "%`%l%(mode)%' %t" TeX-run-TeX nil (latex-mode 
doctex-mode) :help "Run LaTeX")
                    ("Makeinfo" "makeinfo %t" TeX-run-compile nil 
(texinfo-mode) :help "Run Makeinfo with Info output")
                    ("Makeinfo HTML" "makeinfo --html %t" TeX-run-compile nil 
(texinfo-mode) :help
                     "Run Makeinfo with HTML output")
                    ("AmSTeX" "%(PDF)amstex %`%S%(PDFout)%(mode)%' %t" 
TeX-run-TeX nil (ams-tex-mode) :help "Run AMSTeX")
                    ("ConTeXt" "texexec --once --texutil %(execopts)%t" 
TeX-run-TeX nil (context-mode) :help
                     "Run ConTeXt once")
                    ("ConTeXt Full" "texexec %(execopts)%t" TeX-run-TeX nil 
(context-mode) :help
                     "Run ConTeXt until completion")
                    ("BibTeX" "bibtex %s" TeX-run-BibTeX nil t :help "Run 
BibTeX")
                    ("View" "%V" TeX-run-discard t t :help "Run Viewer")
                    ("Print" "%p" TeX-run-command t t :help "Print the file")
                    ("Queue" "%q" TeX-run-background nil t :help "View the 
printer queue" :visible TeX-queue-command)
                    ("File" "%(o?)dvips %d -o %f " TeX-run-command t t :help 
"Generate PostScript file")
                    ("Index" "makeindex %s" TeX-run-command nil t :help "Create 
index file")
                    ("Check" "lacheck %s" TeX-run-compile nil (latex-mode) 
:help "Check LaTeX file for correctness")
                    ("Spell" "(TeX-ispell-document \"\")" TeX-run-function nil 
t :help "Spell-check the document")
                    ("Clean" "TeX-clean" TeX-run-function nil t :help "Delete 
generated intermediate files")
                    ("Clean All" "(TeX-clean t)" TeX-run-function nil t :help
                     "Delete generated intermediate and output files")
                    ("Other" "" TeX-run-command t t :help "Run an arbitrary 
command"))
 )