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'
_______________________________________________
Emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
