(provide 'trim-kill-ring)

(defun trim-kill-ring (n)
  "Trim items larger than N in the kill ring."
  (interactive "nTrim items larger than (bytes): ")
  (let ((k kill-ring)
	(l (- (/ n 2) 3)))
    (while k
      (let ((i (car k)))
	(if (> (length i) n)
	    (rplaca k (concat (substring i 0 l)
			      " ... "
			      (substring i l))))
	(setq k (cdr k))))))