From b60b6ffb35f4ffbeecb73381e58712ff5cdd7e40 Mon Sep 17 00:00:00 2001 From: Pierre-Yves Luyten Date: Sat, 3 Aug 2019 21:46:40 +0200 Subject: [PATCH] cua-rect help: check for 'control value * lisp/emulation/cua-rect.el (cua-help-for-rectangle): Check for 'control value (bug#18120). Copyright-paperwork-exempt: yes --- lisp/emulation/cua-rect.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index 1a19cc2910e..14415585efb 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el @@ -1362,6 +1362,7 @@ With prefix arg, indent to that column." (let ((M (cond ((eq cua--rectangle-modifier-key 'hyper) " H-") ((eq cua--rectangle-modifier-key 'super) " s-") ((eq cua--rectangle-modifier-key 'alt) " A-") + ((eq cua--rectangle-modifier-key 'control) " C-") (t " M-")))) (message (concat (if help "C-?:help" "") -- 2.39.2