From 944b2ab6ca2ac4ef00b13f147978e03b10ef3701 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 13 Jan 2005 14:35:11 +0000 Subject: [PATCH] (url-retrieve-synchronously): Use accept-process-output rather than sit-for. --- lisp/url/ChangeLog | 5 +++++ lisp/url/url.el | 42 +++++++++++++++++++++--------------------- 2 files changed, 26 insertions(+), 21 deletions(-) diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index b3486e19acd..19f39265251 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,8 @@ +2005-01-13 Stefan Monnier + + * url.el (url-retrieve-synchronously): Use accept-process-output rather + than sit-for. + 2005-01-03 Klaus Straubinger (tiny change) * url-http.el (url-http-handle-authentication): diff --git a/lisp/url/url.el b/lisp/url/url.el index f94e965129a..a9fd46bc23a 100644 --- a/lisp/url/url.el +++ b/lisp/url/url.el @@ -1,6 +1,7 @@ ;;; url.el --- Uniform Resource Locator retrieval tool -;; Copyright (c) 1996,1997,1998,1999,2001,2004 Free Software Foundation, Inc. +;; Copyright (c) 1996, 1997, 1998, 1999, 2001, 2004, 2005 +;; Free Software Foundation, Inc. ;; Author: Bill Perry ;; Keywords: comm, data, processes, hypermedia @@ -169,26 +170,25 @@ no further processing). URL is either a string or a parsed URL." (url-debug 'retrieval "Synchronous fetching done (%S)" (current-buffer)) (setq retrieval-done t asynch-buffer (current-buffer))))) - (if (not asynch-buffer) - ;; We do not need to do anything, it was a mailto or something - ;; similar that takes processing completely outside of the URL - ;; package. - nil - (while (not retrieval-done) - (url-debug 'retrieval "Spinning in url-retrieve-synchronously: %S (%S)" - retrieval-done asynch-buffer) - ;; Quoth Stef: - ;; It turns out that the problem seems to be that the (sit-for - ;; 0.1) below doesn't actually process the data: instead it - ;; returns immediately because there is keyboard input - ;; waiting, so we end up spinning endlessly waiting for the - ;; process to finish while not letting it finish. - - ;; However, raman claims that it blocks Emacs with Emacspeak - ;; for unexplained reasons. Put back for his benefit until - ;; someone can understand it. - ;; (sleep-for 0.1) - (sit-for 0.1)) + (let ((proc (and asynch-buffer (get-buffer-process asynch-buffer)))) + (if (null proc) + ;; We do not need to do anything, it was a mailto or something + ;; similar that takes processing completely outside of the URL + ;; package. + nil + (while (not retrieval-done) + (url-debug 'retrieval + "Spinning in url-retrieve-synchronously: %S (%S)" + retrieval-done asynch-buffer) + ;; We used to use `sit-for' here, but in some cases it wouldn't + ;; work because apparently pending keyboard input would always + ;; interrupt it before it got a chance to handle process input. + ;; `sleep-for' was tried but it lead to other forms of + ;; hanging. --Stef + (unless (accept-process-output proc) + ;; accept-process-output returned nil, maybe because the process + ;; exited (and may have been replaced with another). + (setq proc (get-buffer-process asynch-buffer))))) asynch-buffer))) (defun url-mm-callback (&rest ignored) -- 2.39.5