Commit 2fcaee47 authored by Kai Großjohann's avatar Kai Großjohann

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.
parent 5709c1a0
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.
......
......@@ -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 --
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment