[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master d27b137: Clean up replace-in-string slightly
From: |
Lars Ingebrigtsen |
Subject: |
master d27b137: Clean up replace-in-string slightly |
Date: |
Thu, 24 Sep 2020 20:27:09 -0400 (EDT) |
branch: master
commit d27b137289567c9b91f93dff8cdbb5748529cdfa
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Clean up replace-in-string slightly
* lisp/subr.el (replace-in-string): Clean up previous fix slightly.
---
lisp/subr.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/subr.el b/lisp/subr.el
index 0de9ac5..33ed0bc 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4440,8 +4440,9 @@ Unless optional argument INPLACE is non-nil, return a new
string."
(push (substring instring start pos) result))
(push tostring result)
(setq start (+ pos (length fromstring))))
+ ;; Get any remaining bit.
(unless (= start (length instring))
- (push (substring instring start pos) result))
+ (push (substring instring start) result))
(apply #'concat (nreverse result))))
(defun replace-regexp-in-string (regexp rep string &optional
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master d27b137: Clean up replace-in-string slightly,
Lars Ingebrigtsen <=