[Emacs-diffs] Changes to emacs/lisp/net/tramp.el

[Kai Großjohann]

Index: emacs/lisp/net/tramp.el
diff -c emacs/lisp/net/tramp.el:1.44 emacs/lisp/net/tramp.el:1.45
*** emacs/lisp/net/tramp.el:1.44        Sat May 29 22:28:49 2004
--- emacs/lisp/net/tramp.el     Sun May 30 21:00:21 2004
***************
*** 1885,1890 ****
--- 1885,1900 ----
  ;; 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)
***************
*** 6789,6804 ****
        (set-process-query-on-exit-flag process flag)
      (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)
  
  
  ;; ------------------------------------------------------------ 
--- 6799,6804 ----