[ESS-bugs] ess-mode 5.1.21; "fontifying" takes forever

[Scott, Steven]

Greetings,
I have two XP macines (home and office) on which I'm trying to run
ESS.  But there seems to be some sort of a problem with fonts.
 
1) When I first start R (M-x R), Xemacs freezes.   C-g gets control
back, but leaves a rogue Rterm.exe process running.
 
2) If I then type M-x R again, a second Rterm process is started.  A grey
bar appears at the bottom of the Xemacs window and says
"Fontifying...".  There is a Stop button on the gray bar.  If I press
it 5 or 6 times then I get an ESS/R session that works great.  
 
3) If I C-c C-d to dump a function into a window for editing then I
get fontifying behavior like that mentioned above (takes forever, but
I can interrupt with the "Stop" button.
 
Other applications that use fonts (e.g. LaTeX) work fine, so this
issue appears to be specific to ESS.  Any ideas on how I can improve
ESS's behavior?

Emacs  : XEmacs 21.4 (patch 13) "Rational FORTRAN" [Lucid] (i686-pc-cygwin) of Sun May 25 2003 on TSUNAMI
Package: ess-mode 5.1.21
current state:
==============
(setq
 ess-language "S"
 ess-dialect "R"
 ess-ask-for-ess-directory t
 ess-ask-about-transfile nil
 ess-directory nil
 ess-keep-dump-files "always"
 ess-source-directory "/tmp/"
 )
(ess-setq-vars-LOCAL): language=SAS, dialect=SAS, buf=unlikely-name.sas, comint..echoes=nil, comint..sender=comint-simple-send
(ess-mode-1): ess-language=SAS, ess-dialect=SAS buf=unlikely-name.sas 
(ess-mode-1.5): alist=((ess-local-customize-alist quote SAS-customize-alist) (ess-language . SAS) (ess-dialect . SAS) (ess-mode-editing-alist . SAS-editing-alist) (ess-mode-syntax-table . SAS-syntax-table) (inferior-ess-program . inferior-SAS-program-name) (ess-help-sec-regex . ^[A-Z. ---]+:$) (ess-help-sec-keys-alist .  ) (ess-object-name-db-file . ess-sas-namedb.el) (inferior-ess-objects-command . objects(%d)) (inferior-ess-help-command . help("%s",pager="cat",window=F)
) (inferior-ess-exit-command . endsas;
) (ess-loop-timeout . 500000) (inferior-ess-primary-prompt . ^) (inferior-ess-secondary-prompt . ^) (comint-use-prompt-regexp-instead-of-fields . t) (inferior-ess-start-file) (inferior-ess-start-args . inferior-SAS-args-temp) (ess-local-process-name)) 
(ess-mode-1.6): editing-alist=((sentence-end . ;[ 
 */]*) (paragraph-start . ^[  ]*$) (paragraph-separate . ^[  ]*$) (paragraph-ignore-fill-prefix . t) (adaptive-fill-mode) (indent-line-function quote sas-indent-line) (require-final-newline . t) (comment-start . \*\|/\*) (comment-start-skip . \*+) (comment-end . ;\|\*/) (comment-column . 40) (parse-sexp-ignore-comments . t) (ess-set-style . ess-default-style) (ess-local-process-name) (tab-stop-list . ess-sas-tab-stop-alist) (ess-mode-syntax-table . SAS-syntax-table) (font-lock-keywords-case-fold-search . t) (font-lock-defaults quote (SAS-mode-font-lock-keywords))) 
(ess-setq-vars-LOCAL): language=SAS, dialect=SAS, buf=unlikely-name.sas, comint..echoes=nil, comint..sender=comint-simple-send
Finished setting up ESS-mode.
[ess-site.el]: ess-customize-alist=((ess-local-customize-alist quote SAS-customize-alist) (ess-language . SAS) (ess-dialect . SAS) (ess-mode-editing-alist . SAS-editing-alist) (ess-mode-syntax-table . SAS-syntax-table) (inferior-ess-program . inferior-SAS-program-name) (ess-help-sec-regex . ^[A-Z. ---]+:$) (ess-help-sec-keys-alist .  ) (ess-object-name-db-file . ess-sas-namedb.el) (inferior-ess-objects-command . objects(%d)) (inferior-ess-help-command . help("%s",pager="cat",window=F)
) (inferior-ess-exit-command . endsas;
) (ess-loop-timeout . 500000) (inferior-ess-primary-prompt . ^) (inferior-ess-secondary-prompt . ^) (comint-use-prompt-regexp-instead-of-fields . t) (inferior-ess-start-file) (inferior-ess-start-args . inferior-SAS-args-temp) (ess-local-process-name)) 
[ess-site.el _2_]: ess-customize-alist=((ess-local-customize-alist quote SAS-customize-alist) (ess-language . SAS) (ess-dialect . SAS) (ess-mode-editing-alist . SAS-editing-alist) (ess-mode-syntax-table . SAS-syntax-table) (inferior-ess-program . inferior-SAS-program-name) (ess-help-sec-regex . ^[A-Z. ---]+:$) (ess-help-sec-keys-alist .  ) (ess-object-name-db-file . ess-sas-namedb.el) (inferior-ess-objects-command . objects(%d)) (inferior-ess-help-command . help("%s",pager="cat",window=F)
) (inferior-ess-exit-command . endsas;
) (ess-loop-timeout . 500000) (inferior-ess-primary-prompt . ^) (inferior-ess-secondary-prompt . ^) (comint-use-prompt-regexp-instead-of-fields . t) (inferior-ess-start-file) (inferior-ess-start-args . inferior-SAS-args-temp) (ess-local-process-name)) 
(R): ess-dialect=Initial-dialect, buf=knots, start-arg=nil
 current-prefix-arg=nil
(inferior-ess 0): ess-start-args=--ess  
ess-setq-vars-default 0: ess-language=Initial, -dialect=Initial-dialect, buf=*ESS*, comint..echoes=nil, comint..sender=comint-simple-send
ess-setq-vars-default 1: ess-language=S, -dialect=R, buf=*ESS*, comint..echoes=nil, comint..sender=comint-simple-send
(inf-ess 1): lang=S, dialect=R, tmp-dialect=R, buf=knots
(inf-ess 1.1): procname=R temp-dialect=R, buf-name=*R* 
(inferior-ess) Method #3 start=/home/sscott/research/multilogit/ buf=*R*
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=*R*, comint..echoes=nil, comint..sender=comint-simple-send
(inf-ess 2.1): ess-language=S, ess-dialect=R buf=*R* 
(inf-ess 2.2): start args = --ess , inf-ess-start-args=--ess  
(inf-ess finish [S(R), Rterm(nil,nil)]
(ess-multi 0):  inf-ess-start-args=--ess , comint-..echoes=nil
(i-ess 1): buf=*R*, lang=S, comint..echo=nil, comint..sender=comint-simple-send,
(i-ess 2): buf=*R*, lang=S, comint..echo=t, comint..sender=inferior-R-input-sender,
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=*R*, comint..echoes=t, comint..sender=inferior-R-input-sender
(i-ess 3): curr-buf=*R*, comint..echo=t, comint..sender=inferior-R-input-sender,
(ess-multi post inf-ess: start-args=--ess , comint-echoes=t
(ess-multi 1):  start-args=--ess  
Making Process...Buf *R*, Proc R, Prog Rterm
 Start File=nil, Args= --ess .
(R): ess-dialect=R, buf=knots, start-arg=nil
 current-prefix-arg=nil
(inferior-ess 0): ess-start-args=--ess  
ess-setq-vars-default 0: ess-language=S, -dialect=R, buf=*ESS*, comint..echoes=nil, comint..sender=comint-simple-send
ess-setq-vars-default 1: ess-language=S, -dialect=R, buf=*ESS*, comint..echoes=nil, comint..sender=comint-simple-send
(inf-ess 1): lang=S, dialect=R, tmp-dialect=R, buf=knots
(inf-ess 1.1): procname=R:2 temp-dialect=R, buf-name=*R:2* 
(inferior-ess) Method #3 start=/home/sscott/research/multilogit/ buf=*R:2*
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=*R:2*, comint..echoes=nil, comint..sender=comint-simple-send
(inf-ess 2.1): ess-language=S, ess-dialect=R buf=*R:2* 
(inf-ess 2.2): start args = --ess , inf-ess-start-args=--ess  
(inf-ess finish [S(R), Rterm(R,nil)]
(ess-multi 0):  inf-ess-start-args=--ess , comint-..echoes=nil
(i-ess 1): buf=*R:2*, lang=S, comint..echo=nil, comint..sender=comint-simple-send,
(i-ess 2): buf=*R:2*, lang=S, comint..echo=t, comint..sender=inferior-R-input-sender,
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=*R:2*, comint..echoes=t, comint..sender=inferior-R-input-sender
(i-ess 3): curr-buf=*R:2*, comint..echo=t, comint..sender=inferior-R-input-sender,
(ess-multi post inf-ess: start-args=--ess , comint-echoes=t
(ess-multi 1):  start-args=--ess  
Making Process...Buf *R:2*, Proc R:2, Prog Rterm
 Start File=nil, Args= --ess .
(R): inferior-ess-language-start=options(STERM='iESS', editor='gnuclient.exe')
/tmp/sscott.compare.acf.R does not exist. Bad dump, starting fresh.(ess-setq-vars-LOCAL): language=S, dialect=R, buf=sscott.compare.acf.R, comint..echoes=nil, comint..sender=comint-simple-send
(ess-mode-1): ess-language=S, ess-dialect=R buf=sscott.compare.acf.R 
(ess-mode-1.5): alist=((ess-local-customize-alist quote R-customize-alist) (ess-language . S) (ess-dialect . R) (ess-suffix . R) (ess-loop-timeout . 500000) (ess-dump-filename-template concat (user-login-name) .%s. ess-suffix) (ess-mode-editing-alist . S-editing-alist) (ess-mode-syntax-table . S-syntax-table) (ess-help-sec-regex . ess-help-R-sec-regex) (ess-help-sec-keys-alist . R-help-sec-keys-alist) (ess-object-name-db-file . ess-r-namedb.el) (ess-retr-lastvalue-command . .Last.value <- get(".ess.lvsave",inherits=TRUE)
) (ess-save-lastvalue-command . assign(".ess.lvsave",.Last.value,inherits=TRUE)
) (ess-imenu-mode-function quote ess-imenu-R) (inferior-ess-program . inferior-R-program-name) (inferior-ess-objects-command . objects(pos = %d)
) (inferior-ess-search-list-command . search()
) (inferior-ess-help-command . help("%s", htmlhelp=FALSE)
) (inferior-ess-exit-command . q()) (inferior-ess-exit-prompt . Save workspace image? [y/n/c]: ) (inferior-ess-primary-prompt . [A-Za-z0-9.]*> ) (inferior-ess-secondary-prompt . + ?) (comint-use-prompt-regexp-instead-of-fields . t) (inferior-ess-start-file) (inferior-ess-start-args . ) (ess-STERM . iESS) (ess-editor . R-editor) (ess-pager . R-pager) (inferior-ess-language-start eval inferior-S-language-start)) 
(ess-mode-1.6): editing-alist=((paragraph-start concat ^$\| page-delimiter) (paragraph-separate concat ^$\| page-delimiter) (paragraph-ignore-fill-prefix . t) (require-final-newline . t) (comment-start . #) (comment-start-skip . #+ *) (comment-column . 40) (indent-line-function quote S-indent-line) (parse-sexp-ignore-comments . t) (ess-set-style . ess-default-style) (ess-local-process-name) (ess-mode-syntax-table . S-syntax-table) (add-log-current-defun-header-regexp . ^\(.+\)\s-+<-[  
]*function) (font-lock-defaults quote (ess-mode-font-lock-keywords nil nil ((?\. . w))))) 
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=sscott.compare.acf.R, comint..echoes=nil, comint..sender=comint-simple-send
Finished setting up ESS-mode.
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=sscott.compare.acf.R, comint..echoes=nil, comint..sender=comint-simple-send
(ess-mode-1): ess-language=S, ess-dialect=R buf=sscott.compare.acf.R 
(ess-mode-1.5): alist=((ess-local-customize-alist quote R-customize-alist) (ess-language . S) (ess-dialect . R) (ess-suffix . R) (ess-loop-timeout . 500000) (ess-dump-filename-template concat (user-login-name) .%s. ess-suffix) (ess-mode-editing-alist . S-editing-alist) (ess-mode-syntax-table . S-syntax-table) (ess-help-sec-regex . ess-help-R-sec-regex) (ess-help-sec-keys-alist . R-help-sec-keys-alist) (ess-object-name-db-file . ess-r-namedb.el) (ess-retr-lastvalue-command . .Last.value <- get(".ess.lvsave",inherits=TRUE)
) (ess-save-lastvalue-command . assign(".ess.lvsave",.Last.value,inherits=TRUE)
) (ess-imenu-mode-function quote ess-imenu-R) (inferior-ess-program . inferior-R-program-name) (inferior-ess-objects-command . objects(pos = %d)
) (inferior-ess-search-list-command . search()
) (inferior-ess-help-command . help("%s", htmlhelp=FALSE)
) (inferior-ess-exit-command . q()) (inferior-ess-exit-prompt . Save workspace image? [y/n/c]: ) (inferior-ess-primary-prompt . [A-Za-z0-9.]*> ) (inferior-ess-secondary-prompt . + ?) (comint-use-prompt-regexp-instead-of-fields . t) (inferior-ess-start-file) (inferior-ess-start-args . ) (ess-STERM . iESS) (ess-editor . R-editor) (ess-pager . R-pager) (inferior-ess-language-start eval inferior-S-language-start)) 
(ess-mode-1.6): editing-alist=((paragraph-start concat ^$\| page-delimiter) (paragraph-separate concat ^$\| page-delimiter) (paragraph-ignore-fill-prefix . t) (require-final-newline . t) (comment-start . #) (comment-start-skip . #+ *) (comment-column . 40) (indent-line-function quote S-indent-line) (parse-sexp-ignore-comments . t) (ess-set-style . ess-default-style) (ess-local-process-name) (ess-mode-syntax-table . S-syntax-table) (add-log-current-defun-header-regexp . ^\(.+\)\s-+<-[  
]*function) (font-lock-defaults quote (ess-mode-font-lock-keywords nil nil ((?\. . w))))) 
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=sscott.compare.acf.R, comint..echoes=nil, comint..sender=comint-simple-send
Finished setting up ESS-mode.