diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2022-02-08 16:23:05 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2022-02-08 16:23:05 +0100 |
| commit | 6058d3ebb4170fb70ebb78b42c0bc1e12fb96134 (patch) | |
| tree | ba6d1aa654aeccb8dc52d85437da1989bb449fb8 /lisp/files-x.el | |
| parent | fe37e49a970b590f6643228899234628f5671a22 (diff) | |
| download | emacs-6058d3ebb4170fb70ebb78b42c0bc1e12fb96134.tar.gz | |
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'.
Diffstat (limited to 'lisp/files-x.el')
| -rw-r--r-- | lisp/files-x.el | 8 |
1 files changed, 6 insertions, 2 deletions
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. |