Emacs CVS loops on evaluation of badly formed Elisp code

[Lennart Borgman]

1) Start with emacs -Q
2) Put this code in a buffer:

(defun url-dl-callback-save(to-file url)
 (when (= 0 (buffer-size)) (url-dl-do-redir)))
 (goto-char (point-min))
 (let ((redirsts (search-forward-regexp 
"\\(300\\|301\\|302\\|307\\|303\\)" 20 t)))
   ))

3) M-x eval-buffer

=> Emacs loops.


In GNU Emacs 22.0.50.1 (i386-mingw-nt5.0.2195)
of 2005-06-20 on W2ONE
Distributor `Microsoft Corp.', version 5.0.2195
configured using `configure --with-gcc (3.2) --cflags -Id:/g/include'