diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-09-07 15:27:55 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-09-07 15:27:55 +0200 |
| commit | d50170b2088f209221a7841b12d4ece2b763633c (patch) | |
| tree | da2401a7d155d644ac5c9ff00ea9e4595aafa542 | |
| parent | 91a76063d8ba4b2b0932b3dbe9e87a4e1f798540 (diff) | |
| download | org-mode-d50170b2088f209221a7841b12d4ece2b763633c.tar.gz | |
Tolerate editing an export block without type
* lisp/org-src.el (org-edit-export-block): Tolerate editing an export
block without type.
| -rw-r--r-- | lisp/org-src.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/org-src.el b/lisp/org-src.el index fd7efc5..e21620a 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 |