              (read defun-buffer))))))
 
 ;;;###autoload
-(defun el-patch-validate (name)
-  "Validate the patch for the function NAME.
+(defun el-patch-validate (patch-definition &optional nomsg)
+  "Validate the patch given by PATCH-DEFINITION.
 This means el-patch will attempt to find the original definition
 for the function, and verify that it is the same as the original
 function assumed by the patch. A warning will be signaled if the

in your init-file.")

(defun el-patch--reenable-validation-after-init ()
  (setq el-patch-validation t)
  (remove-hook 'after-init-hook #'el-patch--reenable-validation-after-init))

;;;###autoload
(defun el-patch-disable-validation-during-init ()
  (setq el-patch-validation nil)
  (add-hook 'after-init-hook #'el-patch--reenable-validation-after-init))


        (warning-count 0))
    (maphash (lambda (name patch-definition)
               (setq patch-count (1+ patch-count))
               (unless (el-patch-validate patch-definition 'nomsg)
                 (setq warning-count (1+ warning-count))))
             el-patch--patches)
    (cond
