summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Mendler <mail@daniel-mendler.de>2026-05-02 16:26:45 +0200
committerDaniel Mendler <mail@daniel-mendler.de>2026-05-02 16:26:45 +0200
commit5edbbf4369c2d92c6ebea1983c9f7e746b4080ac (patch)
treed69b6a346af8923b0eb5ff13028d2eff1c4855c9
parent19799af4e2d083d69f695a9dd9fa28eae9e91f2a (diff)
Fix last commit
-rw-r--r--osm.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/osm.el b/osm.el
index 05ac8a4..3451568 100644
--- a/osm.el
+++ b/osm.el
@@ -1399,13 +1399,13 @@ Optionally place pin with ID and NAME."
(or
(and (eq major-mode #'osm-mode) (current-buffer))
;; Search for existing buffer
- (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))
+ (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)))
(generate-new-buffer "*osm*"))
(unless (eq major-mode #'osm-mode)
(osm-mode))