From 3a2ef56195c8f05179ae8f68ade65c725b352c89 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Fri, 22 Mar 2019 18:36:02 +0100
Subject: [PATCH] Fix last commit

* lisp/org.el (org-dynamic-block-define): Fix match.
---
 lisp/org.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org.el b/lisp/org.el
index 7c180901f..37e8abea9 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -9598,7 +9598,7 @@ TYPE is a string.  FUNC is the function creating the dynamic
 block of such type."
   (pcase (assoc type org-dynamic-block-alist)
     (`nil (push (cons type func) org-dynamic-block-alist))
-    (`(,def . ,_) (setcdr def func))))
+    (def (setcdr def func))))
 
 (defun org-dynamic-block-insert-dblock (type)
   "Insert a dynamic block of type TYPE.