branch: externals/osm
commit ab76f8a9e79e0ec6330071b4aed974270b6f2a15
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Support more gpx files
---
osm.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/osm.el b/osm.el
index 40b9cb499a..3c207b1de8 100644
--- a/osm.el
+++ b/osm.el
@@ -1680,6 +1680,10 @@ See `osm-search-server' and `osm-search-language' for
customization."
(insert-file-contents file)
(libxml-parse-xml-region (point-min) (point-max))))
(min-lat 90) (max-lat -90) (min-lon 180) (max-lon -180))
+ (unless (eq 'gpx (dom-tag dom))
+ (setq dom (dom-child-by-tag dom 'gpx)))
+ (unless (and dom (eq 'gpx (dom-tag dom)))
+ (error "Not a GPX file"))
(setf (alist-get (abbreviate-file-name file) osm--gpx-files nil nil
#'equal)
(cons
(cl-loop
