From 2a23c7c2d179a7a9786f9806fcbba6a0c42f8794 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 26 Feb 1997 12:55:23 +0000 Subject: [PATCH] (truncate-string-to-width): Argument PADDING can be a padding character. --- lisp/international/mule-util.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index 67f6f0b9e79..2cd442c47b6 100644 --- a/lisp/international/mule-util.el +++ b/lisp/international/mule-util.el @@ -76,7 +76,7 @@ Multibyte characters are conserned." (defun truncate-string-to-width (str width &optional start-column padding) "Truncate string STR to fit in WIDTH columns. Optional 1st arg START-COLUMN if non-nil specifies the starting column. -Optional 2nd arg PADDING if non-nil, space characters are padded at +Optional 2nd arg PADDING if non-nil is a padding character to be padded at the head and tail of the resulting string to fit in WIDTH if necessary. If PADDING is nil, the resulting string may be narrower than WIDTH." (or start-column @@ -93,7 +93,7 @@ If PADDING is nil, the resulting string may be narrower than WIDTH." idx (+ idx (char-bytes ch)))) (args-out-of-range (setq idx len))) (if (< column start-column) - (if padding (make-string width ?\ ) "") + (if padding (make-string width padding) "") (if (and padding (> column start-column)) (setq head-padding (make-string (- column start-column) ?\ ))) (setq from-idx idx) @@ -108,7 +108,7 @@ If PADDING is nil, the resulting string may be narrower than WIDTH." (if (> column width) (setq column last-column idx last-idx)) (if (and padding (< column width)) - (setq tail-padding (make-string (- width column) ?\ ))) + (setq tail-padding (make-string (- width column) padding))) (setq str (substring str from-idx idx)) (if padding (concat head-padding str tail-padding) -- 2.39.5