> 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.
No wonder that it loops. Due to unbalanced parenthesis `(goto-char (point-min))' is on top level, so reading restarts from the top after it reaches that line. -- Juri Linkov http://www.jurta.org/emacs/ _______________________________________________ Emacs-pretest-bug mailing list [email protected] http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
