On Wed, 22 Oct 2003, siemsen(a)ucar.edu wrote:
Dear Bug Team!
In Tcl mode, if I try to fill a set of comment lines, XEmacs enters an
infinite loop, eating all the CPU it can. It's easy to cause: create
a file with a .exp extension, and xemacs goes into Tcl mode. Type a
few lines with leading '#' characters, put the cursor in the lines
somewhere, and hit M-q, which is bound to fill-paragraph-or-region.
In other languages, this fills the paragraph, taking care of the
comment delimeter on every line. In Tcl mode it causes XEmacs to
infinite loop.
You should be able to C-g out of the infinite loop
This sounds like the filladapt-mode bug that was in an older version
of prog-modes (1.53). If you look at the definition of tcl-mode in
prog-modes/lisp/tcl.el you should see code that looks like this:
;; XEmacs change: check for filladapt-mode.
(if (not (and (boundp 'filladapt-mode)
filladapt-mode))
(progn
(make-local-variable 'fill-paragraph-function)
(setq fill-paragraph-function 'tcl-do-fill-paragraph)))
and not this:
(setq fill-paragraph-function 'tcl-do-fill-paragraph)
When I kill the runaway processfrom another process, I get this
dump:
Lisp backtrace follows:
...
tcl-do-fill-paragraph(nil)
You have a bunch of lisp shadows load path shadows here,
I'm wondering if you are accidentally getting an old version of tcl.el.
-jeff
Load-Path Lisp Shadows:
----------------------
(/home/siemsen/.xemacs/jde/lisp/setnu
/usr/local/lib/xemacs/xemacs-packages/lisp/edit-utils/setnu
/home/siemsen/.xemacs/eieio/eieio-tests
/usr/local/lib/xemacs/xemacs-packages/lisp/eieio/eieio-tests
/home/siemsen/.xemacs/eieio/eieio-comp
/usr/local/lib/xemacs/xemacs-packages/lisp/eieio/eieio-comp
/home/siemsen/.xemacs/eieio/eieio
/usr/local/lib/xemacs/xemacs-packages/lisp/eieio/eieio
/home/siemsen/.xemacs/eieio/eieio-opt
/usr/local/lib/xemacs/xemacs-packages/lisp/eieio/eieio-opt
/home/siemsen/.xemacs/eieio/eieio-custom
/usr/local/lib/xemacs/xemacs-packages/lisp/eieio/eieio-custom
/home/siemsen/.xemacs/eieio/eieio-doc
/usr/local/lib/xemacs/xemacs-packages/lisp/eieio/eieio-doc
/home/siemsen/.xemacs/eieio/eieio-base
/usr/local/lib/xemacs/xemacs-packages/lisp/eieio/eieio-base
/home/siemsen/.xemacs/eieio/tree
/usr/local/lib/xemacs/xemacs-packages/lisp/eieio/tree
/home/siemsen/.xemacs/eieio/call-tree
/usr/local/lib/xemacs/xemacs-packages/lisp/eieio/call-tree
/home/siemsen/.xemacs/eieio/chart
/usr/local/lib/xemacs/xemacs-packages/lisp/eieio/chart
/home/siemsen/.xemacs/eieio/eieio-speedbar
/usr/local/lib/xemacs/xemacs-packages/lisp/eieio/eieio-speedbar
/home/siemsen/.xemacs/eieio/linemark
/usr/local/lib/xemacs/xemacs-packages/lisp/eieio/linemark
/home/siemsen/.xemacs/jde/lisp/beanshell
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/beanshell
/home/siemsen/.xemacs/jde/lisp/jde-parse
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-parse
/home/siemsen/.xemacs/jde/lisp/jde-db
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-db
/home/siemsen/.xemacs/jde/lisp/jde-dbo
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-dbo
/home/siemsen/.xemacs/jde/lisp/jde-dbs
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-dbs
/home/siemsen/.xemacs/jde/lisp/jde-ant
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-ant
/home/siemsen/.xemacs/jde/lisp/jde-bug
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-bug
/home/siemsen/.xemacs/jde/lisp/jde-checkstyle
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-checkstyle
/home/siemsen/.xemacs/jde/lisp/jde-compile
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-compile
/home/siemsen/.xemacs/jde/lisp/jde-complete
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-complete
/home/siemsen/.xemacs/jde/lisp/jde-gen
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-gen
/home/siemsen/.xemacs/jde/lisp/jde-help
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-help
/home/siemsen/.xemacs/jde/lisp/jde-imenu
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-imenu
/home/siemsen/.xemacs/jde/lisp/jde-import
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-import
/home/siemsen/.xemacs/jde/lisp/jde-java-font-lock
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-java-font-lock
/home/siemsen/.xemacs/jde/lisp/jde-java-grammar
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-java-grammar
/home/siemsen/.xemacs/jde/lisp/jde-javadoc-gen
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-javadoc-gen
/home/siemsen/.xemacs/jde/lisp/jde-javadoc
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-javadoc
/home/siemsen/.xemacs/jde/lisp/jde-jdb
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-jdb
/home/siemsen/.xemacs/jde/lisp/jde-make
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-make
/home/siemsen/.xemacs/jde/lisp/jde-open-source
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-open-source
/home/siemsen/.xemacs/jde/lisp/jde-package
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-package
/home/siemsen/.xemacs/jde/lisp/jde-run
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-run
/home/siemsen/.xemacs/jde/lisp/jde-stat
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-stat
/home/siemsen/.xemacs/jde/lisp/jde-util
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-util
/home/siemsen/.xemacs/jde/lisp/jde-which-method
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-which-method
/home/siemsen/.xemacs/jde/lisp/jde-widgets
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-widgets
/home/siemsen/.xemacs/jde/lisp/jde-wiz
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde-wiz
/home/siemsen/.xemacs/jde/lisp/efc
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/efc
/home/siemsen/.xemacs/jde/lisp/tree-widget
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/tree-widget
/home/siemsen/.xemacs/jde/lisp/jde
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/jde
/home/siemsen/.xemacs/semantic/document-vars
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/document-vars
/home/siemsen/.xemacs/semantic/document
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/document
/home/siemsen/.xemacs/semantic/semantic-analyze
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-analyze
/home/siemsen/.xemacs/semantic/semantic-bnf
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-bnf
/home/siemsen/.xemacs/semantic/semantic-c
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-c
/home/siemsen/.xemacs/semantic/semantic-cb
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-cb
/home/siemsen/.xemacs/semantic/semantic-chart
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-chart
/home/siemsen/.xemacs/semantic/semantic-ctxt
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-ctxt
/home/siemsen/.xemacs/semantic/semantic-el
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-el
/home/siemsen/.xemacs/semantic/semantic-example
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-example
/home/siemsen/.xemacs/semantic/semantic-ia-sb
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-ia-sb
/home/siemsen/.xemacs/semantic/semantic-ia
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-ia
/home/siemsen/.xemacs/semantic/semantic-imenu
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-imenu
/home/siemsen/.xemacs/semantic/semantic-java
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-java
/home/siemsen/.xemacs/semantic/semantic-load
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-load
/home/siemsen/.xemacs/semantic/semantic-make
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-make
/home/siemsen/.xemacs/semantic/semantic-sb
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-sb
/home/siemsen/.xemacs/semantic/semantic-scm
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-scm
/home/siemsen/.xemacs/semantic/semantic-skel
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-skel
/home/siemsen/.xemacs/semantic/semantic-texi
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-texi
/home/siemsen/.xemacs/semantic/semantic-util-modes
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-util-modes
/home/siemsen/.xemacs/semantic/semantic-util
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic-util
/home/siemsen/.xemacs/semantic/semantic
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semantic
/home/siemsen/.xemacs/semantic/semanticdb
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/semanticdb
/home/siemsen/.xemacs/semantic/senator
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/senator
/home/siemsen/.xemacs/semantic/sformat
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/sformat
/home/siemsen/.xemacs/semantic/working
/usr/local/lib/xemacs/xemacs-packages/lisp/semantic/working
...