diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-12-21 20:01:28 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-12-21 20:01:28 +0100 |
commit | b3dec3176673fa99e57e3916b36ea4367d47c0fa (patch) | |
tree | e9a6a6b6926a9abd4c93138ed6e7acb84438a318 /lisp/emacs-lisp/shortdoc.el | |
parent | 87e422f1044068a4d27e5e4bfdbc664d9e4bbc43 (diff) | |
download | emacs-b3dec3176673fa99e57e3916b36ea4367d47c0fa.tar.gz emacs-b3dec3176673fa99e57e3916b36ea4367d47c0fa.tar.bz2 emacs-b3dec3176673fa99e57e3916b36ea4367d47c0fa.zip |
Add `string-pad'
* doc/lispref/strings.texi (Creating Strings): Document it.
* lisp/emacs-lisp/shortdoc.el (string): Add example.
* lisp/emacs-lisp/subr-x.el (string-pad): New function.
Diffstat (limited to 'lisp/emacs-lisp/shortdoc.el')
-rw-r--r-- | lisp/emacs-lisp/shortdoc.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el index 8b11b57ff7f..3e1476adfc1 100644 --- a/lisp/emacs-lisp/shortdoc.el +++ b/lisp/emacs-lisp/shortdoc.el @@ -131,6 +131,10 @@ There can be any number of :example/:result elements." (mapconcat :eval (mapconcat (lambda (a) (concat "[" a "]")) '("foo" "bar" "zot") " ")) + (string-pad + :eval (string-pad "foo" 5) + :eval (string-pad "foobar" 5) + :eval (string-pad "foo" -5 ?-)) (mapcar :eval (mapcar #'identity "123")) (format |