I'm not sure why you think Olegβs answer is βnot a good style,β but hereβs another way:
(when kill-ring (setq kill-ring (cdr kill-ring)))
You can also configure kill-ring-yank-pointer :
(when kill-ring-yank-pointer (setq kill-ring-yank-pointer kill-ring))
source share