diff options
Diffstat (limited to 'perspective.el')
| -rw-r--r-- | perspective.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/perspective.el b/perspective.el index 7c510d3..d368246 100644 --- a/perspective.el +++ b/perspective.el @@ -151,11 +151,13 @@ After BODY is evaluated, frame parameters are reset to their original values." (defun persp--make-ignore-buffer-rx () (defvar ido-ignore-buffers) - (when ido-ignore-buffers - ;; convert a list of regexps to one - (rx-to-string (append (list 'or) - (mapcar (lambda (rx) `(regexp ,rx)) - ido-ignore-buffers))))) + (if ido-ignore-buffers + ;; convert a list of regexps to one + (rx-to-string (append (list 'or) + (mapcar (lambda (rx) `(regexp ,rx)) + ido-ignore-buffers))) + ;; return a regex which matches nothing, and therefore should ignore nothing + "$^")) (defmacro persp-current-buffers () "Return a list of all buffers in the current perspective." @@ -166,9 +168,7 @@ After BODY is evaluated, frame parameters are reset to their original values." (let ((ignore-rx (persp--make-ignore-buffer-rx))) (cl-loop for buf in (persp-current-buffers) if (and (buffer-live-p buf) - (if ignore-rx - (not (string-match-p ignore-rx (buffer-name buf))) - t)) + (not (string-match-p ignore-rx (buffer-name buf)))) collect (buffer-name buf)))) (defun persp-is-current-buffer (buf) |