Optimize modeline rendering slightly

2017-06-17 11:40:21 +02:00 · 2017-06-17 11:40:21 +02:00 · a8df81b259
commit a8df81b259
parent 414363fe38
1 changed files with 7 additions and 6 deletions
--- a/core/core-ui.el
+++ b/core/core-ui.el
@ -385,12 +385,13 @@ Example:
       (defun ,sym ()
         (let ((lhs (list ,@lhs-forms))
               (rhs (list ,@rhs-forms)))
-           (list lhs
-                 (propertize
-                  " " 'display
-                  `((space :align-to (- (+ right right-fringe right-margin)
-                                        ,(+ 1 (string-width (format-mode-line rhs)))))))
-                 rhs)))
+           (let ((rhs-str (format-mode-line rhs)))
+             (list lhs
+                   (propertize
+                    " " 'display
+                    `((space :align-to (- (+ right right-fringe right-margin)
+                                          ,(+ 1 (string-width rhs-str))))))
+                   rhs-str))))
       ,(unless (bound-and-true-p byte-compile-current-file)
          `(let (byte-compile-warnings)
             (byte-compile #',sym))))))