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
This commit is contained in:
parent
2e29a2580e
commit
b60b6ffb35
1 changed files with 1 additions and 0 deletions
|
@ -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" "")
|
||||
|
|
Loading…
Add table
Reference in a new issue