From fffbce29349b14daa5f9b9c97ff5ba230b56c247 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 12 Mar 2023 11:01:22 +0100 Subject: [PATCH] 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'. --- lisp/files-x.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 2.39.2