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

* lisp/select.el (xselect-convert-to-targets): Use delete-dups and delq

Browse source
This commit is contained in:
Stefan Monnier 2022-03-24 05:32:10 -04:00
parent f7a90cc85b
commit 288ecdf90c
1 changed files with 12 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
lisp/select.el
View file

@ -547,25 +547,18 @@ two markers or an overlay. Otherwise, it is nil."
(xselect--int-to-cons len))))
(defun xselect-convert-to-targets (selection _type value)
;; return a vector of atoms, but remove duplicates first.
(let* ((all (cons 'TIMESTAMP
(cons 'MULTIPLE
(mapcar (lambda (conv)
(if (or (not (consp (cdr conv)))
(funcall (cadr conv) selection
(car conv) value))
(car conv)
'_EMACS_INTERNAL))
selection-converter-alist))))
(rest all))
(while rest
(cond ((memq (car rest) (cdr rest))
(setcdr rest (delq (car rest) (cdr rest))))
((eq (car (cdr rest)) '_EMACS_INTERNAL)
(setcdr rest (cdr (cdr rest))))
(t
(setq rest (cdr rest)))))
(apply 'vector all)))
;; Return a vector of atoms, but remove duplicates first.
(apply #'vector
(delete-dups
`( TIMESTAMP MULTIPLE
. ,(delq '_EMACS_INTERNAL
(mapcar (lambda (conv)
(if (or (not (consp (cdr conv)))
(funcall (cadr conv) selection
(car conv) value))
(car conv)
'_EMACS_INTERNAL))
selection-converter-alist))))))
(defun xselect-convert-to-delete (selection _type _value)
(gui-backend-set-selection selection nil)