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

Fix shorter-than-length case for string-limit

Browse source 
* lisp/emacs-lisp/subr-x.el (string-limit): Fix
shorter-than-length case.
This commit is contained in:
Lars Ingebrigtsen 2020-12-21 20:42:17 +01:00
parent cf2e832185
commit fd9431dde4
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/subr-x.el
View file

@ -292,7 +292,7 @@ is a positive number, return a a substring consisting of the
first LENGTH characters of STRING. If LENGTH is negative, return
a substring consisitng of thelast LENGTH characters of STRING."
(cond
((<= (length string) length) string)
((<= (length string) (abs length)) string)
((>= length 0) (substring string 0 length))
(t (substring string (+ (length string) length)))))

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

@ -596,6 +596,7 @@
(should (equal (string-limit "foo" 10) "foo"))
(should (equal (string-limit "foo" 2) "fo"))
(should (equal (string-limit "foo" -2) "oo"))
(should (equal (string-limit "abc" -10) "abc"))
(should (equal (string-limit "foo" 0) "")))
(ert-deftest subr-string-lines ()