diff options
| -rw-r--r-- | perspective.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/perspective.el b/perspective.el index edb1a94..1145dc0 100644 --- a/perspective.el +++ b/perspective.el @@ -2299,11 +2299,12 @@ were merged in from a previous call to `persp-merge'." "Toggle current view to buffers with persp name QUALIFIER." (:description "persp-name" :reader (read-regexp "Filter by persp name (regexp): ")) - (ibuffer-awhen (persp-ibuffer-name buf) - (if (stringp qualifier) - (or (string-match-p qualifier (car it)) - (string-match-p qualifier (cdr-safe it))) - (equal qualifier it))))) + (let ((name (persp-ibuffer-name buf))) + (when name + (if (stringp qualifier) + (or (string-match-p qualifier (car name)) + (string-match-p qualifier (cdr-safe name))) + (equal qualifier name)))))) (defun persp-ibuffer-default-group-name (persp-name) "Produce an ibuffer group name string for PERSP-NAME." |