diff options
Diffstat (limited to 'lisp/net/tramp.el')
| -rw-r--r-- | lisp/net/tramp.el | 20 |
1 files changed, 10 insertions, 10 deletions
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 -- |