Revert "Use any from Compat 31"externals/osm

This reverts commit 19799af4e2d083d69f695a9dd9fa28eae9e91f2a.

1 files changed, 8 insertions, 7 deletions

diff --git a/osm.el b/osm.el
index 3451568..4017fd8 100644
--- a/osm.el
+++ b/osm.el
@@ -1399,13 +1399,14 @@ Optionally place pin with ID and NAME."
         (or
          (and (eq major-mode #'osm-mode) (current-buffer))
          ;; Search for existing buffer
-         (car (any (lambda (buf)
-                     (and (equal (buffer-local-value 'major-mode buf) #'osm-mode)
-                          (equal (buffer-local-value 'osm--server buf) def-server)
-                          (equal (buffer-local-value 'osm--zoom buf) def-zoom)
-                          (equal (buffer-local-value 'osm--lat buf) def-lat)
-                          (equal (buffer-local-value 'osm--lon buf) def-lon)))
-                   (buffer-list)))
+         (cl-loop
+          for buf in (buffer-list) thereis
+          (and (equal (buffer-local-value 'major-mode buf) #'osm-mode)
+               (equal (buffer-local-value 'osm--server buf) def-server)
+               (equal (buffer-local-value 'osm--zoom buf) def-zoom)
+               (equal (buffer-local-value 'osm--lat buf) def-lat)
+               (equal (buffer-local-value 'osm--lon buf) def-lon)
+               buf))
          (generate-new-buffer "*osm*"))
       (unless (eq major-mode #'osm-mode)
         (osm-mode))