procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add string-chop-newline

Browse source 
* doc/lispref/strings.texi (Creating Strings): Document it.
* lisp/emacs-lisp/subr-x.el (string-chop-newline): Add new function.
This commit is contained in:
Lars Ingebrigtsen 2020-12-21 22:05:37 +01:00
parent e967ba3018
commit f329a3180e
5 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test/lisp/emacs-lisp/subr-x-tests.el
View file

@ -615,5 +615,10 @@
(should (equal (string-pad "foo" -5 ?-) "--foo"))
(should (equal (string-pad "foo" 2 ?-) "foo")))
(ert-deftest subr-string-chop-newline ()
(should (equal (string-chop-newline "foo\n") "foo"))
(should (equal (string-chop-newline "foo\nbar\n") "foo\nbar"))
(should (equal (string-chop-newline "foo\nbar") "foo\nbar")))
(provide 'subr-x-tests)
;;; subr-x-tests.el ends here