diff options
| author | Pierre-Yves Luyten | 2019-08-03 21:46:40 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-08-03 21:46:40 +0200 |
| commit | b60b6ffb35f4ffbeecb73381e58712ff5cdd7e40 (patch) | |
| tree | 9417b4458e965c3e3cdea4ca864b37fe092f1fcf /lisp/emulation | |
| parent | 2e29a2580e22bb708c9578b9b25a0b9a9b862936 (diff) | |
| download | emacs-b60b6ffb35f4ffbeecb73381e58712ff5cdd7e40.tar.gz emacs-b60b6ffb35f4ffbeecb73381e58712ff5cdd7e40.zip | |
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
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/cua-rect.el | 1 |
1 files changed, 1 insertions, 0 deletions
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." | |||
| 1362 | (let ((M (cond ((eq cua--rectangle-modifier-key 'hyper) " H-") | 1362 | (let ((M (cond ((eq cua--rectangle-modifier-key 'hyper) " H-") |
| 1363 | ((eq cua--rectangle-modifier-key 'super) " s-") | 1363 | ((eq cua--rectangle-modifier-key 'super) " s-") |
| 1364 | ((eq cua--rectangle-modifier-key 'alt) " A-") | 1364 | ((eq cua--rectangle-modifier-key 'alt) " A-") |
| 1365 | ((eq cua--rectangle-modifier-key 'control) " C-") | ||
| 1365 | (t " M-")))) | 1366 | (t " M-")))) |
| 1366 | (message | 1367 | (message |
| 1367 | (concat (if help "C-?:help" "") | 1368 | (concat (if help "C-?:help" "") |