From 4899c79e66be48b81238ba201398e1e8e55b807c Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Sat, 13 Jul 2013 12:37:09 -0600 Subject: [PATCH] org-src-lang-modes in block demarcation options * lisp/ob-core.el (org-babel-demarcate-block): Include org-src-lang-modes in block demarcation options. --- lisp/ob-core.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index bde955310..b213c2a48 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -1798,9 +1798,13 @@ region is not active then the point is demarcated." (move-end-of-line 2)) (sort (if (org-region-active-p) (list (mark) (point)) (list (point))) #'>)) (let ((start (point)) - (lang (org-icompleting-read "Lang: " - (mapcar (lambda (el) (symbol-name (car el))) - org-babel-load-languages))) + (lang (org-icompleting-read + "Lang: " + (mapcar #'symbol-name + (delete-dups + (append (mapcar #'car org-babel-load-languages) + (mapcar (lambda (el) (intern (car el))) + org-src-lang-modes)))))) (body (delete-and-extract-region (if (org-region-active-p) (mark) (point)) (point)))) (insert (concat (if (looking-at "^") "" "\n") -- 2.11.4.GIT