[Bug-AUCTeX] 11.81; commenting error in DocTeX mode

[Frank Küster]

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.  If the bug (or problem) 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.
------------------------------------------------------------------------

I'm editing a dtx file that ends like this:

%    \end{macrocode}
%
%    \begin{macrocode}
%</package>
%    \end{macrocode}
%
%  \StartHistory
%  \HistVersion{2002/05/10 v1.0}
%    \begin{itemize}
%    \item First standalone version.
%    \end{itemize}
%
% \PrintIndex
%
% \Finale
\endinput

With transient-mark-mode enabled, I set a mark at the \ before
HistVersion and moved point one line down; then I pressed M-;
(comment-dwim).  This is what I get:

%    \end{macrocode}
%
%    \begin{macrocode}
%</package>
%    \end{macrocode}
%
%  \StartHistory
%  % \HistVersion{2002/05/10 v1.0}
% %  
\begin{itemize}
%    \item First standalone version.
%    \end{itemize}
%
% \PrintIndex
%
% \Finale
\endinput

This is what I mean ;-):

%    \end{macrocode}
%
%    \begin{macrocode}
%</package>
%    \end{macrocode}
%
%  \StartHistory
%  % \HistVersion{2002/05/10 v1.0}
% %  
%    \begin{itemize}
%    \item First standalone version.
%    \end{itemize}
%
% \PrintIndex
%
% \Finale
\endinput

Or I wouldn't mind if AUCTeX would notice that I don't need a line with
comments only and drop that.

Regards, Frank

Emacs  : GNU Emacs 21.4.1 (i386-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2005-03-17 on trouble, modified by Debian
Package: 11.81

current state:
==============
(setq
 AUCTeX-date "2005-09-25"
 window-system 'x
 LaTeX-version "2e"
 TeX-style-path '("style" "auto" "/home/frank/texmf/tex/latex/style" 
"/home/frank/texmf/tex/latex/auto"
                  "/usr/share/emacs/21.4/site-lisp/auctex/style" 
"/var/lib/auctex/emacs21" "/home/frank/.auctex-styles/"
                  "/home/frank/.auctex-styles/" "/home/frank/.auctex-styles/" 
"/home/frank/.auctex-styles/"
                  "/home/frank/.auctex-styles/" "/home/frank/.auctex-styles/" 
"/home/frank/.auctex-styles/"
                  "/home/frank/.auctex-styles/" "/home/frank/.auctex-styles/" 
"/home/frank/.auctex-styles/"
                  "/home/frank/.auctex-styles/" "/home/frank/.auctex-styles/" 
"/home/frank/.auctex-styles/"
                  "/home/frank/.auctex-styles/" "/home/frank/.auctex-styles/" 
"/home/frank/.auctex-styles/"
                  "/home/frank/.auctex-styles/" "/home/frank/.auctex-styles/" 
"/home/frank/.auctex-styles/")
 TeX-auto-save t
 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 texinfo-mode ams-tex-mode) :help "Run 
plain TeX")
                    ("LaTeX" "%l \"%(mode)\\input{%t}\"" TeX-run-TeX nil 
(latex-mode doctex-mode) :help "Run LaTeX")
                    ("MakePDF" "make %s.pdf" TeX-run-TeX nil t) ("MakeTeil1" 
"make teil1" TeX-run-command nil t)
                    ("MakeTeil2" "make teil2" TeX-run-command nil t)
                    ("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"))
 )
-- 
Frank Küster
Inst. f. Biochemie der Univ. Zürich
Debian Developer