(defun ediff-cleanup-readonly-buffers ()
  (mapcar (lambda (buf)
          (when (string-match "~.*~$" (buffer-name buf))
            (kill-buffer buf)))
     (buffer-list)))