cleanup: use string-pad, drop keymap-popup--pad-line

1 files changed, 1 insertions, 7 deletions

diff --git a/keymap-popup.el b/keymap-popup.el
index 0f83936..89c4fe7 100644
--- a/keymap-popup.el
+++ b/keymap-popup.el
@@ -487,12 +487,6 @@ rendered with the inapt face."
   "Return the visible width of STR, ignoring text properties."
   (string-width (substring-no-properties str)))
 
-(defun keymap-popup--pad-line (line width)
-  "Pad LINE with spaces to WIDTH (based on visible characters)."
-  (let ((visible-width (keymap-popup--string-width-visible line)))
-    (if (< visible-width width)
-        (concat line (make-string (- width visible-width) ?\s))
-      line)))
 
 (defun keymap-popup--column-width (col)
   "Return the max visible width of lines in COL."
@@ -507,7 +501,7 @@ Shorter columns are padded with blank lines."
          (padded-cols (cl-mapcar
                        (lambda (col width)
                          (let ((padded (mapcar (lambda (line)
-                                                 (keymap-popup--pad-line line width))
+                                                 (string-pad line width))
                                                col))
                                (blanks (make-list (- max-height (length col))
                                                   (make-string width ?\s))))