]> git.eshelyaron.com Git - emacs.git/commitdiff
Revert unneeded change in tramp-integration.el
authorMichael Albinus <michael.albinus@gmx.de>
Wed, 6 Apr 2022 07:51:09 +0000 (09:51 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Wed, 6 Apr 2022 07:51:09 +0000 (09:51 +0200)
* lisp/net/tramp-integration.el:
Apply `connection-local-set-profiles' w/o retrieving old values.

lisp/net/tramp-integration.el

index 089093a42082ac73ea8ea5ef82b3486fd8ff2ae6..6be06d0e738760cc67f0258710696534ef24fee5 100644 (file)
@@ -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