In "kill-new function" of 8.3.1.

The critical lines are these:......
>
  (setq kill-ring (cons string kill-ring)) is needless .

thanks