        (list name))
       ((quote define-minor-mode)
        (list (cons 'defun name)
-             (or (when-let* ((rest (member :variable body)))
+             (or (when-let ((rest (member :variable body)))
                    (cadr rest))
                  name)))
       (_ (error "Unexpected definition type %S" type)))))


(require 'subr-x)
(require 'cl-lib)

;;;; Compatibility

(eval-and-compile
  (when (version< emacs-version "26")
    (with-no-warnings
      (defalias 'if-let* #'if-let)
      (defalias 'when-let* #'when-let)
      (function-put #'if-let* 'lisp-indent-function 2)
      (function-put #'when-let* 'lisp-indent-function 1))))

;;;; User-facing variables


  "Show the patch for an object in Ediff.
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* ((old-definition (el-patch--resolve-definition
                              patch-definition nil))
             (new-definition (el-patch--resolve-definition
