From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Thierry Volpiatto Newsgroups: gmane.emacs.bugs Subject: bug#13636: 24.3.50; tramp+ftp broken Date: Wed, 06 Feb 2013 16:58:01 +0100 Organization: Emacs Helm Message-ID: <871ucttoxi.fsf@gmail.com> References: <87k3ql4lau.fsf@gmail.com> <87lib1a58a.fsf@gmx.de> <87d2wdec7a.fsf@gmail.com> <8762251ohv.fsf@gmail.com> <878v71a1uz.fsf@gmx.de> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1360166342 25290 80.91.229.3 (6 Feb 2013 15:59:02 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 6 Feb 2013 15:59:02 +0000 (UTC) To: 13636@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Feb 06 16:59:22 2013 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 1U37P0-0005QW-72 for geb-bug-gnu-emacs@m.gmane.org; Wed, 06 Feb 2013 16:59:14 +0100 Original-Received: from localhost ([::1]:36585 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U37Oh-0004DK-Ec for geb-bug-gnu-emacs@m.gmane.org; Wed, 06 Feb 2013 10:58:55 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:57832) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U37Oc-0004D8-73 for bug-gnu-emacs@gnu.org; Wed, 06 Feb 2013 10:58:53 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1U37OY-0007Ut-He for bug-gnu-emacs@gnu.org; Wed, 06 Feb 2013 10:58:50 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:34002) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U37OY-0007Um-DH for bug-gnu-emacs@gnu.org; Wed, 06 Feb 2013 10:58:46 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1U37Pm-0007ve-JB for bug-gnu-emacs@gnu.org; Wed, 06 Feb 2013 11:00:02 -0500 X-Loop: help-debbugs@gnu.org In-Reply-To: <87k3ql4lau.fsf@gmail.com> Resent-From: Thierry Volpiatto Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 06 Feb 2013 16:00:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 13636 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.136016639330444 (code B ref -1); Wed, 06 Feb 2013 16:00:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 6 Feb 2013 15:59:53 +0000 Original-Received: from localhost ([127.0.0.1]:39466 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1U37Pb-0007ux-Rd for submit@debbugs.gnu.org; Wed, 06 Feb 2013 10:59:53 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:46376) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1U37PX-0007un-MB for submit@debbugs.gnu.org; Wed, 06 Feb 2013 10:59:50 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1U37OF-0007Qt-Qt for submit@debbugs.gnu.org; Wed, 06 Feb 2013 10:58:30 -0500 Original-Received: from lists.gnu.org ([208.118.235.17]:46157) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U37OF-0007Qo-NJ for submit@debbugs.gnu.org; Wed, 06 Feb 2013 10:58:27 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:57718) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U37OC-0004Bh-Hk for bug-gnu-emacs@gnu.org; Wed, 06 Feb 2013 10:58:27 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1U37O9-0007Q8-E8 for bug-gnu-emacs@gnu.org; Wed, 06 Feb 2013 10:58:24 -0500 Original-Received: from plane.gmane.org ([80.91.229.3]:54470) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U37O8-0007Pw-WF for bug-gnu-emacs@gnu.org; Wed, 06 Feb 2013 10:58:21 -0500 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1U37OO-0004nL-7C for bug-gnu-emacs@gnu.org; Wed, 06 Feb 2013 16:58:36 +0100 Original-Received: from lbe83-2-78-243-104-167.fbx.proxad.net ([78.243.104.167]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 06 Feb 2013 16:58:36 +0100 Original-Received: from thierry.volpiatto by lbe83-2-78-243-104-167.fbx.proxad.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 06 Feb 2013 16:58:36 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 345 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: lbe83-2-78-243-104-167.fbx.proxad.net User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2.92 (gnu/linux) Cancel-Lock: sha1:gg1RKX5nRk24zEdq2a1zZzABtho= X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.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:70754 Archived-At: Michael Albinus writes: > Thierry Volpiatto writes: > >>> Hi Michael, > > Hi Thierry, > >> The strange thing is emacs say .netrc is modified and ask to save it >> when quitting emacs but the file is not modified. >> And anyway, why tramp/ange would want to modify this file ? > > Tramp does not touches .netrc. ange-ftp shouldn't either, and there > haven't been recent changes I'm aware of. > > Hmm, unfortunately the most interesting part of the backtrace is byte > code. Could you, please, remove all *.elc from the lisp/ directory (and > subdirectories)? This might give us a better backtrace. Still have some byte-code, but more informative though. --8<---------------cut here---------------start------------->8--- Debugger entered--Lisp error: (wrong-type-argument stringp nil) signal(wrong-type-argument (stringp nil)) byte-code("\301@A\"\207" [err signal] 3) ange-ftp-hook-function(file-remote-p "/ftp:mafreebox.freebox.fr:" nil nil) apply(ange-ftp-hook-function file-remote-p ("/ftp:mafreebox.freebox.fr:" = nil nil)) (let* ((inhibit-file-name-handlers (list (quote tramp-file-name-handler) = (quote tramp-completion-file-name-handler) (and (eq inhibit-file-name-opera= tion operation) inhibit-file-name-handlers))) (inhibit-file-name-operation = operation)) (apply (quote ange-ftp-hook-function) operation args)) (cond ((memq operation (quote (file-directory-p file-exists-p))) (if (app= ly (quote ange-ftp-hook-function) operation args) (let ((v (tramp-dissect-f= ile-name (car args) t))) (aset v 0 tramp-ftp-method) (tramp-set-connection-= property v "started" t)) nil)) ((and (memq operation (quote (copy-file rena= me-file))) (file-remote-p (cadr args)) (not (tramp-ftp-file-name-p (cadr ar= gs)))) (let* ((filename (car args)) (newname (cadr args)) (tmpfile (tramp-c= ompat-make-temp-file filename)) (args (cddr args))) (if (eq operation (quot= e copy-file)) (apply operation filename tmpfile t (cdr args)) (apply operat= ion filename tmpfile t)) (unwind-protect (rename-file tmpfile newname (car = args)) (condition-case nil (progn (delete-file tmpfile)) (error nil))))) (t= (let* ((inhibit-file-name-handlers (list (quote tramp-file-name-handler) (= quote tramp-completion-file-name-handler) (and (eq inhibit-file-name-operat= ion operation) inhibit-file-name-handlers))) (inhibit-file-name-operation o= peration)) (apply (quote ange-ftp-hook-function) operation args)))) (let ((ange-ftp-name-format (list (nth 0 tramp-file-name-structure) (nth = 3 tramp-file-name-structure) (nth 2 tramp-file-name-structure) (nth 4 tramp= -file-name-structure))) (ange-ftp-ftp-name-arg "") (ange-ftp-ftp-name-res n= il)) (cond ((memq operation (quote (file-directory-p file-exists-p))) (if (= apply (quote ange-ftp-hook-function) operation args) (let ((v (tramp-dissec= t-file-name ... t))) (aset v 0 tramp-ftp-method) (tramp-set-connection-prop= erty v "started" t)) nil)) ((and (memq operation (quote (copy-file rename-f= ile))) (file-remote-p (cadr args)) (not (tramp-ftp-file-name-p (cadr args))= )) (let* ((filename (car args)) (newname (cadr args)) (tmpfile (tramp-compa= t-make-temp-file filename)) (args (cddr args))) (if (eq operation (quote co= py-file)) (apply operation filename tmpfile t (cdr args)) (apply operation = filename tmpfile t)) (unwind-protect (rename-file tmpfile newname (car args= )) (condition-case nil (progn (delete-file tmpfile)) (error nil))))) (t (le= t* ((inhibit-file-name-handlers (list (quote tramp-file-name-handler) (quot= e tramp-completion-file-name-handler) (and ... inhibit-file-name-handlers))= ) (inhibit-file-name-operation operation)) (apply (quote ange-ftp-hook-func= tion) operation args))))) (progn (or (boundp (quote ange-ftp-name-format)) (let (file-name-handler-= alist) (require (quote ange-ftp)))) (let ((ange-ftp-name-format (list (nth = 0 tramp-file-name-structure) (nth 3 tramp-file-name-structure) (nth 2 tramp= -file-name-structure) (nth 4 tramp-file-name-structure))) (ange-ftp-ftp-nam= e-arg "") (ange-ftp-ftp-name-res nil)) (cond ((memq operation (quote (file-= directory-p file-exists-p))) (if (apply (quote ange-ftp-hook-function) oper= ation args) (let ((v ...)) (aset v 0 tramp-ftp-method) (tramp-set-connectio= n-property v "started" t)) nil)) ((and (memq operation (quote (copy-file re= name-file))) (file-remote-p (cadr args)) (not (tramp-ftp-file-name-p (cadr = args)))) (let* ((filename (car args)) (newname (cadr args)) (tmpfile (tramp= -compat-make-temp-file filename)) (args (cddr args))) (if (eq operation (qu= ote copy-file)) (apply operation filename tmpfile t (cdr args)) (apply oper= ation filename tmpfile t)) (unwind-protect (rename-file tmpfile newname (ca= r args)) (condition-case nil (progn ...) (error nil))))) (t (let* ((inhibit= -file-name-handlers (list ... ... ...)) (inhibit-file-name-operation operat= ion)) (apply (quote ange-ftp-hook-function) operation args)))))) (unwind-protect (progn (or (boundp (quote ange-ftp-name-format)) (let (fi= le-name-handler-alist) (require (quote ange-ftp)))) (let ((ange-ftp-name-fo= rmat (list (nth 0 tramp-file-name-structure) (nth 3 tramp-file-name-structu= re) (nth 2 tramp-file-name-structure) (nth 4 tramp-file-name-structure))) (= ange-ftp-ftp-name-arg "") (ange-ftp-ftp-name-res nil)) (cond ((memq operati= on (quote (file-directory-p file-exists-p))) (if (apply (quote ange-ftp-hoo= k-function) operation args) (let (...) (aset v 0 tramp-ftp-method) (tramp-s= et-connection-property v "started" t)) nil)) ((and (memq operation (quote .= ..)) (file-remote-p (cadr args)) (not (tramp-ftp-file-name-p ...))) (let* (= (filename ...) (newname ...) (tmpfile ...) (args ...)) (if (eq operation ..= .) (apply operation filename tmpfile t ...) (apply operation filename tmpfi= le t)) (unwind-protect (rename-file tmpfile newname ...) (condition-case ni= l ... ...)))) (t (let* ((inhibit-file-name-handlers ...) (inhibit-file-name= -operation operation)) (apply (quote ange-ftp-hook-function) operation args= )))))) (set-match-data save-match-data-internal (quote evaporate))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (or= (boundp (quote ange-ftp-name-format)) (let (file-name-handler-alist) (requ= ire (quote ange-ftp)))) (let ((ange-ftp-name-format (list (nth 0 tramp-file= -name-structure) (nth 3 tramp-file-name-structure) (nth 2 tramp-file-name-s= tructure) (nth 4 tramp-file-name-structure))) (ange-ftp-ftp-name-arg "") (a= nge-ftp-ftp-name-res nil)) (cond ((memq operation (quote ...)) (if (apply .= .. operation args) (let ... ... ...) nil)) ((and (memq operation ...) (file= -remote-p ...) (not ...)) (let* (... ... ... ...) (if ... ... ...) (unwind-= protect ... ...))) (t (let* (... ...) (apply ... operation args)))))) (set-= match-data save-match-data-internal (quote evaporate)))) tramp-ftp-file-name-handler(file-remote-p "/ftp:mafreebox.freebox.fr:" ni= l nil) apply(tramp-ftp-file-name-handler file-remote-p ("/ftp:mafreebox.freebox.= fr:" nil nil)) (catch (quote suppress) (apply foreign operation args)) (catch (quote non-essential) (catch (quote suppress) (apply foreign opera= tion args))) (setq result (catch (quote non-essential) (catch (quote suppress) (apply = foreign operation args)))) (let ((sf (symbol-function foreign)) result) (if (and (listp sf) (eq (car= sf) (quote autoload))) (progn (let ((default-directory (tramp-compat-tempo= rary-file-directory))) (load (cadr sf) (quote noerror) (quote nomessage))))= ) (setq result (catch (quote non-essential) (catch (quote suppress) (apply = foreign operation args)))) (cond ((eq result (quote non-essential)) (tramp-= message v 5 "Non-essential received in operation %s" (append (list operatio= n) args)) (tramp-run-real-handler operation args)) ((eq result (quote suppr= ess)) (let (tramp-message-show-message) (tramp-message v 1 "Suppress receiv= ed in operation %s" (append (list operation) args)) (tramp-cleanup v) (tram= p-run-real-handler operation args))) (t result))) (condition-case err (let ((sf (symbol-function foreign)) result) (if (and= (listp sf) (eq (car sf) (quote autoload))) (progn (let ((default-directory= (tramp-compat-temporary-file-directory))) (load (cadr sf) (quote noerror) = (quote nomessage))))) (setq result (catch (quote non-essential) (catch (quo= te suppress) (apply foreign operation args)))) (cond ((eq result (quote non= -essential)) (tramp-message v 5 "Non-essential received in operation %s" (a= ppend (list operation) args)) (tramp-run-real-handler operation args)) ((eq= result (quote suppress)) (let (tramp-message-show-message) (tramp-message = v 1 "Suppress received in operation %s" (append (list operation) args)) (tr= amp-cleanup v) (tramp-run-real-handler operation args))) (t result))) ((deb= ug debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interr= upt received in operation %s" (append (list operation) args))) (signal (car= err) (cdr err))) ((debug error) (cond ((and completion (zerop (length loca= lname)) (memq operation (quote (file-exists-p file-directory-p)))) t) ((and= completion (zerop (length localname)) (memq operation (quote (expand-file-= name file-name-as-directory)))) filename) (t (signal (car err) (cdr err))))= )) (if foreign (condition-case err (let ((sf (symbol-function foreign)) resu= lt) (if (and (listp sf) (eq (car sf) (quote autoload))) (progn (let ((defau= lt-directory ...)) (load (cadr sf) (quote noerror) (quote nomessage))))) (s= etq result (catch (quote non-essential) (catch (quote suppress) (apply fore= ign operation args)))) (cond ((eq result (quote non-essential)) (tramp-mess= age v 5 "Non-essential received in operation %s" (append (list operation) a= rgs)) (tramp-run-real-handler operation args)) ((eq result (quote suppress)= ) (let (tramp-message-show-message) (tramp-message v 1 "Suppress received i= n operation %s" (append ... args)) (tramp-cleanup v) (tramp-run-real-handle= r operation args))) (t result))) ((debug debug quit) (let (tramp-message-sh= ow-message) (tramp-message v 1 "Interrupt received in operation %s" (append= (list operation) args))) (signal (car err) (cdr err))) ((debug error) (con= d ((and completion (zerop (length localname)) (memq operation (quote ...)))= t) ((and completion (zerop (length localname)) (memq operation (quote ...)= )) filename) (t (signal (car err) (cdr err)))))) (tramp-run-real-handler op= eration args)) (let* ((v (tramp-dissect-file-name filename)) (method (tramp-file-name-me= thod v)) (user (tramp-file-name-user v)) (host (tramp-file-name-host v)) (l= ocalname (tramp-file-name-localname v)) (hop (tramp-file-name-hop v))) (if = foreign (condition-case err (let ((sf (symbol-function foreign)) result) (i= f (and (listp sf) (eq (car sf) (quote autoload))) (progn (let (...) (load .= .. ... ...)))) (setq result (catch (quote non-essential) (catch (quote supp= ress) (apply foreign operation args)))) (cond ((eq result (quote non-essent= ial)) (tramp-message v 5 "Non-essential received in operation %s" (append .= .. args)) (tramp-run-real-handler operation args)) ((eq result (quote suppr= ess)) (let (tramp-message-show-message) (tramp-message v 1 "Suppress receiv= ed in operation %s" ...) (tramp-cleanup v) (tramp-run-real-handler operatio= n args))) (t result))) ((debug debug quit) (let (tramp-message-show-message= ) (tramp-message v 1 "Interrupt received in operation %s" (append (list ope= ration) args))) (signal (car err) (cdr err))) ((debug error) (cond ((and co= mpletion (zerop ...) (memq operation ...)) t) ((and completion (zerop ...) = (memq operation ...)) filename) (t (signal (car err) (cdr err)))))) (tramp-= run-real-handler operation args))) (let* ((filename (tramp-replace-environment-variables (apply (quote tramp= -file-name-for-operation) operation args))) (completion (tramp-completion-m= ode-p)) (foreign (tramp-find-foreign-file-name-handler filename))) (let* ((= v (tramp-dissect-file-name filename)) (method (tramp-file-name-method v)) (= user (tramp-file-name-user v)) (host (tramp-file-name-host v)) (localname (= tramp-file-name-localname v)) (hop (tramp-file-name-hop v))) (if foreign (c= ondition-case err (let ((sf (symbol-function foreign)) result) (if (and (li= stp sf) (eq ... ...)) (progn (let ... ...))) (setq result (catch (quote non= -essential) (catch ... ...))) (cond ((eq result ...) (tramp-message v 5 "No= n-essential received in operation %s" ...) (tramp-run-real-handler operatio= n args)) ((eq result ...) (let ... ... ... ...)) (t result))) ((debug debug= quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt rece= ived in operation %s" (append ... args))) (signal (car err) (cdr err))) ((d= ebug error) (cond ((and completion ... ...) t) ((and completion ... ...) fi= lename) (t (signal ... ...))))) (tramp-run-real-handler operation args)))) (progn (let* ((filename (tramp-replace-environment-variables (apply (quot= e tramp-file-name-for-operation) operation args))) (completion (tramp-compl= etion-mode-p)) (foreign (tramp-find-foreign-file-name-handler filename))) (= let* ((v (tramp-dissect-file-name filename)) (method (tramp-file-name-metho= d v)) (user (tramp-file-name-user v)) (host (tramp-file-name-host v)) (loca= lname (tramp-file-name-localname v)) (hop (tramp-file-name-hop v))) (if for= eign (condition-case err (let ((sf ...) result) (if (and ... ...) (progn ..= .)) (setq result (catch ... ...)) (cond (... ... ...) (... ...) (t result))= ) ((debug debug quit) (let (tramp-message-show-message) (tramp-message v 1 = "Interrupt received in operation %s" ...)) (signal (car err) (cdr err))) ((= debug error) (cond (... t) (... filename) (t ...)))) (tramp-run-real-handle= r operation args))))) (unwind-protect (progn (let* ((filename (tramp-replace-environment-variab= les (apply (quote tramp-file-name-for-operation) operation args))) (complet= ion (tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handl= er filename))) (let* ((v (tramp-dissect-file-name filename)) (method (tramp= -file-name-method v)) (user (tramp-file-name-user v)) (host (tramp-file-nam= e-host v)) (localname (tramp-file-name-localname v)) (hop (tramp-file-name-= hop v))) (if foreign (condition-case err (let (... result) (if ... ...) (se= tq result ...) (cond ... ... ...)) ((debug debug quit) (let ... ...) (signa= l ... ...)) ((debug error) (cond ... ... ...))) (tramp-run-real-handler ope= ration args))))) (set-match-data save-match-data-internal (quote evaporate)= )) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (le= t* ((filename (tramp-replace-environment-variables (apply ... operation arg= s))) (completion (tramp-completion-mode-p)) (foreign (tramp-find-foreign-fi= le-name-handler filename))) (let* ((v (tramp-dissect-file-name filename)) (= method (tramp-file-name-method v)) (user (tramp-file-name-user v)) (host (t= ramp-file-name-host v)) (localname (tramp-file-name-localname v)) (hop (tra= mp-file-name-hop v))) (if foreign (condition-case err (let ... ... ... ...)= (... ... ...) (... ...)) (tramp-run-real-handler operation args))))) (set-= match-data save-match-data-internal (quote evaporate)))) (if tramp-mode (let ((save-match-data-internal (match-data))) (unwind-pro= tect (progn (let* ((filename (tramp-replace-environment-variables ...)) (co= mpletion (tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-= handler filename))) (let* ((v ...) (method ...) (user ...) (host ...) (loca= lname ...) (hop ...)) (if foreign (condition-case err ... ... ...) (tramp-r= un-real-handler operation args))))) (set-match-data save-match-data-interna= l (quote evaporate)))) (tramp-run-real-handler operation args)) tramp-file-name-handler(file-remote-p "/ftp:mafreebox.freebox.fr:" nil ni= l) file-remote-p("/ftp:mafreebox.freebox.fr:" nil nil) apply(file-remote-p ("/ftp:mafreebox.freebox.fr:" nil nil)) (let* ((inhibit-file-name-handlers (cons (quote tramp-completion-file-nam= e-handler) (cons (quote cygwin-mount-name-hook-function) (cons (quote cygwi= n-mount-map-drive-hook-function) (and (eq inhibit-file-name-operation opera= tion) inhibit-file-name-handlers))))) (inhibit-file-name-operation operatio= n)) (apply operation args)) tramp-completion-run-real-handler(file-remote-p ("/ftp:mafreebox.freebox.= fr:" nil nil)) (if (and fn tramp-mode (or (eq tramp-syntax (quote sep)) (featurep (quote= tramp)) (and (boundp (quote partial-completion-mode)) (symbol-value (quote= partial-completion-mode))) (featurep (quote ido)) (featurep (quote icicles= )))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn = (apply (cdr fn) args)) (set-match-data save-match-data-internal (quote evap= orate)))) (tramp-completion-run-real-handler operation args)) (let ((directory-sep-char 47) (fn (assoc operation tramp-completion-file-= name-handler-alist))) (if (and fn tramp-mode (or (eq tramp-syntax (quote se= p)) (featurep (quote tramp)) (and (boundp (quote partial-completion-mode)) = (symbol-value (quote partial-completion-mode))) (featurep (quote ido)) (fea= turep (quote icicles)))) (let ((save-match-data-internal (match-data))) (un= wind-protect (progn (apply (cdr fn) args)) (set-match-data save-match-data-= internal (quote evaporate)))) (tramp-completion-run-real-handler operation = args))) tramp-completion-file-name-handler(file-remote-p "/ftp:mafreebox.freebox.= fr:" nil nil) file-remote-p("/ftp:mafreebox.freebox.fr:") (if (file-remote-p (if (or (subrp (quote buffer-substring-no-properties))= (functionp (quote buffer-substring-no-properties))) (progn (with-no-warnin= gs (funcall (quote buffer-substring-no-properties) end (point-max)))))) (pr= ogn (save-excursion (save-restriction (narrow-to-region (1+ (or (string-mat= ch tramp-rfn-eshadow-update-overlay-regexp ... end) end)) (point-max)) (let= ((rfn-eshadow-overlay tramp-rfn-eshadow-overlay) (rfn-eshadow-update-overl= ay-hook nil) file-name-handler-alist) (if (or (subrp ...) (functionp ...)) = (progn (with-no-warnings ...))) (if (or (subrp ...) (functionp ...)) (progn= (with-no-warnings ...)))))))) (let ((end (or (if (or (subrp (quote overlay-end)) (functionp (quote over= lay-end))) (progn (with-no-warnings (funcall ... ...)))) (if (or (subrp (qu= ote minibuffer-prompt-end)) (functionp (quote minibuffer-prompt-end))) (pro= gn (with-no-warnings (funcall ...)))))) (non-essential t)) (if (file-remote= -p (if (or (subrp (quote buffer-substring-no-properties)) (functionp (quote= buffer-substring-no-properties))) (progn (with-no-warnings (funcall (quote= buffer-substring-no-properties) end (point-max)))))) (progn (save-excursio= n (save-restriction (narrow-to-region (1+ (or ... end)) (point-max)) (let (= (rfn-eshadow-overlay tramp-rfn-eshadow-overlay) (rfn-eshadow-update-overlay= -hook nil) file-name-handler-alist) (if (or ... ...) (progn ...)) (if (or .= .. ...) (progn ...)))))))) (progn (let ((end (or (if (or (subrp ...) (functionp ...)) (progn (with-n= o-warnings ...))) (if (or (subrp ...) (functionp ...)) (progn (with-no-warn= ings ...))))) (non-essential t)) (if (file-remote-p (if (or (subrp (quote b= uffer-substring-no-properties)) (functionp (quote buffer-substring-no-prope= rties))) (progn (with-no-warnings (funcall ... end ...))))) (progn (save-ex= cursion (save-restriction (narrow-to-region (1+ ...) (point-max)) (let (...= ... file-name-handler-alist) (if ... ...) (if ... ...)))))))) (condition-case nil (progn (let ((end (or (if (or ... ...) (progn ...)) (= if (or ... ...) (progn ...)))) (non-essential t)) (if (file-remote-p (if (o= r (subrp ...) (functionp ...)) (progn (with-no-warnings ...)))) (progn (sav= e-excursion (save-restriction (narrow-to-region ... ...) (let ... ... ...))= ))))) (error nil)) tramp-rfn-eshadow-update-overlay() run-hooks(rfn-eshadow-update-overlay-hook) byte-code("\306\307 !\310!\311 d\312=1A=1C\f\203?\f\n=3D\204*=0D\fT=12\2= 11\313\314\315\217\232*\204?\f=0B=3D\204\215=0D\f=12\211\313\314\315\217\23= 2*\204\215=0BT\nW\204f\nTdW\203\206=0D\nT=12\211\313\314\315\217\232*\203\2= 06\nTd\211\203\206=0B\n\\\316\245=0D\f=12\211\313\314\315\217\232*\203\201\= f\211\202@\f\202?\317\311 =0B#\210\320\321!-\207" [rfn-eshadow-overlay non= -essential end start mid goal substitute-in-file-name minibuffer-contents o= verlay-end minibuffer-prompt-end t nil (byte-code "\301\302d\"!\207" [pos = substitute-in-file-name buffer-substring-no-properties] 4) ((error)) 2 move= -overlay run-hooks rfn-eshadow-update-overlay-hook pos] 6) rfn-eshadow-update-overlay() read-from-minibuffer("Find file: " "~/tmp/emacs-savanah-git/" (keymap (ke= ymap (32)) keymap (10 . minibuffer-complete-and-exit) (13 . minibuffer-comp= lete-and-exit) keymap (menu-bar keymap (minibuf "Minibuf" keymap (tab menu-= item "Complete" minibuffer-complete :help "Complete as far as possible") (s= pace menu-item "Complete Word" minibuffer-complete-word :help "Complete at = most one word") (63 menu-item "List Completions" minibuffer-completion-help= :help "Display all possible completions") "Minibuf")) (27 keymap (118 . sw= itch-to-completions)) (prior . switch-to-completions) (63 . minibuffer-comp= letion-help) (32 . minibuffer-complete-word) (9 . minibuffer-complete) keym= ap (menu-bar keymap (minibuf "Minibuf" keymap (previous menu-item "Previous= History Item" previous-history-element :help "Put previous minibuffer hist= ory element in the minibuffer") (next menu-item "Next History Item" next-hi= story-element :help "Put next minibuffer history element in the minibuffer"= ) (isearch-backward menu-item "Isearch History Backward" isearch-backward := help "Incrementally search minibuffer history backward") (isearch-forward m= enu-item "Isearch History Forward" isearch-forward :help "Incrementally sea= rch minibuffer history forward") (return menu-item "Enter" exit-minibuffer = :key-sequence "" :help "Terminate input and exit minibuffer") (quit menu-it= em "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") "Mi= nibuf")) (10 . exit-minibuffer) (13 . exit-minibuffer) (7 . abort-recursive= -edit) (C-tab . file-cache-minibuffer-complete) (9 . self-insert-command) (= XF86Back . previous-history-element) (up . previous-history-element) (prior= . previous-history-element) (XF86Forward . next-history-element) (down . n= ext-history-element) (next . next-history-element) (27 keymap (114 . previo= us-matching-history-element) (115 . next-matching-history-element) (112 . p= revious-history-element) (110 . next-history-element))) nil file-name-histo= ry "~/tmp/emacs-savanah-git/" nil) completing-read-default("Find file: " read-file-name-internal file-exists= -p confirm-after-completion "~/tmp/emacs-savanah-git/" file-name-history "~= /tmp/emacs-savanah-git/" nil) completing-read("Find file: " read-file-name-internal file-exists-p confi= rm-after-completion "~/tmp/emacs-savanah-git/" file-name-history "~/tmp/ema= cs-savanah-git/") read-file-name-default("Find file: " nil "~/tmp/emacs-savanah-git/" confi= rm-after-completion nil nil) read-file-name("Find file: " nil "~/tmp/emacs-savanah-git/" confirm-after= -completion) find-file-read-args("Find file: " confirm-after-completion) byte-code("\300\301\302 \"\207" [find-file-read-args "Find file: " confir= m-nonexistent-file-or-buffer] 3) call-interactively(find-file nil nil) --8<---------------cut here---------------end--------------->8--- --=20 Thierry Get my Gnupg key: gpg --keyserver pgp.mit.edu --recv-keys 59F29997=20