From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 8 Feb 2022 15:23:05 +0000 (+0100)
Subject: Respect customization nature of `connection-local-*' user options
X-Git-Tag: emacs-29.0.90~2425
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6058d3ebb4170fb70ebb78b42c0bc1e12fb96134;p=emacs.git

Respect customization nature of `connection-local-*' user options

* lisp/files-x.el (connection-local-set-profiles)
(connection-local-set-profile-variables): Set user options via
`customize-set-variable'.
---

diff --git a/lisp/files-x.el b/lisp/files-x.el
index 773339d748a..319bfe05655 100644
--- a/lisp/files-x.el
+++ b/lisp/files-x.el
@@ -668,7 +668,9 @@ variables for a connection profile are defined using
         (setcdr slot (delete-dups (append (cdr slot) profiles)))
       (setq connection-local-criteria-alist
             (cons (cons criteria (delete-dups profiles))
-		  connection-local-criteria-alist)))))
+		  connection-local-criteria-alist))))
+  (customize-set-variable
+   'connection-local-criteria-alist connection-local-criteria-alist))
 
 (defsubst connection-local-get-profile-variables (profile)
   "Return the connection-local variable list for PROFILE."
@@ -687,7 +689,9 @@ connection profile using `connection-local-set-profiles'.  Then
 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))
+  (setf (alist-get profile connection-local-profile-alist) variables)
+  (customize-set-variable
+   'connection-local-profile-alist connection-local-profile-alist))
 
 (defun hack-connection-local-variables (criteria)
   "Read connection-local variables according to CRITERIA.