ediff on clones

kbu-ediff.el

;;; See http://www.emacswiki.org/emacs/EdiffMode#toc2
(setq ediff-window-setup-function ; I hate having multiple frames
      'ediff-setup-windows-plain)
(setq ediff-split-window-function (lambda (&optional arg)
                                    (if (> (frame-width) 156)
                                        (split-window-horizontally arg)
                                      (split-window-vertically arg))))

(defun ediff--regions-samebuffer (ediff-regions &optional startup-hooks)
  (let ((cloned-buffer (clone-indirect-buffer-other-window nil t)))
    (unwind-protect
        (funcall ediff-regions (current-buffer) cloned-buffer startup-hooks)
      (kill-buffer cloned-buffer))))

(defun ediff-regions-wordwise-samebuffer (&optional startup-hooks)
  (interactive)
  (ediff--regions-samebuffer #'ediff-regions-wordwise startup-hooks))

(defun ediff-regions-linewise-samebuffer (&optional startup-hooks)
  (interactive)
  (ediff--regions-samebuffer #'ediff-regions-linewise startup-hooks))

(global-set-key (kbd "C-x =") #'ediff-regions-linewise-samebuffer)