aboutsummaryrefslogtreecommitdiffstats
path: root/test/src/coding-tests.el
diff options
context:
space:
mode:
authorStefan Kangas2020-04-24 15:28:22 +0200
committerStefan Kangas2020-04-24 18:25:13 +0200
commitc52f8863a536c003980c8fcc24dfb48dfb2353a8 (patch)
tree4f446aae70a45ac44f61f42dcf47d27b28c8696e /test/src/coding-tests.el
parent85fb94273375fe793ced4404ade6392e38b4c381 (diff)
downloademacs-c52f8863a536c003980c8fcc24dfb48dfb2353a8.tar.gz
emacs-c52f8863a536c003980c8fcc24dfb48dfb2353a8.zip
Use lexical-binding in most src tests
* test/src/charset-tests.el: * test/src/chartab-tests.el: * test/src/cmds-tests.el: * test/src/coding-tests.el (top-level) (generate-ascii-file, generate-mostly-nonascii-file): * test/src/doc-tests.el: * test/src/floatfns-tests.el: * test/src/font-tests.el: * test/src/keymap-tests.el: * test/src/process-tests.el (top-level) (process-test-sentinel-wait-function-working-p) (process-test-stderr-buffer, process-test-stderr-filter): * test/src/textprop-tests.el: * test/src/thread-tests.el: * test/src/timefns-tests.el: * test/src/undo-tests.el: * test/src/xml-tests.el: Use lexical-binding.
Diffstat (limited to 'test/src/coding-tests.el')
-rw-r--r--test/src/coding-tests.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/test/src/coding-tests.el b/test/src/coding-tests.el
index a741e233d39..c438ae22ce3 100644
--- a/test/src/coding-tests.el
+++ b/test/src/coding-tests.el
@@ -1,4 +1,4 @@
1;;; coding-tests.el --- tests for text encoding and decoding 1;;; coding-tests.el --- tests for text encoding and decoding -*- lexical-binding: t -*-
2 2
3;; Copyright (C) 2013-2020 Free Software Foundation, Inc. 3;; Copyright (C) 2013-2020 Free Software Foundation, Inc.
4 4
@@ -296,7 +296,7 @@
296;;; decoder, not for regression testing. 296;;; decoder, not for regression testing.
297 297
298(defun generate-ascii-file () 298(defun generate-ascii-file ()
299 (dotimes (i 100000) 299 (dotimes (_i 100000)
300 (insert-char ?a 80) 300 (insert-char ?a 80)
301 (insert "\n"))) 301 (insert "\n")))
302 302
@@ -309,13 +309,13 @@
309 (insert "\n"))) 309 (insert "\n")))
310 310
311(defun generate-mostly-nonascii-file () 311(defun generate-mostly-nonascii-file ()
312 (dotimes (i 30000) 312 (dotimes (_i 30000)
313 (insert-char ?a 80) 313 (insert-char ?a 80)
314 (insert "\n")) 314 (insert "\n"))
315 (dotimes (i 20000) 315 (dotimes (_i 20000)
316 (insert-char ?À 80) 316 (insert-char ?À 80)
317 (insert "\n")) 317 (insert "\n"))
318 (dotimes (i 10000) 318 (dotimes (_i 10000)
319 (insert-char ?あ 80) 319 (insert-char ?あ 80)
320 (insert "\n"))) 320 (insert "\n")))
321 321