From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Andreas Schwab Newsgroups: gmane.emacs.devel,gmane.emacs.tramp Subject: Re: New Tramp version fails with ssh. Date: Sun, 30 May 2004 22:25:52 +0200 Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: References: <200405301837.i4UIbQG08258@raven.dms.auburn.edu> <200405301959.i4UJxe508464@raven.dms.auburn.edu> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: sea.gmane.org 1085948955 32624 80.91.224.253 (30 May 2004 20:29:15 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 30 May 2004 20:29:15 +0000 (UTC) Cc: tramp-devel@mail.freesoftware.fsf.org, kai@emptydomain.de, emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Sun May 30 22:29:03 2004 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BUWvX-0006u7-00 for ; Sun, 30 May 2004 22:29:03 +0200 Original-Received: from lists.gnu.org ([199.232.76.165]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1BUWvX-0003RF-00 for ; Sun, 30 May 2004 22:29:03 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BUWvf-0000uj-Vh for emacs-devel@quimby.gnus.org; Sun, 30 May 2004 16:29:11 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1BUWvE-0000Tl-Dm for emacs-devel@gnu.org; Sun, 30 May 2004 16:28:44 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1BUWvB-0000PW-7n for emacs-devel@gnu.org; Sun, 30 May 2004 16:28:43 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BUWvB-0000PB-05 for emacs-devel@gnu.org; Sun, 30 May 2004 16:28:41 -0400 Original-Received: from [195.135.220.2] (helo=Cantor.suse.de) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.34) id 1BUWuV-0007aH-39 for emacs-devel@gnu.org; Sun, 30 May 2004 16:27:59 -0400 Original-Received: from hermes.suse.de (hermes-ext.suse.de [195.135.221.8]) (using TLSv1 with cipher EDH-RSA-DES-CBC3-SHA (168/168 bits)) (No client certificate requested) by Cantor.suse.de (Postfix) with ESMTP id 94A0F65220C; Sun, 30 May 2004 22:25:55 +0200 (CEST) Original-To: Luc Teirlinck X-Yow: .. If I cover this entire WALL with MAZOLA, who I have to give my AGENT ten per cent?? In-Reply-To: <200405301959.i4UJxe508464@raven.dms.auburn.edu> (Luc Teirlinck's message of "Sun, 30 May 2004 14:59:40 -0500 (CDT)") User-Agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3.50 (gnu/linux) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.4 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:24239 gmane.emacs.tramp:1812 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:24239 Luc Teirlinck writes: > Here is a backtrace: > > Debugger entered--Lisp error: (invalid-function (macro . #[(variable > value &rest body) ".. byte-code... [variable body value if get (quote b= yte-obsolete-variable) quote progn let] 6 ("/usr/local/share/emacs/21.3.5= 0/lisp/net/tramp.elc" . 226654)])) > tramp-let-maybe(47 47 nil "/bin/ls") Here is a patch: --- tramp.el.~1.44.~ 2004-05-30 22:19:07.000000000 +0200 +++ tramp.el 2004-05-30 22:21:11.204987203 +0200 @@ -1885,6 +1885,16 @@ If VAR is nil, then we bind `v' to the s ;; To be activated for debugging containing this macro (def-edebug-spec with-parsed-tramp-file-name t) =20 +(defmacro tramp-let-maybe (variable value &rest body) + "Let-bind VARIABLE to VALUE in BODY, but only if VARIABLE is not obsol= ete. +BODY is executed whether or not the variable is obsolete. +The intent is to protect against `obsolete variable' warnings." + `(if (get 'byte-obsolete-variable ',variable) + (progn ,@body) + (let ((,variable ,value)) + ,@body))) +(put 'tramp-let-maybe 'lisp-indent-function 2) + ;;; Config Manipulation Functions: =20 (defun tramp-set-completion-function (method function-list) @@ -6790,16 +6800,6 @@ exiting if process is running." (funcall (symbol-function 'process-kill-without-query) process flag))) =20 -(defmacro tramp-let-maybe (variable value &rest body) - "Let-bind VARIABLE to VALUE in BODY, but only if VARIABLE is not obsol= ete. -BODY is executed whether or not the variable is obsolete. -The intent is to protect against `obsolete variable' warnings." - `(if (get 'byte-obsolete-variable ',variable) - (progn ,@body) - (let ((,variable ,value)) - ,@body))) -(put 'tramp-let-maybe 'lisp-indent-function 2) - =20 ;; ------------------------------------------------------------=20 ;; -- Kludges section --=20 Andreas. --=20 Andreas Schwab, SuSE Labs, schwab@suse.de SuSE Linux AG, Maxfeldstra=DFe 5, 90409 N=FCrnberg, Germany Key fingerprint =3D 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED5 "And now for something completely different."