From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 12 Mar 2023 10:01:22 +0000 (+0100)
Subject: TRework fix for bug#62106
X-Git-Tag: emacs-29.0.90~193
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fffbce29349;p=emacs.git

TRework fix for bug#62106

* lisp/files-x.el (connection-local-set-profiles)
(connection-local-set-profile-variables):
Use `custom-set-variables'.  It serves the purpose to not keep
unsaved user options, and it is less invasive than
`customize-save-variable'.
---

diff --git a/lisp/files-x.el b/lisp/files-x.el
index eb236c68e52..be27aedf2e2 100644
--- a/lisp/files-x.el
+++ b/lisp/files-x.el
@@ -681,8 +681,8 @@ variables for a connection profile are defined using
       (setq connection-local-criteria-alist
             (cons (cons criteria (delete-dups profiles))
 		  connection-local-criteria-alist))))
-  (customize-save-variable
-   'connection-local-criteria-alist connection-local-criteria-alist))
+  (custom-set-variables
+   `(connection-local-criteria-alist ',connection-local-criteria-alist)))
 
 (defsubst connection-local-get-profile-variables (profile)
   "Return the connection-local variable list for PROFILE."
@@ -702,8 +702,8 @@ variables are set in the server's process buffer according to the
 VARIABLES list of the connection profile.  The list is processed
 in order."
   (setf (alist-get profile connection-local-profile-alist) variables)
-  (customize-save-variable
-   'connection-local-profile-alist connection-local-profile-alist))
+  (custom-set-variables
+   `(connection-local-profile-alist ',connection-local-profile-alist)))
 
 ;;;###autoload
 (defun connection-local-update-profile-variables (profile variables)