procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Dont update primary selection with winner-undo

Browse source 
* lisp/winner.el (winner-set):
Dont update primary selection when select-enable-primary
is non-nil (Bug#28631).

Co-authored-by: Noam Postavsky <npostavs@gmail.com>
This commit is contained in:
Tino Calancha 2017-10-17 16:20:08 +09:00
parent b38724ab67
commit 2c3e6f1ddc
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/winner.el
View file

@ -304,12 +304,15 @@ You may want to include buffer names such as *Help*, *Apropos*,
(push win xwins))) ; delete this window (push win xwins))) ; delete this window
;; Restore marks ;; Restore marks
(save-current-buffer ;; `winner-undo' shouldn't update the selection (Bug#28631) when
(cl-loop for buf in buffers ;; select-enable-primary is non-nil.
for entry = (cadr (assq buf winner-point-alist)) (unless select-enable-primary
do (progn (set-buffer buf) (save-current-buffer
(set-mark (car entry)) (cl-loop for buf in buffers
(setf (winner-active-region) (cdr entry))))) for entry = (cadr (assq buf winner-point-alist))
do (progn (set-buffer buf)
(set-mark (car entry))
(setf (winner-active-region) (cdr entry))))))
;; Delete windows, whose buffers are dead or boring. ;; Delete windows, whose buffers are dead or boring.
;; Return t if this is still a possible configuration. ;; Return t if this is still a possible configuration.
(or (null xwins) (or (null xwins)