소스 검색

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

Samuel W. Flint 9 년 전
부모
커밋
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)