diff options
author | Philipp Stephani <phst@google.com> | 2020-03-18 12:37:47 +0100 |
---|---|---|
committer | Philipp Stephani <phst@google.com> | 2020-03-18 12:37:47 +0100 |
commit | e92b8e535aa599fa4477578f3e5d0657e494fdd0 (patch) | |
tree | 54c39b6985772d56efa82c065b063cd425fc2063 /test | |
parent | 5747a59a886e16fadbd04c385c43628b1d8f50df (diff) | |
download | emacs-e92b8e535aa599fa4477578f3e5d0657e494fdd0.tar.gz |
Remove raw carriage return characters from test file.
This protects against tools that mangle newline characters in text
files.
* test/lisp/electric-tests.el (electric-pair-mode-newline-between-parens)
(electric-layout-mode-newline-between-parens-without-e-p-m)
(electric-layout-mode-newline-between-parens-without-e-p-m-2): Escape
carriage return characters.
Diffstat (limited to 'test')
-rw-r--r-- | test/lisp/electric-tests.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/lisp/electric-tests.el b/test/lisp/electric-tests.el index 6334c62a31c..56d1bdb110e 100644 --- a/test/lisp/electric-tests.el +++ b/test/lisp/electric-tests.el @@ -906,7 +906,7 @@ baz\"\"" (electric-pair-local-mode 1) (insert-before-markers "int main () {}") (backward-char 1) - (let ((last-command-event ?
)) + (let ((last-command-event ?\r)) (call-interactively (key-binding `[,last-command-event]))) (should (equal (buffer-string) "int main () {\n \n}")))) @@ -927,7 +927,7 @@ baz\"\"" '(after-stay)))))) (insert "int main () {}") (backward-char 1) - (let ((last-command-event ?
)) + (let ((last-command-event ?\r)) (call-interactively (key-binding `[,last-command-event]))) (should (equal (buffer-string) "int main () {\n \n}")))) @@ -948,7 +948,7 @@ baz\"\"" '(after-stay))))) (insert "int main () {}") (backward-char 1) - (let ((last-command-event ?
)) + (let ((last-command-event ?\r)) (call-interactively (key-binding `[,last-command-event]))) (should (equal (buffer-string) "int main () {\n \n}")))) |