[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 a952bdd6af0: Fix primary selection modification during `term-mo
From: |
Phil Sainty |
Subject: |
emacs-29 a952bdd6af0: Fix primary selection modification during `term-mouse-paste' (bug#58608) |
Date: |
Sun, 26 Mar 2023 08:18:11 -0400 (EDT) |
branch: emacs-29
commit a952bdd6af081ef78f25f20d0a6cde612ce10df0
Author: Phil Sainty <psainty@orcon.net.nz>
Commit: Phil Sainty <psainty@orcon.net.nz>
Fix primary selection modification during `term-mouse-paste' (bug#58608)
* lisp/term.el (term-mouse-paste): Prevent the primary selection from
being changed in the process of sending it to the inferior process.
---
lisp/term.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/lisp/term.el b/lisp/term.el
index 3e4907e8bfc..2e719567058 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -1372,7 +1372,13 @@ Entry to this mode runs the hooks on `term-mode-hook'."
(run-hooks 'mouse-leave-buffer-hook)
(setq this-command 'yank)
(mouse-set-point click)
- (term-send-raw-string (gui-get-primary-selection)))
+ ;; As we have moved point, bind `select-active-regions' to prevent
+ ;; the `deactivate-mark' call in `term-send-raw-string' from
+ ;; changing the primary selection (resulting in consecutive calls to
+ ;; `term-mouse-paste' each sending different text). (bug#58608).
+ ;; FIXME: Why does this command change point at all?
+ (let ((select-active-regions nil))
+ (term-send-raw-string (gui-get-primary-selection))))
(defun term-paste ()
"Insert the last stretch of killed text at point."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 a952bdd6af0: Fix primary selection modification during `term-mouse-paste' (bug#58608),
Phil Sainty <=