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 773339d748a2185f55dbf8a60e015b456bf6d79c..319bfe0565595fab66a24200d0d3c30a05f2d41e 100644 (file)
--- 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.