[elpa] externals/osm e049d3db6a 1/2: Save a few bits here and there

[ELPA Syncer]

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

    Save a few bits here and there
---
 osm.el | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

diff --git a/osm.el b/osm.el
index 08559316d8..1ee09d3162 100644
--- a/osm.el
+++ b/osm.el
@@ -1067,24 +1067,22 @@ xmlns='http://www.w3.org/2000/svg' 
xmlns:xlink='http://www.w3.org/1999/xlink'>
      (concat
       (format #(" %7.2f°" 0 6 (face bold)) osm--lat)
       (format #(" %7.2f°" 0 6 (face bold)) osm--lon)
-      (propertize " " 'display '(space :align-to (- center 10)))
+      #(" " 0 1 (display (space :align-to (- center 10))))
       (format "%3s " (if (>= meter 1000) (/ meter 1000) meter))
       (if (>= meter 1000) "km " "m ")
-      (propertize " " 'face '(:inverse-video t)
-                  'display '(space :width (3)))
+      #(" " 0 1 (display (space :width (3)) face (:inverse-video t)))
       (propertize " " 'face '(:strike-through t)
                   'display `(space :width (,(floor (/ meter 
meter-per-pixel)))))
-      (propertize " " 'face '(:inverse-video t)
-                  'display '(space :width (3)))
+      #(" " 0 1 (display (space :width (3)) face (:inverse-video t)))
       (propertize " " 'display `(space :align-to
                                        (- right ,(+ 5 3 3 2 (length server) 3) 
(,(+ 4 1 4 1 4 1 4)))))
       (format " Z%-2d " osm--zoom)
       (osm--header-button " + " #'osm-zoom-in)
-      (propertize " " 'display '(space :width (1)))
+      #(" " 0 1 (display (space :width (1))))
       (osm--header-button " - " #'osm-zoom-out)
-      (propertize " " 'display '(space :width (1)))
+      #(" " 0 1 (display (space :width (1))))
       (osm--header-button (format " %s " server) #'osm--server-menu)
-      (propertize " " 'display '(space :width (1)))
+      #(" " 0 1 (display (space :width (1))))
       (osm--header-button " ☰ " osm--menu)))))
 
 (defun osm--update ()
@@ -1141,9 +1139,7 @@ xmlns='http://www.w3.org/2000/svg' 
xmlns:xlink='http://www.w3.org/1999/xlink'>
                         (if (listp copyright)
                             (string-join copyright " | ")
                           copyright)
-                        (propertize " "
-                                    'display
-                                    '(space :align-to right)))))
+                        #(" " 0 1 (display (space :align-to right))))))
       (add-face-text-property
        0 (length copyright)
        '(:inherit (header-line variable-pitch) :height 0.75)