diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2013-07-13 12:37:09 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2013-07-13 12:37:09 -0600 |
commit | 4899c79e66be48b81238ba201398e1e8e55b807c (patch) | |
tree | 93f6bcf5955da9f2fbe26c0c88b49daa9f1dac7e | |
parent | 7f5288780fbbbdfa87d80b881e152dff64b895fa (diff) | |
download | org-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.el | 10 |
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") |