       (pp form2 (current-buffer))
       (setq min2 (point-min)
             max2 (point-max)))
+    ;; Ugly hack because Ediff is missing an `ediff-buffers-wordwise'
+    ;; function.
     (eval-and-compile
       (require 'ediff))
     (ediff-regions-internal

          (pcase this-directive
            ((quote el-patch-add)
             (when (<= (length form) 1)
               (error "not enough arguments (%d) for `%s'"
                      (1- (length form)) directive))
             (when this-new
               (cl-mapcan resolve (cdr form))))
            ((quote el-patch-swap)
             (cond
              ((<= (length form) 2)
               (error "not enough arguments (%d) for `el-patch-swap'"
                      (1- (length form))))
              ((>= (length form) 4)
               (error "too many arguments (%d) in for `el-patch-swap'"
                      (1- (length form)))))
             (funcall resolve
                      (if this-new


;;;###autoload
(defun el-patch-validate-patches ()
  "Validate all currently defined patches.
This means el-patch will attempt to find the original definition
for each patched function, and verify that it is the same as the
original function assumed by the patch. A warning will be
signaled if the original definition for a patched function cannot
be found, or if there is a different between the actual and
expected original definitions."
  (interactive)
  (let ((patch-count 0)
        (warning-count 0))
