From 52f7a6d48fd25bfae313247746567b5293ca423f 2014-09-30 08:36:09 From: Sergey Pashinin Date: 2014-09-30 08:36:09 Subject: [PATCH] Fixed #53 --- diff --git a/src/workgroups2.el b/src/workgroups2.el index ef72f31c1977a252553d575934f9cc5b1fc4da0d..348c19b3da30b586b3a3a0d76491f39229f08133 100644 --- a/src/workgroups2.el +++ b/src/workgroups2.el @@ -2428,7 +2428,7 @@ If you want, restore them manually and try again." (name (wg-read-saved-wconfig-name workgroup)) (wconfig (wg-current-wconfig))) (setf (wg-wconfig-name wconfig) name) - (wg-workgroup-save-wconfig workgroup wconfig) + (wg-workgroup-save-wconfig wconfig workgroup) (wg-fontified-message (:cmd "Saved: ") (:cur name)))) @@ -2439,10 +2439,10 @@ If you want, restore them manually and try again." (let ((workgroup (wg-current-workgroup))) (wg-restore-wconfig-undoably (wg-workgroup-get-saved-wconfig - workgroup (ido-completing-read "Saved wconfig: " (mapcar 'wg-wconfig-name (wg-workgroup-saved-wconfigs workgroup)) - nil t))))) + nil t) + workgroup)))) (defun wg-kill-saved-wconfig () "Kill one of the current workgroup's saved wconfigs.