diff options
| -rw-r--r-- | perspective.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/perspective.el b/perspective.el index 8e45fda..6d58c0b 100644 --- a/perspective.el +++ b/perspective.el @@ -1947,9 +1947,11 @@ to the perspective's *scratch* buffer." :merge-list (frame-parameter nil 'persp-merge-list)))))) (defun persp-purge-exception-p (buffer) - (let (result) - (dolist (exception persp-purge-initial-persp-on-save-exceptions result) - (setq result (or result (string-match-p exception (buffer-name buffer))))))) + (if (buffer-live-p buffer) + (let (result) + (dolist (exception persp-purge-initial-persp-on-save-exceptions result) + (setq result (or result (string-match-p exception (buffer-name buffer)))))) + nil)) ;;;###autoload (cl-defun persp-state-save (&optional file interactive?) |