From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Chong Yidong Newsgroups: gmane.emacs.bugs Subject: bug#5705: 23.1.93; recursive load error when loading tramp Date: Thu, 11 Mar 2010 12:36:23 -0500 Message-ID: <87r5nqn4ko.fsf@stupidchicken.com> References: <201003111627.40188.p.pogonyshev@anakreon.net> <87sk86zvuq.fsf@stupidchicken.com> <201003111817.44444.p.pogonyshev@anakreon.net> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1268331007 32152 80.91.229.12 (11 Mar 2010 18:10:07 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 11 Mar 2010 18:10:07 +0000 (UTC) Cc: 5705@debbugs.gnu.org, Paul Pogonyshev To: Michael Albinus Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Mar 11 19:10:02 2010 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1NpmpY-0003r8-Kk for geb-bug-gnu-emacs@m.gmane.org; Thu, 11 Mar 2010 19:09:57 +0100 Original-Received: from localhost ([127.0.0.1]:55106 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NpmpX-0003vi-SE for geb-bug-gnu-emacs@m.gmane.org; Thu, 11 Mar 2010 13:09:55 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Npmai-0004B7-1m for bug-gnu-emacs@gnu.org; Thu, 11 Mar 2010 12:54:36 -0500 Original-Received: from [140.186.70.92] (port=46837 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Npmag-00049n-Mu for bug-gnu-emacs@gnu.org; Thu, 11 Mar 2010 12:54:35 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1Npmae-00082Q-UV for bug-gnu-emacs@gnu.org; Thu, 11 Mar 2010 12:54:34 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:59648) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Npmae-00082M-QJ for bug-gnu-emacs@gnu.org; Thu, 11 Mar 2010 12:54:32 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1NpmJi-0001p3-Bj; Thu, 11 Mar 2010 12:37:02 -0500 X-Loop: bug-gnu-emacs@gnu.org Resent-From: Chong Yidong Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 11 Mar 2010 17:37:02 +0000 Resent-Message-ID: Resent-Sender: bug-gnu-emacs@gnu.org X-GNU-PR-Message: followup 5705 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 5705-submit@debbugs.gnu.org id=B5705.12683289946972 (code B ref 5705); Thu, 11 Mar 2010 17:37:02 +0000 Original-Received: (at 5705) by debbugs.gnu.org; 11 Mar 2010 17:36:34 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NpmJF-0001oP-Vb for submit@debbugs.gnu.org; Thu, 11 Mar 2010 12:36:34 -0500 Original-Received: from pantheon-po25.its.yale.edu ([130.132.50.119]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NpmJF-0001oK-7w for 5705@debbugs.gnu.org; Thu, 11 Mar 2010 12:36:33 -0500 Original-Received: from furry (dhcp128036014175.central.yale.edu [128.36.14.175]) (authenticated bits=0) by pantheon-po25.its.yale.edu (8.12.11.20060308/8.12.11) with ESMTP id o2BHaNaQ013316 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NOT); Thu, 11 Mar 2010 12:36:23 -0500 Original-Received: by furry (Postfix, from userid 1000) id 071B0C011; Thu, 11 Mar 2010 12:36:23 -0500 (EST) In-Reply-To: <201003111817.44444.p.pogonyshev@anakreon.net> (Paul Pogonyshev's message of "Thu, 11 Mar 2010 18:17:44 +0200") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.94 (gnu/linux) X-YaleITSMailFilter: Version 1.2c (attachment(s) not renamed) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Thu, 11 Mar 2010 12:37:02 -0500 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) 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: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:35523 Archived-At: Paul Pogonyshev writes: > Sorry, I tried now with 'emacs -Q' and found a corrected way: > > M-x ido-mode RET enable ido > C-x C-f / / this makes ido load tramp > C-g abort loading > > You need to be quick to hit C-g while tramp is still loading. After > this file opening stops working just as described, at least here. OK, I see the problem. If you C-g while Tramp is loading, it leaves Tramp in a half-loaded state, which screws up all subsequent calls to tramp-tramp-file-p (Lisp backtrace below). The eval-after-load in tramp.el seems to be the culprit. Michael, could you take a look? Debugger entered--Lisp error: (error "Recursive load" "/home/cyd/emacs/lisp/net/tramp.elc" "/home/cyd/emacs/lisp/net/tramp-cmds.elc" "/home/cyd/emacs/lisp/net/tramp.elc" "/home/cyd/emacs/lisp/net/tramp-cmds.elc" "/home/cyd/emacs/lisp/net/tramp.elc" "/home/cyd/emacs/lisp/net/tramp-cmds.elc" "/home/cyd/emacs/lisp/net/tramp.elc" "/home/cyd/emacs/lisp/net/tramp-cmds.elc" "/home/cyd/emacs/lisp/net/tramp.elc") require(tramp) require(tramp-cmds) (catch (quote tramp-loading) (require feature) (add-hook (quote tramp-unload-hook) (\` ...))) (progn (catch (quote tramp-loading) (require feature) (add-hook ... ...)) (unless (featurep feature) (message "Loading %s failed, ignoring this package" feature))) (if feature (progn (catch ... ... ...) (unless ... ...))) (when feature (catch (quote tramp-loading) (require feature) (add-hook ... ...)) (unless (featurep feature) (message "Loading %s failed, ignoring this package" feature))) (while --dolist-tail-- (setq feature (car --dolist-tail--)) (when feature (catch ... ... ...) (unless ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))) (let ((--dolist-tail-- ...) feature) (while --dolist-tail-- (setq feature ...) (when feature ... ...) (setq --dolist-tail-- ...))) (dolist (feature (list ... ... ... ... ... ... ...)) (when feature (catch ... ... ...) (unless ... ...))) eval((dolist (feature (list ... ... ... ... ... ... ...)) (when feature (catch ... ... ...) (unless ... ...)))) eval-after-load("tramp" (dolist (feature (list ... ... ... ... ... ... ...)) (when feature (catch ... ... ...) (unless ... ...)))) byte-code("\300\301\302\"\210\303\304\305\"\210\306\307\310\"\210\311\312\313\314\315\316\317\320&\207" [add-hook tramp-unload-hook #[nil "\300\301!\205\n\302\301\303\"\207" [featurep tramp-uu unload-feature force] 3] autoload uudecode-decode-region "uudecode" eval-after-load "tramp" (dolist (feature ...) (when feature ... ...)) custom-declare-group tramp nil "Edit remote files with a combination of rsh and rcp or similar programs." :group files :version "22.1"] 8) require(tramp) require(tramp-cmds) (catch (quote tramp-loading) (require feature) (add-hook (quote tramp-unload-hook) (\` ...))) (progn (catch (quote tramp-loading) (require feature) (add-hook ... ...)) (unless (featurep feature) (message "Loading %s failed, ignoring this package" feature))) (if feature (progn (catch ... ... ...) (unless ... ...))) (when feature (catch (quote tramp-loading) (require feature) (add-hook ... ...)) (unless (featurep feature) (message "Loading %s failed, ignoring this package" feature))) (while --dolist-tail-- (setq feature (car --dolist-tail--)) (when feature (catch ... ... ...) (unless ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))) (let ((--dolist-tail-- ...) feature) (while --dolist-tail-- (setq feature ...) (when feature ... ...) (setq --dolist-tail-- ...))) (dolist (feature (list ... ... ... ... ... ... ...)) (when feature (catch ... ... ...) (unless ... ...))) eval((dolist (feature (list ... ... ... ... ... ... ...)) (when feature (catch ... ... ...) (unless ... ...)))) eval-after-load("tramp" (dolist (feature (list ... ... ... ... ... ... ...)) (when feature (catch ... ... ...) (unless ... ...)))) byte-code("\300\301\302\"\210\303\304\305\"\210\306\307\310\"\210\311\312\313\314\315\316\317\320&\207" [add-hook tramp-unload-hook #[nil "\300\301!\205\n\302\301\303\"\207" [featurep tramp-uu unload-feature force] 3] autoload uudecode-decode-region "uudecode" eval-after-load "tramp" (dolist (feature ...) (when feature ... ...)) custom-declare-group tramp nil "Edit remote files with a combination of rsh and rcp or similar programs." :group files :version "22.1"] 8) require(tramp) require(tramp-cmds) (catch (quote tramp-loading) (require feature) (add-hook (quote tramp-unload-hook) (\` ...))) (progn (catch (quote tramp-loading) (require feature) (add-hook ... ...)) (unless (featurep feature) (message "Loading %s failed, ignoring this package" feature))) (if feature (progn (catch ... ... ...) (unless ... ...))) (when feature (catch (quote tramp-loading) (require feature) (add-hook ... ...)) (unless (featurep feature) (message "Loading %s failed, ignoring this package" feature))) (while --dolist-tail-- (setq feature (car --dolist-tail--)) (when feature (catch ... ... ...) (unless ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))) (let ((--dolist-tail-- ...) feature) (while --dolist-tail-- (setq feature ...) (when feature ... ...) (setq --dolist-tail-- ...))) (dolist (feature (list ... ... ... ... ... ... ...)) (when feature (catch ... ... ...) (unless ... ...))) eval((dolist (feature (list ... ... ... ... ... ... ...)) (when feature (catch ... ... ...) (unless ... ...)))) eval-after-load("tramp" (dolist (feature (list ... ... ... ... ... ... ...)) (when feature (catch ... ... ...) (unless ... ...)))) byte-code("\300\301\302\"\210\303\304\305\"\210\306\307\310\"\210\311\312\313\314\315\316\317\320&\207" [add-hook tramp-unload-hook #[nil "\300\301!\205\n\302\301\303\"\207" [featurep tramp-uu unload-feature force] 3] autoload uudecode-decode-region "uudecode" eval-after-load "tramp" (dolist (feature ...) (when feature ... ...)) custom-declare-group tramp nil "Edit remote files with a combination of rsh and rcp or similar programs." :group files :version "22.1"] 8) require(tramp) require(tramp-cmds) (catch (quote tramp-loading) (require feature) (add-hook (quote tramp-unload-hook) (\` ...))) (progn (catch (quote tramp-loading) (require feature) (add-hook ... ...)) (unless (featurep feature) (message "Loading %s failed, ignoring this package" feature))) (if feature (progn (catch ... ... ...) (unless ... ...))) (when feature (catch (quote tramp-loading) (require feature) (add-hook ... ...)) (unless (featurep feature) (message "Loading %s failed, ignoring this package" feature))) (while --dolist-tail-- (setq feature (car --dolist-tail--)) (when feature (catch ... ... ...) (unless ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))) (let ((--dolist-tail-- ...) feature) (while --dolist-tail-- (setq feature ...) (when feature ... ...) (setq --dolist-tail-- ...))) (dolist (feature (list ... ... ... ... ... ... ...)) (when feature (catch ... ... ...) (unless ... ...))) eval((dolist (feature (list ... ... ... ... ... ... ...)) (when feature (catch ... ... ...) (unless ... ...)))) eval-after-load("tramp" (dolist (feature (list ... ... ... ... ... ... ...)) (when feature (catch ... ... ...) (unless ... ...)))) byte-code("\300\301\302\"\210\303\304\305\"\210\306\307\310\"\210\311\312\313\314\315\316\317\320&^G\207" [add-hook tramp-unload-hook #[nil "\300\301!\205\n\302\301\303\"\207" [featurep tramp-uu unload-feature force] 3] autoload uudecode-decode-region "uudecode" eval-after-load "tramp" (dolist (feature ...) (when feature ... ...)) custom-declare-group tramp nil "Edit remote files with a combination of rsh and rcp or similar programs." :group files :version "22.1"] 8) tramp-tramp-file-p("/home/cyd/emacs/admin/ChangeLog") tramp-find-foreign-file-name-handler("/home/cyd/emacs/admin/ChangeLog") tramp-set-auto-save() run-hooks(find-file-hook) after-find-file(nil t) find-file-noselect-1(# "~/emacs/admin/ChangeLog" nil nil "~/src/emacs/emacs-23/admin/ChangeLog" (3499012 2054)) find-file-noselect("/home/cyd/emacs/admin/ChangeLog" nil nil) ido-file-internal(raise-frame) ido-find-file() call-interactively(ido-find-file nil nil)