1885 |
;; To be activated for debugging containing this macro |
;; To be activated for debugging containing this macro |
1886 |
(def-edebug-spec with-parsed-tramp-file-name t) |
(def-edebug-spec with-parsed-tramp-file-name t) |
1887 |
|
|
1888 |
|
(defmacro tramp-let-maybe (variable value &rest body) |
1889 |
|
"Let-bind VARIABLE to VALUE in BODY, but only if VARIABLE is not obsolete. |
1890 |
|
BODY is executed whether or not the variable is obsolete. |
1891 |
|
The intent is to protect against `obsolete variable' warnings." |
1892 |
|
`(if (get ',variable 'byte-obsolete-variable) |
1893 |
|
(progn ,@body) |
1894 |
|
(let ((,variable ,value)) |
1895 |
|
,@body))) |
1896 |
|
(put 'tramp-let-maybe 'lisp-indent-function 2) |
1897 |
|
|
1898 |
;;; Config Manipulation Functions: |
;;; Config Manipulation Functions: |
1899 |
|
|
1900 |
(defun tramp-set-completion-function (method function-list) |
(defun tramp-set-completion-function (method function-list) |
6800 |
(funcall (symbol-function 'process-kill-without-query) |
(funcall (symbol-function 'process-kill-without-query) |
6801 |
process flag))) |
process flag))) |
6802 |
|
|
|
(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) |
|
|
|
|
6803 |
|
|
6804 |
;; ------------------------------------------------------------ |
;; ------------------------------------------------------------ |
6805 |
;; -- Kludges section -- |
;; -- Kludges section -- |