Re: multiple kill and paste from X clipboard

[Manuel Giraud]

Hi,

FTR, I was able to get the behaviour I wanted with the following code.
So far, it has two drawbacks:
        - it works with the primary selection and is, therefore, X11
          only
        - it does not work on Emacs itself (but we have better
          alternatives here ;-)

--8<---------------cut here---------------start------------->8---
(defvar primary-list nil)
(defvar my-timer nil)

(defun next-primary (name type success)
  (when (and (eq name 'PRIMARY)
             (not (eq type 'TARGETS))
             success
             primary-list)
    (gui-set-selection 'PRIMARY (pop primary-list))))

(defun clean-up-when-empty ()
  (unless primary-list
    (cancel-timer my-timer)
    (setq my-timer nil)
    (remove-hook 'x-sent-selection-functions 'next-primary)))

(defun put-list-into-primary (list)
  (gui-set-selection 'PRIMARY (car list))
  (setq primary-list (cdr list))
  (add-hook 'x-sent-selection-functions 'next-primary)
  (setq my-timer (run-with-timer t 1 'clean-up-when-empty)))

(defun test-me ()
  (interactive)
  (put-list-into-primary (list "hello" "how" "are" "you?")))
--8<---------------cut here---------------end--------------->8---
-- 
Manuel Giraud