Fix mis-calc regarding column layout.

2010-09-15 19:44:31 +01:00 · 2010-09-15 19:44:31 +01:00 · a7bb2f7c8d
commit a7bb2f7c8d
parent fe2cbfc9bb
1 changed files with 4 additions and 1 deletions
--- a/magit-key-mode.el
+++ b/magit-key-mode.el
@ -328,7 +328,10 @@ put it in magit-key-mode-key-maps for fast lookup."
      (let ((str (car strings)))
        (let ((padding (make-string (- (+ longest-act 3) (length str)) ? )))
          (insert str)
-          (if (and (> (+ (current-column) longest-act) (window-width))
+          (if (and (> (+ (length padding)
+                         (current-column)
+                         longest-act)
+                      (window-width))
                   (cdr strings))
              (insert "\n")
            (insert padding))))