diff --git a/src/workgroups-pickel.el b/src/workgroups-pickel.el index 9efd53591df243fd51789cd1ed963711ad888b8e..fc391554071815e26aa61d8b34a3286b132259c0 100644 --- a/src/workgroups-pickel.el +++ b/src/workgroups-pickel.el @@ -342,7 +342,7 @@ WORKGROUP after pickeling its parameters. Otherwise return WORKGROUP." (if (not (wg-workgroup-parameters workgroup)) workgroup (let ((copy (wg-copy-workgroup workgroup))) - (wg-asetf (wg-workgroup-parameters copy) (wg-pickel copy)) + (wg-asetf (wg-workgroup-parameters copy) (wg-pickel it)) copy))) (defun wg-unpickel-workgroup-parameters (workgroup) @@ -351,7 +351,7 @@ WORKGROUP after unpickeling its parameters. Otherwise return WORKGROUP." (if (not (wg-workgroup-parameters workgroup)) workgroup (let ((copy (wg-copy-workgroup workgroup))) - (wg-asetf (wg-workgroup-parameters copy) (wg-unpickel copy)) + (wg-asetf (wg-workgroup-parameters copy) (wg-unpickel it)) copy))) (defun wg-pickel-all-session-parameters (session) @@ -359,7 +359,7 @@ WORKGROUP." parameters and the parameters of all its workgroups." (let ((copy (wg-copy-session session))) (when (wg-session-parameters copy) - (wg-asetf (wg-session-parameters copy) (wg-pickel copy))) + (wg-asetf (wg-session-parameters copy) (wg-pickel it))) (wg-asetf (wg-session-workgroup-list copy) (cl-mapcar 'wg-pickel-workgroup-parameters it)) copy)) @@ -369,7 +369,7 @@ parameters and the parameters of all its workgroups." parameters and the parameters of all its workgroups." (let ((copy (wg-copy-session session))) (when (wg-session-parameters copy) - (wg-asetf (wg-session-parameters copy) (wg-unpickel copy))) + (wg-asetf (wg-session-parameters copy) (wg-unpickel it))) (wg-asetf (wg-session-workgroup-list copy) (cl-mapcar 'wg-unpickel-workgroup-parameters it)) copy))