branch: externals/osm
commit 305aea000bcf6a09c5148feabd1ca72c7b7e1a30
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Use cl-loop
---
osm.el | 22 ++++++++++------------
1 file changed, 10 insertions(+), 12 deletions(-)
diff --git a/osm.el b/osm.el
index df44d9c753..19f4141c89 100644
--- a/osm.el
+++ b/osm.el
@@ -196,18 +196,16 @@ Should be at least 7 days according to the server usage
policies."
"Zoom N times into the map."
(interactive "p")
(setq n (or n 1))
- (while (> n 0)
- (when (< osm--zoom (osm--server-property :max-zoom))
- (setq osm--zoom (1+ osm--zoom)
- osm--x (* osm--x 2)
- osm--y (* osm--y 2)))
- (cl-decf n))
- (while (< n 0)
- (when (> osm--zoom (osm--server-property :min-zoom))
- (setq osm--zoom (1- osm--zoom)
- osm--x (/ osm--x 2)
- osm--y (/ osm--y 2)))
- (cl-incf n))
+ (cl-loop for i from n above 0
+ if (< osm--zoom (osm--server-property :max-zoom)) do
+ (setq osm--zoom (1+ osm--zoom)
+ osm--x (* osm--x 2)
+ osm--y (* osm--y 2)))
+ (cl-loop for i from n below 0
+ if (> osm--zoom (osm--server-property :min-zoom)) do
+ (setq osm--zoom (1- osm--zoom)
+ osm--x (/ osm--x 2)
+ osm--y (/ osm--y 2)))
(osm--update))
(defun osm-smaller (&optional n)
