martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
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 ()