diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-12-22 06:59:25 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-12-22 06:59:25 +0100 |
commit | 051d8f75350e54009180cc2fa5e5f86c92db1e13 (patch) | |
tree | 152ba517b0220a4f6fb0d6716a25991e9d119cb1 /test/lisp/emacs-lisp/subr-x-tests.el | |
parent | 9480169f1b8a27ed61db0913989c9a81339ccd9d (diff) | |
download | emacs-051d8f75350e54009180cc2fa5e5f86c92db1e13.tar.gz |
Make string-pad take an optional START parameter
* lisp/emacs-lisp/subr-x.el (string-pad): Alter the calling
convention.
Diffstat (limited to 'test/lisp/emacs-lisp/subr-x-tests.el')
-rw-r--r-- | test/lisp/emacs-lisp/subr-x-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/subr-x-tests.el b/test/lisp/emacs-lisp/subr-x-tests.el index 52b48095149..854d61ed28e 100644 --- a/test/lisp/emacs-lisp/subr-x-tests.el +++ b/test/lisp/emacs-lisp/subr-x-tests.el @@ -613,7 +613,7 @@ (ert-deftest subr-string-pad () (should (equal (string-pad "foo" 5) "foo ")) (should (equal (string-pad "foo" 5 ?-) "foo--")) - (should (equal (string-pad "foo" -5 ?-) "--foo")) + (should (equal (string-pad "foo" 5 ?- t) "--foo")) (should (equal (string-pad "foo" 2 ?-) "foo"))) (ert-deftest subr-string-chop-newline () |