mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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.
This commit is contained in:
Eric Schulte 2013-07-13 12:37:09 -06:00
parent 7f5288780f
commit 4899c79e66
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/ob-core.el
View File

@ -1798,9 +1798,13 @@ region is not active then the point is demarcated."
(move-end-of-line 2)) (move-end-of-line 2))
(sort (if (org-region-active-p) (list (mark) (point)) (list (point))) #'>)) (sort (if (org-region-active-p) (list (mark) (point)) (list (point))) #'>))
(let ((start (point)) (let ((start (point))
(lang (org-icompleting-read "Lang: " (lang (org-icompleting-read
(mapcar (lambda (el) (symbol-name (car el))) "Lang: "
org-babel-load-languages))) (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 (body (delete-and-extract-region
(if (org-region-active-p) (mark) (point)) (point)))) (if (org-region-active-p) (mark) (point)) (point))))
(insert (concat (if (looking-at "^") "" "\n") (insert (concat (if (looking-at "^") "" "\n")