diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2026-05-02 16:26:45 +0200 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2026-05-02 16:26:45 +0200 |
| commit | 5edbbf4369c2d92c6ebea1983c9f7e746b4080ac (patch) | |
| tree | d69b6a346af8923b0eb5ff13028d2eff1c4855c9 | |
| parent | 19799af4e2d083d69f695a9dd9fa28eae9e91f2a (diff) | |
Fix last commit
| -rw-r--r-- | osm.el | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -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)) |
