diff options
author | Eli Zaretskii <eliz@gnu.org> | 2018-06-15 11:27:56 +0300 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2018-06-15 11:27:56 +0300 |
commit | 0d3c35807d0b0a3aaa4c4ebd2f040bb78013879d (patch) | |
tree | 3d1e838f66004370736692bef8c3c8eb8f03d1db /test | |
parent | c79a6275b2f3bc529f9e7e9a65dc56fbd30364d9 (diff) | |
download | emacs-0d3c35807d0b0a3aaa4c4ebd2f040bb78013879d.tar.gz |
Fix 'replace-buffer-contents' in multibyte buffers
* src/editfns.c (buffer_chars_equal): Pass a byte position to
BUF_FETCH_CHAR_AS_MULTIBYTE, not a character position.
(Bug#31837)
* test/src/editfns-tests.el (replace-buffer-contents-bug31837):
New test.
Diffstat (limited to 'test')
-rw-r--r-- | test/src/editfns-tests.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/src/editfns-tests.el b/test/src/editfns-tests.el index 714e92e5053..ec411ff773b 100644 --- a/test/src/editfns-tests.el +++ b/test/src/editfns-tests.el @@ -247,6 +247,17 @@ (buffer-string) "foo bar baz qux")))))) +(ert-deftest replace-buffer-contents-bug31837 () + (switch-to-buffer "a") + (insert-char (char-from-name "SMILE")) + (insert "1234") + (switch-to-buffer "b") + (insert-char (char-from-name "SMILE")) + (insert "5678") + (replace-buffer-contents "a") + (should (equal (buffer-substring-no-properties (point-min) (point-max)) + (concat (string (char-from-name "SMILE")) "1234")))) + (ert-deftest delete-region-undo-markers-1 () "Make sure we don't end up with freed markers reachable from Lisp." ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=30931#40 |