Changeset - 52f7a6d48fd2
[Not reviewed]
0 1 0
Sergey Pashinin - 11 years ago 2014-09-30 08:36:09
sergey@pashinin.com
Fixed #53
1 file changed with 3 insertions and 3 deletions:
0 comments (0 inline, 0 general)
src/workgroups2.el
Show inline comments
 
@@ -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.
0 comments (0 inline, 0 general)