From 72f8111ecfcd6547e0d6cfd45d224624127fe943 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 4 Mar 2016 18:26:50 -0500 Subject: [PATCH] Fix sticky names for workgroups/tabs --- core/defuns/defuns-workgroup.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/defuns/defuns-workgroup.el b/core/defuns/defuns-workgroup.el index 89f1afaed..d9dd2f18e 100644 --- a/core/defuns/defuns-workgroup.el +++ b/core/defuns/defuns-workgroup.el @@ -124,7 +124,7 @@ ;;;###autoload (defun narf/workgroup-update-names (&optional wg) (let ((wg (or wg (wg-current-workgroup)))) - (unless (memq wg narf-wg-names) + (unless (member (wg-workgroup-uid wg) narf-wg-names) (ignore-errors (let ((old-name (wg-workgroup-name wg)) (new-name (f-filename (narf/project-root))))