From d85744b48ad064389b83d31e19afe54e96c02be7 Mon Sep 17 00:00:00 2001 From: Akib Azmain Turja Date: Mon, 15 May 2023 22:36:01 +0600 Subject: [PATCH] Yank active region with middle-click yank * eat.el (eat-mouse-yank-primary): Select active region if 'select-active-regions' is non-nil. --- eat.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/eat.el b/eat.el index 8d2ded0..8b17743 100644 --- a/eat.el +++ b/eat.el @@ -5108,6 +5108,9 @@ STRING and ARG are passed to `yank-pop', which see." EVENT is the mouse event." (interactive "e") + (when select-active-regions + (let (select-active-regions) + (deactivate-mark))) (unless (windowp (posn-window (event-start event))) (error "Position not in text area of window")) (select-window (posn-window (event-start event)))