[Bug-AUCTeX] 11.83; problem with emacs' auto-fill and auctex's folding mode in noweb mode

[Patrick Drechsler]

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.
------------------------------------------------------------------------

Hi,

I am not sure if this is a problem which is more related to AUCTeX's 
folding mode or noweb-mode.


Minimal example:

-------------------------------
\documentclass{minimal}
\newenvironment{noweb}{}{}
\begin{document}

% the following text should be in a single line:
A: This is a long line. This is a long line. This is a long line. This 
is a long line. This is a long line. This is a long line. This is a long 
line. This is a long line. This is a long line. This is a long line. 
This is a long line. This is a long line.

\begin{noweb}
@
<<foo,key=value>>=
# some comment
a <- 1
@ %def
\end{noweb}

\end{document}
-------------------------------

I have the following lines in my init.el file:

-------------------------------
(add-hook 'LaTeX-mode-hook (lambda ()
                             (TeX-fold-mode 1)
                             (TeX-fold-buffer)))
-------------------------------


I also have this in my customize-set-variables part of the init.el file 
(mind the line breaks):

-------------------------------
(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
;; [...]
 '(TeX-fold-env-spec-list (quote (("[noweb]" ("noweb")) ("[comment]" 
("comment")) ("[figure]" ("figure")) ("[table]" ("table")))))
;; [...]
)
-------------------------------

Problem description:


Using AUCTeX 11.83 and the CVS version mentioned below breaks 
auto-filling (line-breaking at a certain column length). Especially: 
`M-q' goes into an endless loop taking 100% CPU.

Details:

Typing a line of words with many spaces in between longer than 100 
character does not break automatically. Furthermore putting the cursor 
anywhere on that line and using `M-q' seems to put Emacs into an endless 
loop (`top' shows 100% CPU usage for Emacs). I have to type `C-g' to 
interrupt the process.

AUCTeX 11.82 worked fine with this example, this CVS-version and the 
same code.

My current solution:

Commenting these lines solves the problem. Leaving my without the 
advantages of AUCTeX's folding abilities.

-------------------------------
;(add-hook 'LaTeX-mode-hook (lambda ()
;                             (TeX-fold-mode 1)
;                             (TeX-fold-buffer)))
-------------------------------

Ideas?

I am aware that none of the developers are using R (www.r-project.org) 
on a daily basis (in combination with ESS (http://ess.r-project.org/), 
Sweave 
(http://www.ci.tuwien.ac.at/~leisch/Sweave/Sweave-manual-20060104.pdf) 
and Noweb (http://www.eecs.harvard.edu/~nr/noweb/). Nevertheless, if 
somebody with more knowledge of AUCTeX code could point me in the 
correct direction I would be more than pleased.

Also, I would like to stick to the Emacs-CVS snapshot provided by my 
GNU/Linux distribution (Ubuntu Dapper) for maintenance purposes if 
possible. Unless of course this auto-filling problem has been patched 
since then.

TIA and do not hesitate to contact me for further infos

Patrick

PS: If possible please CC me.



Here's the output of the standard bug-report (again, mind the line breaks):

Emacs  : GNU Emacs 22.0.50.1 (i486-pc-linux-gnu, GTK+ Version 2.8.17)
 of 2006-08-24 on vernadsky, modified by Debian
Package: 11.83

current state:
==============
(setq
 AUCTeX-date "2006-06-07"
 window-system 'x
 LaTeX-version "2e"
 TeX-style-path '("style" "auto"
                  "/usr/local/share/emacs/site-lisp/auctex/style"
                  "/usr/local/var/auctex")
 TeX-auto-save t
 TeX-parse-self t
 TeX-master t
 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")
                    ("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")
                    ("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")
                    ("ps4pdf" "ps4pdf %s" TeX-run-command nil t :help
                     "Run ps4pdf on file")
                    )
 )