From 81b012bb154537e4e93a5702d001f9c9d4197689 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sat, 2 May 2026 16:27:06 +0200 Subject: Revert "Use any from Compat 31" This reverts commit 19799af4e2d083d69f695a9dd9fa28eae9e91f2a. --- osm.el | 15 ++++++++------- 1 file 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)) -- cgit v1.0