emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix 'mouse-drag-copy-region' = 'non-empty'

Browse source 
* lisp/mouse.el (mouse-save-then-kill): Fix conditions for copying
when 'mouse-drag-copy-region' is 'non-empty'.  (Bug#81366)
This commit is contained in:
Eli Zaretskii 2026-07-18 11:49:47 +03:00
parent f532313220
commit c6c8012d7a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/mouse.el
View file

@ -2388,8 +2388,8 @@ if `mouse-drag-copy-region' is non-nil)."
(exchange-point-and-mark)
(mouse-set-region-1)
(when (and mouse-drag-copy-region
(or (not (eq mouse-drag-copy-region 'non-empty))
(not (/= (mark t) (point)))))
(not (and (eq mouse-drag-copy-region 'non-empty)
(= (mark t) (point)))))
(kill-new (filter-buffer-substring (mark t) (point))))
(setq mouse-save-then-kill-posn click-pt)))))