From d50170b2088f209221a7841b12d4ece2b763633c Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Thu, 7 Sep 2017 15:27:55 +0200 Subject: [PATCH] Tolerate editing an export block without type * lisp/org-src.el (org-edit-export-block): Tolerate editing an export block without type. --- lisp/org-src.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/org-src.el b/lisp/org-src.el index fd7efc5b3..e21620afc 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -920,7 +920,10 @@ Throw an error when not at an export block." (unless (and (eq (org-element-type element) 'export-block) (org-src--on-datum-p element)) (user-error "Not in an export block")) - (let* ((type (downcase (org-element-property :type element))) + (let* ((type (downcase (or (org-element-property :type element) + ;; Missing export-block type. Fallback + ;; to default mode. + "fundamental"))) (mode (org-src--get-lang-mode type))) (unless (functionp mode) (error "No such language mode: %s" mode)) (org-src--edit-element