   "Show the patch for an object in Ediff.
 NAME and TYPE are as returned by `el-patch-get'."
   (interactive (el-patch--select-patch))
-  (let* ((patch-definition (el-patch-get name type))
-         (old-definition (el-patch--resolve-definition
-                          patch-definition nil))
-         (new-definition (el-patch--resolve-definition
-                          patch-definition t)))
-    (el-patch--ediff-forms
-     "*el-patch original*" old-definition
-     "*el-patch patched*" new-definition)
-    (when (equal old-definition new-definition)
-      (message "No patch"))))
+  (if-let ((patch-definition (el-patch-get name type)))
+      (let* ((old-definition (el-patch--resolve-definition
+                              patch-definition nil))
+             (new-definition (el-patch--resolve-definition
+                              patch-definition t)))
+        (el-patch--ediff-forms
+         "*el-patch original*" old-definition
+         "*el-patch patched*" new-definition)
+        (when (equal old-definition new-definition)
+          (message "No patch")))
+    (error "There is no patch for %S %S" type name)))
 
 ;;;###autoload
 (defun el-patch-ediff-conflict (name type)

and TYPE is a symbol `defun', `defmacro', etc. If the patch could
not be found, return nil."
  (condition-case nil
      (gethash type (gethash name name el-patch--patches))
    (error nil)))

(defun el-patch--select-patch ()

patch's original definition. NAME and TYPE are as returned by
`el-patch-get'."
  (interactive (el-patch--select-patch))
  (if-let ((patch-definition (el-patch-get name type)))
      (let* ((expected-definition (el-patch--resolve-definition
                                   patch-definition nil))
             (name (cadr expected-definition))
             (actual-definition (el-patch--find-function name)))
        (el-patch--ediff-forms
         "*el-patch actual*" actual-definition
         "*el-patch expected*" expected-definition)
        (when (equal actual-definition expected-definition)
          (message "No conflict")))
    (error "There is no patch for %S %S" type name)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Removing patches
