[Bug-AUCTeX] 11.84; dtx syntax colouring

[Will Robertson]

Hello,

Syntax colouring after a "purple" control sequence that terminates a
line is wrong. It colours all lines until the beginning of the next
macrocode block the same purple colour. See this example:

% \iffalse
%<*driver>
\documentclass{ltxdoc}
\DisableCrossrefs
\begin{document}
  \DocInput{\jobname.dtx}
\end{document}
%</driver>
% \fi
% \quad a
% b
% \quad
% c
%    \begin{macrocode}
\def\a{a}
%    \end{macrocode}
\endinput

The strings "a" and "b" are black, but every character after the
second \quad (including \begin{macrocode}, but no further) is
coloured the same purple as the \quad itself.

Many thanks,
Will Robertson


Emacs  : GNU Emacs 22.1.50 (powerpc-apple-darwin7.9.0, Carbon Version  
1.6.0)
 of 2007-06-06 on applecore.inf.ed.ac.uk - Aquamacs Distribution 1.0
Package: 11.84

current state:
==============
(setq
 AUCTeX-date "2007-01-12"
 window-system 'mac
 LaTeX-version "2e"
 TeX-style-path '("style" "auto"
		  "/Applications/Aquamacs Emacs.app/Contents/Resources/site-lisp/ 
edit-modes/auctex/style" "/Applications/Aquamacs Emacs.app/Contents/ 
Resources/site-lisp/edit-modes/var/auctex")
 TeX-auto-save nil
 TeX-parse-self t
 TeX-master nil
 TeX-command-list '(("TeX" "%(PDF)%(tex) %S%(PDFout) \"%(mode)\ 
\input %t\""
                     TeX-run-TeX nil
                     (plain-tex-mode ams-tex-mode texinfo-mode) :help
                     "Run plain TeX")
                    ("LaTeX" "%l \"%(mode)\\input{%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)\\input %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")
                    ("ConTeXt Clean" "texutil --purgeall" TeX-run-interactive
                     nil (context-mode) :help "Clean temporary ConTeXt files")
                    ("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" "<ignored>" TeX-run-ispell-on-document nil t
                     :help "Spell-check the document")
                    ("Other" "" TeX-run-command t t :help
                     "Run an arbitrary command")
                    )
 )