(when select-active-regions
;; Without this, confusing things happen upon e.g. inserting into
;; the middle of an active region.
- (deactivate-mark t))
+ (deactivate-mark))
(or mouse-yank-at-point (mouse-set-point click))
(setq this-command 'yank)
(setq mouse-selection-click-count 0)
(when select-active-regions
;; Without this, confusing things happen upon e.g. inserting into
;; the middle of an active region.
- (deactivate-mark t))
+ (deactivate-mark))
(or mouse-yank-at-point (mouse-set-point click))
(let ((primary (x-get-selection 'PRIMARY)))
(if primary