Possibly kill buffer on C-w if not visible elsewhere

2016-02-18 09:31:33 -05:00 · 2016-02-18 09:31:33 -05:00 · bceebeca1e
commit bceebeca1e
parent bd52011f80
1 changed files with 1 additions and 0 deletions
--- a/core/defuns/defuns-workgroup.el
+++ b/core/defuns/defuns-workgroup.el
@ -172,6 +172,7 @@
 ;;;###autoload
 (defun narf/close-window-or-workgroup ()
  (interactive)
+  (narf/kill-real-buffer)
  (if (and (= (length (window-list)) 1)
           (> (length (wg-workgroup-list)) 1))
      (if (string= (wg-workgroup-name (wg-current-workgroup)) wg-first-wg-name)