Skip to content

Commit e92b8e5

Browse files
committed
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.
1 parent 5747a59 commit e92b8e5

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

test/lisp/electric-tests.el

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -906,7 +906,7 @@ baz\"\""
906906
(electric-pair-local-mode 1)
907907
(insert-before-markers "int main () {}")
908908
(backward-char 1)
909-
(let ((last-command-event ?))
909+
(let ((last-command-event ?\r))
910910
(call-interactively (key-binding `[,last-command-event])))
911911
(should (equal (buffer-string) "int main () {\n \n}"))))
912912

@@ -927,7 +927,7 @@ baz\"\""
927927
'(after-stay))))))
928928
(insert "int main () {}")
929929
(backward-char 1)
930-
(let ((last-command-event ?))
930+
(let ((last-command-event ?\r))
931931
(call-interactively (key-binding `[,last-command-event])))
932932
(should (equal (buffer-string) "int main () {\n \n}"))))
933933

@@ -948,7 +948,7 @@ baz\"\""
948948
'(after-stay)))))
949949
(insert "int main () {}")
950950
(backward-char 1)
951-
(let ((last-command-event ?))
951+
(let ((last-command-event ?\r))
952952
(call-interactively (key-binding `[,last-command-event])))
953953
(should (equal (buffer-string) "int main () {\n \n}"))))
954954

0 commit comments

Comments
 (0)