Skip to content

Commit 1994d6b

Browse files
okamsneshrh
authored andcommitted
In meow-reverse, run C-x C-x instead of running exchange-point-and-mark directly.
- Add `meow--kbd-exchange-point-and-mark` with value "C-x C-x". - Change `meow-reverse` to run this macro via `meow--execute-kbd-macro`. This change supports using `rectangle-exchange-point-and-mark` (`C-x C-x`) in `rectangle-mark-mode`.
1 parent 2a736d9 commit 1994d6b

File tree

2 files changed

+4
-1
lines changed

2 files changed

+4
-1
lines changed

meow-command.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -128,7 +128,7 @@ The direction of selection is MARK -> POS."
128128
This command supports `meow-selection-command-fallback'."
129129
(interactive)
130130
(meow--with-selection-fallback
131-
(exchange-point-and-mark)
131+
(meow--execute-kbd-macro meow--kbd-exchange-point-and-mark)
132132
(if (member last-command
133133
'(meow-visit meow-search meow-mark-symbol meow-mark-word))
134134
(meow--highlight-regexp-in-buffer (car regexp-search-ring))

meow-var.el

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -392,6 +392,9 @@ Use (setq meow-keypad-describe-keymap-function 'nil) to disable popup.")
392392
(defvar meow--kbd-kill-region "C-w"
393393
"KBD macro for command `kill-region'.")
394394

395+
(defvar meow--kbd-exchange-point-and-mark "C-x C-x"
396+
"KBD macro for command `exchange-point-and-mark'.")
397+
395398
(defvar meow--kbd-back-to-indentation "M-m"
396399
"KBD macro for command `back-to-indentation'.")
397400

0 commit comments

Comments
 (0)