From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Dmitry Gutov Newsgroups: gmane.emacs.bugs Subject: bug#19860: Acknowledgement (25.0.50; One url-retrieve-synchronously call running concurrently with another can freeze it) Date: Mon, 16 Feb 2015 00:19:23 +0200 Message-ID: <54E11B6B.8000408@yandex.ru> References: <86bnkxnyju.fsf@yandex.ru> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1424038828 8748 80.91.229.3 (15 Feb 2015 22:20:28 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 15 Feb 2015 22:20:28 +0000 (UTC) To: 19860@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sun Feb 15 23:20:17 2015 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1YN7Xw-0007N2-HS for geb-bug-gnu-emacs@m.gmane.org; Sun, 15 Feb 2015 23:20:12 +0100 Original-Received: from localhost ([::1]:36787 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YN7Xv-0001vH-PI for geb-bug-gnu-emacs@m.gmane.org; Sun, 15 Feb 2015 17:20:11 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:35415) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YN7Xr-0001s0-Kt for bug-gnu-emacs@gnu.org; Sun, 15 Feb 2015 17:20:08 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YN7Xn-0006s4-Go for bug-gnu-emacs@gnu.org; Sun, 15 Feb 2015 17:20:07 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:53724) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YN7Xn-0006rZ-EH for bug-gnu-emacs@gnu.org; Sun, 15 Feb 2015 17:20:03 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1YN7Xm-0003Hf-Ow for bug-gnu-emacs@gnu.org; Sun, 15 Feb 2015 17:20:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Dmitry Gutov Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sun, 15 Feb 2015 22:20:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 19860 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 19860-submit@debbugs.gnu.org id=B19860.142403877712576 (code B ref 19860); Sun, 15 Feb 2015 22:20:02 +0000 Original-Received: (at 19860) by debbugs.gnu.org; 15 Feb 2015 22:19:37 +0000 Original-Received: from localhost ([127.0.0.1]:44964 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YN7XM-0003Gl-9q for submit@debbugs.gnu.org; Sun, 15 Feb 2015 17:19:36 -0500 Original-Received: from mail-we0-f172.google.com ([74.125.82.172]:32910) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YN7XJ-0003GX-Gh for 19860@debbugs.gnu.org; Sun, 15 Feb 2015 17:19:34 -0500 Original-Received: by mail-we0-f172.google.com with SMTP id k48so26054947wev.3 for <19860@debbugs.gnu.org>; Sun, 15 Feb 2015 14:19:27 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=sender:message-id:date:from:user-agent:mime-version:to:subject :references:in-reply-to:content-type:content-transfer-encoding; bh=xRB8PlFWjMvXsg6yrdciJl8VLUlf4X66TBe7wtKpFdE=; b=fGJ9AooeZnysOYSzP5dWEJoNmzrIccx0pXG71PwsmWe81tvuJTNQC9WW1WZ+euYUr8 IHQx0bMrhChfKDKvDelj+ZQPVgAu3Ccpk8w5h+iVzDPmpZ7lOmRunjgXZct/i/MIj1yA GICDzs0YgtdujehWe5RhyWzpBbZDxwRxBVqo+f+q4hRZe4NNnwiSVxWdcIIjahriGgsP 8PltcwMji6TcXfp1qb6qRkcG8FVawXALTEa0saKPFdLzVmfByNM1Elnr4kPPjDZKzxKP YkMeGIjABtK4OrcICYNmEU65ozJSR13Xl+DOQTR7CzGWvQQSnjlPkgovLlos49cFH3qK Qi9w== X-Received: by 10.194.77.99 with SMTP id r3mr42447486wjw.149.1424038767814; Sun, 15 Feb 2015 14:19:27 -0800 (PST) Original-Received: from [192.168.1.2] ([82.102.93.54]) by mx.google.com with ESMTPSA id dj4sm20036754wjc.13.2015.02.15.14.19.26 for <19860@debbugs.gnu.org> (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sun, 15 Feb 2015 14:19:27 -0800 (PST) User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:36.0) Gecko/20100101 Thunderbird/36.0 In-Reply-To: X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:99452 Archived-At: With debug-on-quit, pressing C-g during the wait yields: Debugger entered--Lisp error: (quit) (condition-case nil (let ((inhibit-quit nil)) (accept-process-output proc)) (quit (setq quit-flag t) (eval (quote (ignore nil))))) (or (condition-case nil (let ((inhibit-quit nil)) (accept-process-output proc)) (quit (setq quit-flag t) (eval (quote (ignore nil))))) (null proc)) (if (or (condition-case nil (let ((inhibit-quit nil)) (accept-process-output proc)) (quit (setq quit-flag t) (eval (quote (ignore nil))))) (null proc)) nil (if quit-flag (progn (delete-process proc))) (setq proc (and (not quit-flag) (get-buffer-process asynch-buffer)))) (if (buffer-local-value (quote url-redirect-buffer) asynch-buffer) (setq proc (get-buffer-process (setq asynch-buffer (buffer-local-value (quote url-redirect-buffer) asynch-buffer)))) (if (and proc (memq (process-status proc) (quote (closed exit signal failed))) (eq proc (or (get-buffer-process asynch-buffer) proc))) (progn (delete-process proc) (setq retrieval-done t))) (if (or (condition-case nil (let ((inhibit-quit nil)) (accept-process-output proc)) (quit (setq quit-flag t) (eval (quote (ignore nil))))) (null proc)) nil (if quit-flag (progn (delete-process proc))) (setq proc (and (not quit-flag) (get-buffer-process asynch-buffer))))) (while (not retrieval-done) (url-debug (quote retrieval) "Spinning in url-retrieve-synchronously: %S (%S)" retrieval-done asynch-buffer) (if (buffer-local-value (quote url-redirect-buffer) asynch-buffer) (setq proc (get-buffer-process (setq asynch-buffer (buffer-local-value (quote url-redirect-buffer) asynch-buffer)))) (if (and proc (memq (process-status proc) (quote (closed exit signal failed))) (eq proc (or (get-buffer-process asynch-buffer) proc))) (progn (delete-process proc) (setq retrieval-done t))) (if (or (condition-case nil (let ((inhibit-quit nil)) (accept-process-output proc)) (quit (setq quit-flag t) (eval (quote ...)))) (null proc)) nil (if quit-flag (progn (delete-process proc))) (setq proc (and (not quit-flag) (get-buffer-process asynch-buffer)))))) (let ((proc (get-buffer-process asynch-buffer))) (while (not retrieval-done) (url-debug (quote retrieval) "Spinning in url-retrieve-synchronously: %S (%S)" retrieval-done asynch-buffer) (if (buffer-local-value (quote url-redirect-buffer) asynch-buffer) (setq proc (get-buffer-process (setq asynch-buffer (buffer-local-value (quote url-redirect-buffer) asynch-buffer)))) (if (and proc (memq (process-status proc) (quote (closed exit signal failed))) (eq proc (or (get-buffer-process asynch-buffer) proc))) (progn (delete-process proc) (setq retrieval-done t))) (if (or (condition-case nil (let (...) (accept-process-output proc)) (quit (setq quit-flag t) (eval ...))) (null proc)) nil (if quit-flag (progn (delete-process proc))) (setq proc (and (not quit-flag) (get-buffer-process asynch-buffer))))))) (if (null asynch-buffer) nil (let ((proc (get-buffer-process asynch-buffer))) (while (not retrieval-done) (url-debug (quote retrieval) "Spinning in url-retrieve-synchronously: %S (%S)" retrieval-done asynch-buffer) (if (buffer-local-value (quote url-redirect-buffer) asynch-buffer) (setq proc (get-buffer-process (setq asynch-buffer (buffer-local-value ... asynch-buffer)))) (if (and proc (memq (process-status proc) (quote ...)) (eq proc (or ... proc))) (progn (delete-process proc) (setq retrieval-done t))) (if (or (condition-case nil (let ... ...) (quit ... ...)) (null proc)) nil (if quit-flag (progn (delete-process proc))) (setq proc (and (not quit-flag) (get-buffer-process asynch-buffer))))))) asynch-buffer) (let ((retrieval-done nil) (asynch-buffer nil)) (setq asynch-buffer (url-retrieve url (function (lambda (&rest ignored) (url-debug (quote retrieval) "Synchronous fetching done (%S)" (current-buffer)) (setq retrieval-done t asynch-buffer (current-buffer)))) nil silent inhibit-cookies)) (if (null asynch-buffer) nil (let ((proc (get-buffer-process asynch-buffer))) (while (not retrieval-done) (url-debug (quote retrieval) "Spinning in url-retrieve-synchronously: %S (%S)" retrieval-done asynch-buffer) (if (buffer-local-value (quote url-redirect-buffer) asynch-buffer) (setq proc (get-buffer-process (setq asynch-buffer ...))) (if (and proc (memq ... ...) (eq proc ...)) (progn (delete-process proc) (setq retrieval-done t))) (if (or (condition-case nil ... ...) (null proc)) nil (if quit-flag (progn ...)) (setq proc (and ... ...)))))) asynch-buffer)) url-retrieve-synchronously("http://xip.io") long-outer-op() long-ops-now()