[elpa] externals/osm cd3f8e0d05: osm-search: Truncate coordinates

[ELPA Syncer]

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

    osm-search: Truncate coordinates
---
 osm.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/osm.el b/osm.el
index 44466e7ee1..9168152fcb 100644
--- a/osm.el
+++ b/osm.el
@@ -1334,13 +1334,13 @@ Optionally specify a SERVER and a COMMENT."
                 :object-type 'alist))
          (results (mapcar
                    (lambda (x)
-                     `(,(format "%s (%s° %s°)"
-                                (alist-get 'display_name x)
-                                (alist-get 'lat x)
-                                (alist-get 'lon x))
-                       ,(string-to-number (alist-get 'lat x))
-                       ,(string-to-number (alist-get 'lon x))
-                       ,@(mapcar #'string-to-number (alist-get 'boundingbox 
x))))
+                     (let ((lat (string-to-number (alist-get 'lat x)))
+                           (lon (string-to-number (alist-get 'lon x))))
+                       `(,(format "%s (%.6f° %.6f°)"
+                                  (alist-get 'display_name x)
+                                  lat lon)
+                         ,lat ,lon
+                         ,@(mapcar #'string-to-number (alist-get 'boundingbox 
x)))))
                    (or json (error "No results"))))
          (selected (or (cdr (assoc
                              (completing-read