1358 |
|
|
1359 |
(defun cua-help-for-rectangle (&optional help) |
(defun cua-help-for-rectangle (&optional help) |
1360 |
(interactive) |
(interactive) |
1361 |
(let ((M (if cua-use-hyper-key " H-" " M-"))) |
(let ((M (cond ((eq cua--rectangle-modifier-key 'hyper) " H-") |
1362 |
|
((eq cua--rectangle-modifier-key 'super) " s-") |
1363 |
|
(t " M-")))) |
1364 |
(message |
(message |
1365 |
(concat (if help "C-?:help" "") |
(concat (if help "C-?:help" "") |
1366 |
M "p:pad" M "o:open" M "c:close" M "b:blank" |
M "p:pad" M "o:open" M "c:close" M "b:blank" |
1412 |
(cua--M/H-key cua--rectangle-keymap key cmd)) |
(cua--M/H-key cua--rectangle-keymap key cmd)) |
1413 |
|
|
1414 |
(defun cua--init-rectangles () |
(defun cua--init-rectangles () |
1415 |
(unless (eq cua-use-hyper-key 'only) |
(define-key cua--rectangle-keymap [(control return)] 'cua-clear-rectangle-mark) |
1416 |
(define-key cua--rectangle-keymap [(control return)] 'cua-clear-rectangle-mark) |
(define-key cua--region-keymap [(control return)] 'cua-toggle-rectangle-mark) |
1417 |
(define-key cua--region-keymap [(control return)] 'cua-toggle-rectangle-mark)) |
(unless (eq cua--rectangle-modifier-key 'meta) |
1418 |
(when cua-use-hyper-key |
(cua--rect-M/H-key ?\s 'cua-clear-rectangle-mark) |
1419 |
(cua--rect-M/H-key 'space 'cua-clear-rectangle-mark) |
(cua--M/H-key cua--region-keymap ?\s 'cua-toggle-rectangle-mark)) |
|
(cua--M/H-key cua--region-keymap 'space 'cua-toggle-rectangle-mark)) |
|
1420 |
|
|
1421 |
(define-key cua--rectangle-keymap [remap copy-region-as-kill] 'cua-copy-rectangle) |
(define-key cua--rectangle-keymap [remap copy-region-as-kill] 'cua-copy-rectangle) |
1422 |
(define-key cua--rectangle-keymap [remap kill-ring-save] 'cua-copy-rectangle) |
(define-key cua--rectangle-keymap [remap kill-ring-save] 'cua-copy-rectangle) |