* ampc.el (ampc-with-buffer): Remove unnecessary identification by tag.

diff --git a/ampc.el b/ampc.el
index 71ef276f9f38be01a3a7af84eb357398ba40e6a5..95e8313511384d3fc9d2e83a4583d16833845cb4 100644 (file)
--- a/ampc.el
+++ b/ampc.el
@@ -545,13 +545,12 @@ all the time!"
   `(let* ((type- ,type)
           (b (loop for b in ampc-buffers
                    when (with-current-buffer b
-                          (cond ((windowp type-)
-                                 (eq (window-buffer type-)
-                                     (current-buffer)))
-                                ((symbolp type-)
-                                 (eq (car ampc-type) type-))
-                                (t
-                                 (equal ampc-type type-))))
+                          (etypecase type-
+                            (window
+                             (eq (window-buffer type-)
+                                 (current-buffer)))
+                            (symbol
+                             (eq (car ampc-type) type-))))
                    return b
                    end)))
      (when b