[elpa] externals/osm 5b24ed076c: osm-goto: Keep current zoom level

[ELPA Syncer]

branch: externals/osm
commit 5b24ed076c9998be627c19549d403d5b219b7b28
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    osm-goto: Keep current zoom level
---
 osm.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/osm.el b/osm.el
index e26c73a84d..bb096fdd96 100644
--- a/osm.el
+++ b/osm.el
@@ -1296,7 +1296,7 @@ Optionally place transient pin with ID and NAME."
    (pcase-let ((`(,lat ,lon ,zoom)
                 (mapcar #'string-to-number
                         (split-string (read-string "Lat Lon (Zoom): ") nil 
t))))
-     (setq zoom (or zoom 11))
+     (setq zoom (or zoom osm--zoom 11))
      (unless (and (numberp lat) (numberp lon) (numberp zoom))
        (error "Invalid coordinate"))
      (list lat lon zoom)))