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.
That's because it executes (goto-char (point-min))
and starts reading again from the beginning.
It is not an Emacs bug.
_______________________________________________
Emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
