瀏覽代碼

Fixed buffer removal if a buffer in the set has been killed

Samuel W. Flint 8 年之前
父節點
當前提交
c40375c24f
共有 1 個文件被更改,包括 4 次插入3 次删除
  1. 4 3
      buffer-sets.el

+ 4 - 3
buffer-sets.el

@@ -100,9 +100,10 @@
       (let ((buffers-list (buffer-set--generate-buffers-list name))
             (on-remove (buffer-set-on-remove set-definition)))
         (mapc (lambda (buffer)
-                (with-current-buffer buffer
-                  (save-buffer)
-                  (kill-buffer buffer)))
+                (when (buffer-live-p buffer)
+                  (with-current-buffer buffer
+                    (save-buffer)
+                    (kill-buffer buffer))))
               (symbol-value buffers-list))
         (funcall on-remove)
         (setf (symbol-value buffers-list) nil)