Fix sticky names for workgroups/tabs
This commit is contained in:
parent
37ea71eff6
commit
72f8111ecf
1 changed files with 1 additions and 1 deletions
|
@ -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))))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue