branch: elpa/subed
commit 9ccfef754a99c21457039847e8760714b100aba5
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@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
