From: Kai Großjohann <kgrossjo@eu.uu.net>
Date: Sun, 30 May 2004 21:00:53 +0000 (+0000)
Subject: Sync with Tramp.
X-Git-Tag: ttn-vms-21-2-B4~5979
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2fcaee47a419d668b304d75f7511f2090c6736be;p=emacs.git

Sync with Tramp.

(tramp-let-maybe): ReportReverse args of `get'.
(tramp-let-maybe): Move to an earlier spot in the file.  Patch by
Andreas Schwab.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d23005ed0bd..dc5913c467c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2004-05-30  Kai Grossjohann  <kai.grossjohann@gmx.net>
+	Sync with Tramp.
+
+	* net/tramp.el (tramp-let-maybe): ReportReverse args of `get'.
+	(tramp-let-maybe): Move to an earlier spot in the file.  Patch by
+	Andreas Schwab.
+
 2004-05-30  Andreas Schwab  <schwab@suse.de>
 
 	* dired.el (dired-get-filename): Don't use dired-re-dot.
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 1350774dbaa..769ad3f51f6 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1885,6 +1885,16 @@ If VAR is nil, then we bind `v' to the structure and `multi-method',
 ;; 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 ',variable 'byte-obsolete-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 --