Re: New Tramp version fails with ssh.

[Andreas Schwab <schwab@suse.de>]

Luc Teirlinck <teirllm@dms.auburn.edu> writes:

> Here is a backtrace:
>
> Debugger entered--Lisp error: (invalid-function (macro . #[(variable
> value &rest body) ".. byte-code... [variable body value if get (quote byte-obsolete-variable) quote progn let] 6 ("/usr/local/share/emacs/21.3.50/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)
 
+(defmacro tramp-let-maybe (variable value &rest body)
+  "Let-bind VARIABLE to VALUE in BODY, but only if VARIABLE is not obsolete.
+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:
 
 (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)))
 
-(defmacro tramp-let-maybe (variable value &rest body)
-  "Let-bind VARIABLE to VALUE in BODY, but only if VARIABLE is not obsolete.
-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)
-
 
 ;; ------------------------------------------------------------ 
 ;; -- Kludges section -- 

Andreas.

-- 
Andreas Schwab, SuSE Labs, schwab@suse.de
SuSE Linux AG, Maxfeldstraße 5, 90409 Nürnberg, Germany
Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."