[nongnu] elpa/subed 9ccfef7 096/389: Add subed--right-pad

[ELPA Syncer]

branch: elpa/subed
commit 9ccfef754a99c21457039847e8760714b100aba5
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>

    Add subed--right-pad
---
 subed/subed.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/subed/subed.el b/subed/subed.el
index 0512322..e1303ff 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -157,6 +157,10 @@ Before BODY is run, point is placed on the subtitle's ID."
                      (subed-forward-subtitle-id))
            (progn ,@body))))))
 
+(defun subed--right-pad (string length fillchar)
+  "Use FILLCHAR to make STRING LENGTH characters long."
+  (concat string (make-string (- length (length string)) fillchar)))
+
 
 ;;; Moving subtitles