1066 |
;; If rectangle is active, expand rectangle in specified direction and ignore the movement. |
;; If rectangle is active, expand rectangle in specified direction and ignore the movement. |
1067 |
(if movement |
(if movement |
1068 |
(cond |
(cond |
1069 |
((memq 'shift (event-modifiers |
((if window-system |
1070 |
(aref (if window-system |
(memq 'shift (event-modifiers |
1071 |
(this-single-command-raw-keys) |
(aref (this-single-command-raw-keys) 0))) |
1072 |
(this-single-command-keys)) 0))) |
(or |
1073 |
|
(memq 'shift (event-modifiers |
1074 |
|
(aref (this-single-command-keys) 0))) |
1075 |
|
;; See if raw escape sequence maps to a shifted event, e.g. S-up or C-S-home. |
1076 |
|
(and (boundp 'function-key-map) |
1077 |
|
function-key-map |
1078 |
|
(let ((ev (lookup-key function-key-map |
1079 |
|
(this-single-command-raw-keys)))) |
1080 |
|
(and (vector ev) |
1081 |
|
(symbolp (setq ev (aref ev 0))) |
1082 |
|
(string-match "S-" (symbol-name ev))))))) |
1083 |
(unless mark-active |
(unless mark-active |
1084 |
(push-mark-command nil t)) |
(push-mark-command nil t)) |
1085 |
(setq cua--last-region-shifted t) |
(setq cua--last-region-shifted t) |