branch: externals/ampc
commit 5516a10f631068ca81cdc9f7725253164dedea59
Author: Christopher Schmidt <christop...@ch.ristopher.com>
Commit: Christopher Schmidt <christop...@ch.ristopher.com>
* ampc.el (ampc-with-buffer): Remove unnecessary identification by tag.
---
ampc.el | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/ampc.el b/ampc.el
index 71ef276f9f..95e8313511 100644
--- 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
