mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 14:40:54 -08:00
Code Issues Projects Releases Wiki Activity

Temporary enable transient-mark-mode for rectangle selection

Browse source 
* lisp/mouse.el (mouse-drag-region-rectangle):
Enable transient-mark-mode during selection (bug#38431).
This commit is contained in:
Mattias Engdegård 2019-12-01 18:31:34 +01:00
parent 8b5c5a9a9b
commit 9f2145f42d
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mouse.el
View file

@ -2007,6 +2007,10 @@ This must be bound to a button-down mouse event."
(setq dragged t)
(mouse-minibuffer-check start-event)
(deactivate-mark)
(setq-local transient-mark-mode
(if (eq transient-mark-mode 'lambda)
'(only)
(cons 'only transient-mark-mode)))
(posn-set-point start-pos)
(rectangle-mark-mode)
;; Only tell rectangle about the exact column if we are possibly