diff options
| author | gcv <vetoshev@gmail.com> | 2022-09-08 08:14:34 -0700 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-09-08 08:14:34 -0700 |
| commit | 4cb9be75a41b66ec91d95464f1eed34cb1ea3b0a (patch) | |
| tree | 978ed39b8c006cbb772f3246f9b040f574083be7 | |
| parent | 74545ae94687e8d7bd13d81cc22222ed270f0d60 (diff) | |
| parent | 188c72a4246f552ddadd14152c881e9365d71f65 (diff) | |
Merge pull request #189 from titibandit/fix-purge
| -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?) |