mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-06-14 04:21:24 +00:00
Ensure Tramp backward compatibility
* lisp/net/tramp.el (tramp-local-environment-variable-p): Use `tramp-compat-funcall'.
This commit is contained in:
parent
df9b97e516
commit
912c8e3691
1 changed files with 4 additions and 2 deletions
|
|
@ -5478,8 +5478,10 @@ should be set connection-local.")
|
|||
"Return non-nil if ARG exists in default `process-environment'.
|
||||
Tramp does not propagate local environment variables in remote
|
||||
processes."
|
||||
(or (ignore-error void-variable
|
||||
(member arg (buffer-local-toplevel-value 'process-environment)))
|
||||
(or ;; `buffer-local-toplevel-value' has been defined in Emacs 31.1.
|
||||
(ignore-error (void-variable void-function)
|
||||
(member arg (tramp-compat-funcall 'buffer-local-toplevel-value
|
||||
'process-environment)))
|
||||
(member arg (default-toplevel-value 'process-environment))))
|
||||
|
||||
(defun tramp-handle-make-process (&rest args)
|
||||
|
|
|
|||
Loading…
Reference in a new issue