summaryrefslogtreecommitdiff
path: root/test/lisp/subr-tests.el
diff options
context:
space:
mode:
authorStefan Kangas <stefankangas@gmail.com>2022-11-17 20:08:54 +0100
committerStefan Kangas <stefankangas@gmail.com>2022-11-17 20:10:05 +0100
commit2967356891874c355e634e3f4c0cae5456d1bb09 (patch)
treefdac5d704df8614e8df91218fd18680022ada984 /test/lisp/subr-tests.el
parent875a8582ec586afb2ff01b4cf8a81b0862c374d9 (diff)
downloademacs-2967356891874c355e634e3f4c0cae5456d1bb09.tar.gz
Avoid raw control characters in two files
* lisp/net/rcirc.el (rcirc-format, rcirc-unformat) (rcirc-format-bold, rcirc-format-italic, rcirc-format-underline) (rcirc-format-strike-trough, rcirc-format-fixed-width): * test/lisp/subr-tests.el (test-keymap-parse-macros): Don't use raw control characters.
Diffstat (limited to 'test/lisp/subr-tests.el')
-rw-r--r--test/lisp/subr-tests.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index cc9610cd393..e22d1c7be0e 100644
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -1106,7 +1106,7 @@ final or penultimate step during initialization."))
(ert-deftest test-keymap-parse-macros ()
(should (equal (key-parse "C-x ( C-d C-x )") [24 40 4 24 41]))
- (should (equal (kbd "C-x ( C-d C-x )") ""))
+ (should (equal (kbd "C-x ( C-d C-x )") "\^D"))
(should (equal (kbd "C-x ( C-x )") "")))
(defvar subr-test--global)