Stop using obsolete anaphoric ibuffer-awhen macro.

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."