aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorMattias EngdegÄrd2022-06-18 11:08:23 +0200
committerMattias EngdegÄrd2022-06-18 11:22:58 +0200
commite321f87aa76c959faed784851b65ab7ada3fd129 (patch)
tree0f3450adff77e3a73df7b5786c39333b58e09e97 /test
parent15238e2ed0eeba82fd43efbbd4b9237394f9fd55 (diff)
downloademacs-e321f87aa76c959faed784851b65ab7ada3fd129.tar.gz
emacs-e321f87aa76c959faed784851b65ab7ada3fd129.zip
Avoid "control-control-KEY" (bug#55738)
Constructs such as ?\C-^@ or ?\C-\C-m literally apply a Control modifier twice which doesn't make sense at all. What is really meant is a C0 base character with the Control modifier bit set. This change is only stylistic in nature. * lisp/edmacro.el (edmacro-format-keys): * lisp/keymap.el (key-parse): * lisp/subr.el (event-modifiers, event-basic-type): * test/lisp/subr-tests.el (subr-test-kbd): Use \0 and \r instead of ^@ and \C-m to represent NUL and RET when combined with other modifiers.
Diffstat (limited to 'test')
-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 a25eb363b01..45dd2d71603 100644
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -112,7 +112,7 @@
112 (should (equal (kbd "C-x C-f") "\C-x\C-f")) 112 (should (equal (kbd "C-x C-f") "\C-x\C-f"))
113 (should (equal (kbd "C-M-<down>") [C-M-down])) 113 (should (equal (kbd "C-M-<down>") [C-M-down]))
114 (should (equal (kbd "<C-M-down>") [C-M-down])) 114 (should (equal (kbd "<C-M-down>") [C-M-down]))
115 (should (equal (kbd "C-RET") [?\C-\C-m])) 115 (should (equal (kbd "C-RET") [?\C-\r]))
116 (should (equal (kbd "C-SPC") [?\C- ])) 116 (should (equal (kbd "C-SPC") [?\C- ]))
117 (should (equal (kbd "C-TAB") [?\C-\t])) 117 (should (equal (kbd "C-TAB") [?\C-\t]))
118 (should (equal (kbd "C-<down>") [C-down])) 118 (should (equal (kbd "C-<down>") [C-down]))