From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 6 Apr 2022 07:51:09 +0000 (+0200)
Subject: Revert unneeded change in tramp-integration.el
X-Git-Tag: emacs-29.0.90~1931^2~745
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fbf6b7d2f0fb73379995e869d56df036e3e8b343;p=emacs.git

Revert unneeded change in tramp-integration.el

* lisp/net/tramp-integration.el:
Apply `connection-local-set-profiles' w/o retrieving old values.
---

diff --git a/lisp/net/tramp-integration.el b/lisp/net/tramp-integration.el
index 089093a4208..6be06d0e738 100644
--- a/lisp/net/tramp-integration.el
+++ b/lisp/net/tramp-integration.el
@@ -286,11 +286,9 @@ NAME must be equal to `tramp-current-connection'."
  'tramp-connection-local-default-system-profile
  tramp-connection-local-default-system-variables)
 
-(apply
- #'connection-local-set-profiles
+(connection-local-set-profiles
  '(:application tramp)
- (cons 'tramp-connection-local-default-system-profile
-       (connection-local-get-profiles '(:application tramp))))
+ 'tramp-connection-local-default-system-profile)
 
 (defconst tramp-connection-local-default-shell-variables
   '((shell-file-name . "/bin/sh")
@@ -302,11 +300,9 @@ NAME must be equal to `tramp-current-connection'."
  tramp-connection-local-default-shell-variables)
 
 (with-eval-after-load 'shell
-  (apply
-   #'connection-local-set-profiles
+  (connection-local-set-profiles
    '(:application tramp)
-   (cons 'tramp-connection-local-default-shell-profile
-         (connection-local-get-profiles '(:application tramp)))))
+   'tramp-connection-local-default-shell-profile))
 
 ;; Tested with FreeBSD 12.2.
 (defconst tramp-bsd-process-attributes-ps-args