emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/osm ab76f8a9e7: Support more gpx files


From: ELPA Syncer
Subject: [elpa] externals/osm ab76f8a9e7: Support more gpx files
Date: Tue, 19 Nov 2024 18:58:28 -0500 (EST)

branch: externals/osm
commit ab76f8a9e79e0ec6330071b4aed974270b6f2a15
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]