procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove raw carriage return characters from test file.

Browse source 
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.
This commit is contained in:
Philipp Stephani 2020-03-18 12:37:47 +01:00
parent 5747a59a88
commit e92b8e535a
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test/lisp/electric-tests.el
View file

@ -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}"))))