summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2013-07-13 12:37:09 -0600
committerEric Schulte <schulte.eric@gmail.com>2013-07-13 12:37:09 -0600
commit4899c79e66be48b81238ba201398e1e8e55b807c (patch)
tree93f6bcf5955da9f2fbe26c0c88b49daa9f1dac7e
parent7f5288780fbbbdfa87d80b881e152dff64b895fa (diff)
downloadorg-mode-4899c79e66be48b81238ba201398e1e8e55b807c.tar.gz
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.
-rw-r--r--lisp/ob-core.el10
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index bde9553..b213c2a 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")