Merge pull request Malabarba#181 from mola-T/master

Solve args-out-of-range by ensuring positive 'size' in sml/generate-minor-modes
phil-s · May 6, 2016 · 8fd76a6 · 8fd76a6
2 parents 9715b51 + 5d3dc38
commit 8fd76a6
Showing 1 changed file with 10 additions and 9 deletions.
diff --git a/smart-mode-line.el b/smart-mode-line.el
@@ -1523,15 +1523,16 @@ duplicated buffer names) from being displayed."
     (let* (;; The minor-mode-alist
            (nameList (rm--mode-list-as-string-list))
            ;; The size available
-           (size (- (if (member sml/mode-width '(full right))
-                        ;; Calculate how much width is available
-                        (sml/fill-width-available)
-                      ;; or use what the user requested.
-                      sml/mode-width)
-                    (string-width (format-mode-line
-                                   'sml/pre-minor-modes-separator))
-                    (string-width (format-mode-line
-                                   'sml/pos-minor-modes-separator))))
+           (size (max 0
+                      (- (if (member sml/mode-width '(full right))
+                             ;; Calculate how much width is available
+                             (sml/fill-width-available)
+                           ;; or use what the user requested.
+                           sml/mode-width)
+                         (string-width (format-mode-line
+                                        'sml/pre-minor-modes-separator))
+                         (string-width (format-mode-line
+                                        'sml/pos-minor-modes-separator)))))
            ;; Used for counting size.
            (finalNameList (mapconcat 'identity  nameList ""))
            needs-removing filling)