Fix sticky names for workgroups/tabs

This commit is contained in:
Henrik Lissner 2016-03-04 18:26:50 -05:00
parent 37ea71eff6
commit 72f8111ecf

View file

@ -124,7 +124,7 @@
;;;###autoload ;;;###autoload
(defun narf/workgroup-update-names (&optional wg) (defun narf/workgroup-update-names (&optional wg)
(let ((wg (or wg (wg-current-workgroup)))) (let ((wg (or wg (wg-current-workgroup))))
(unless (memq wg narf-wg-names) (unless (member (wg-workgroup-uid wg) narf-wg-names)
(ignore-errors (ignore-errors
(let ((old-name (wg-workgroup-name wg)) (let ((old-name (wg-workgroup-name wg))
(new-name (f-filename (narf/project-root)))) (new-name (f-filename (narf/project-root))))