branch: master commit 20afe01f3cd8d1a58f087f5825e687536952a098 Author: Ian D <du...@gnu.org> Commit: Ian D <du...@gnu.org>
(enwc-wicd-save-nw-settings): Updated to work with new interface. --- lisp/enwc-wicd.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/enwc-wicd.el b/lisp/enwc-wicd.el index bcfff67..fc895a6 100644 --- a/lisp/enwc-wicd.el +++ b/lisp/enwc-wicd.el @@ -361,19 +361,19 @@ WIRED indicates whether this is a wired network." (defun enwc-wicd-save-nw-settings (id settings &optional wired) "Saves the settings indicated by the association list SETTINGS for the network with id ID." - (let ((enctype (cdr (assoc "enctype" settings)))) + (let ((enctype (alist-get 'enctype settings ""))) (enwc-wicd-set-nw-prop wired id "ip" - (cdr (assoc "addr" settings))) + (alist-get 'addr settings "")) (enwc-wicd-set-nw-prop wired id "netmask" - (cdr (assoc "netmask" settings))) + (alist-get 'netmask settings "")) (enwc-wicd-set-nw-prop wired id "gateway" - (cdr (assoc "gateway" settings))) + (alist-get 'gateway settings "")) (enwc-wicd-set-nw-prop wired id "dns1" - (cdr (assoc "dns1" settings))) + (alist-get 'dns1 settings "")) (enwc-wicd-set-nw-prop wired id "dns2" - (cdr (assoc "dns2" settings))) + (alist-get 'dns2 settings "")) (enwc-wicd-set-nw-prop wired id "enctype" enctype) (if (not (string= enctype "None"))