From e92b8e535aa599fa4477578f3e5d0657e494fdd0 Mon Sep 17 00:00:00 2001 From: Philipp Stephani Date: Wed, 18 Mar 2020 12:37:47 +0100 Subject: [PATCH] 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. --- test/lisp/electric-tests.el | 6 +++--- 1 file 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}")))) -- 2.39.2