Changeset - 48954aba3b06
[Not reviewed]
0 1 0
Sergey Pashinin - 11 years ago 2014-09-11 13:16:29
sergey@pashinin.com
Fixed wg-rename-workgroup
1 file changed with 1 insertions and 1 deletions:
0 comments (0 inline, 0 general)
src/workgroups2.el
Show inline comments
 
@@ -3592,7 +3592,7 @@ symetry with `wg-undo-once-all-workgroups'."
 

	
 
(defun wg-rename-workgroup (newname &optional workgroup)
 
  "Set NEWNAME to WORKGROUP's name."
 
  (interactive (list nil (wg-read-new-workgroup-name "New name: ")))
 
  (interactive (list (wg-read-new-workgroup-name "New name: ") nil))
 
  (-when-let (workgroup (wg-get-workgroup workgroup))
 
    (let* ((oldname (wg-workgroup-name workgroup)))
 
      (setf (wg-workgroup-name workgroup) newname)
0 comments (0 inline, 0 general)