[AUCTeX] error "Invalid use of `\\' in replacement text"

[Leo]

Hi there,

It seems there's a bug in the folding code.

Use the following minimal example and enable "Hide All in Current
Buffer" (TeX-fold-buffer) to produce an error. I am running AUCTeX from
CVS on 2008-10-30 on windows XP.

Minimal example:
--8<---------------cut here---------------start------------->8---
\documentclass{article}
\begin{document}
\begin{description}
\item[\fbox{nemesis}] What is it?
\end{description}
\end{document}
--8<---------------cut here---------------end--------------->8---

Backtrace:

========
Debugger entered--Lisp error: (error "Invalid use of `\\' in replacement text")
  replace-match(#("\\fbox{nemesis}" 0 5 (fontified t face 
(font-lock-keyword-face font-lock-variable-name-face font-latex-sedate-face)) 5 
6 (fontified t face (font-lock-variable-name-face)) 6 13 (fontified t face 
(font-lock-function-name-face font-lock-variable-name-face)) 13 14 (fontified t 
face (font-lock-variable-name-face))) nil nil "[1]:")
  (setq elt (replace-match (or arg TeX-fold-ellipsis) nil nil elt) spec elt)
  (let ((arg ...)) (when arg (setq success t)) (setq elt (replace-match ... nil 
nil elt) spec elt))
  (while (and (string-match "\\([[{<]\\)\\([1-9]\\)\\([]}>]\\)" elt match-end) 
(string-equal ... ...)) (setq match-end (match-beginning 0)) (let (...) (when 
arg ...) (setq elt ... spec elt)))
  (while --cl-dolist-temp-- (setq elt (car --cl-dolist-temp--)) (setq spec elt) 
(while (and ... ...) (setq match-end ...) (let ... ... ...)) (when success 
(throw ... nil)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- spec-list) elt) (while --cl-dolist-temp-- (setq elt 
...) (setq spec elt) (while ... ... ...) (when success ...) (setq 
--cl-dolist-temp-- ...)) nil)
  (catch (quote --cl-block-nil--) (let (... elt) (while --cl-dolist-temp-- ... 
... ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... elt) (while --cl-dolist-temp-- ... ... ... ... ...) nil))
  (dolist (elt spec-list) (setq spec elt) (while (and ... ...) (setq match-end 
...) (let ... ... ...)) (when success (throw ... nil)))
  (catch (quote success) (dolist (elt spec-list) (setq spec elt) (while ... ... 
...) (when success ...)))
  (let ((spec-list ...) (delims ...) match-end success) (catch (quote success) 
(dolist ... ... ... ...)) spec)
  TeX-fold-expand-spec("[1]:||*" 62 83)
  TeX-fold-hide-item(#<overlay from 62 to 83 in test.tex>)
  TeX-fold-region-macro-or-env(1 129 macro)
  TeX-fold-region(1 129)
  TeX-fold-buffer()
  call-interactively(TeX-fold-buffer nil nil)

Bye,
-- 
.:  Leo  :.  [ sdl.web AT gmail.com ]  .:  [ GPG Key: 9283AA3F ]  :.