branch: externals/osm
commit 2fbf12f0ef096cca0402f681d44c8d3fb04abfc9
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
seq is not needed
---
osm.el | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/osm.el b/osm.el
index 53ad847661..7c3c6f669c 100644
--- a/osm.el
+++ b/osm.el
@@ -30,7 +30,6 @@
;;; Code:
-(require 'seq)
(eval-when-compile (require 'cl-lib))
(defvar bookmark-current-bookmark)
@@ -554,12 +553,11 @@ We need two distinct images which are not `eq' for the
display properties.")
(osm--display-tile x y tile)
(unless tile (osm--enqueue x y)))))
(setq osm--queue
- (seq-sort-by
- (pcase-lambda (`(,x ,y . ,_z))
- (setq x (- x (/ osm--x 256))
- y (- y (/ osm--y 256)))
- (+ (* x x) (* y y)))
- #'< osm--queue))
+ (sort osm--queue
+ (pcase-lambda (`(,x1 ,y1 . ,_z1) `(,x2 ,y2 . ,_z2))
+ (setq x1 (- x1 (/ osm--x 256)) y1 (- y1 (/ osm--y 256))
+ x2 (- x2 (/ osm--x 256)) y2 (- y2 (/ osm--y 256)))
+ (< (+ (* x1 x1) (* y1 y1)) (+ (* x2 x2) (* y2 y2))))))
(osm--download))))
(defun osm--make-bookmark ()
