What is the value of `interprogram-cut-function' and
`interprogram-paste-function' in your xemacs?
Please, try this code (add it to your init file):
-------------------------------------------------------------------------------
(defun kill-cleanup-paste (str)
(and (stringp str)
(boundp 'interprogram-paste)
(stringp interprogram-paste)
(string= interprogram-paste str)
(string= (car kill-ring) (cadr kill-ring))
(eq kill-ring kill-ring-yank-pointer)
(progn (setq kill-ring (cdr kill-ring))
(setq kill-ring-yank-pointer (cdr kill-ring-yank-pointer)))))
(add-hook 'kill-hooks 'kill-cleanup-paste)
-------------------------------------------------------------------------------
Nick.
intro: "AV" == Aki Vehtari <Aki.Vehtari(a)hut.fi> writes:
AV> Tested with 21.4.3 and 21.1.14
AV> In 21.4.3 it is required to press M-y (yank-pop) twice to get same effect
AV> as in 21.1.14 with just pressing M-y once.
AV> With xemacs-21.1.14 -vanilla ---Clip--- Recent keystrokes:
AV> a a a C-a C-k b b b C-a C-k C-y M-y C-h l ---Clip---
AV> With xemacs-21.4.3 -vanilla ---Clip--- Recent keystrokes:
AV> a a a C-a C-k b b b C-a C-k C-y M-y M-y C-h l ---Clip---
AV> After above keystrokes there is text 'aaa' visible, but 21.4.3 required
AV> pressing M-y twice.
AV> Aki