ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-babel-demarcate-block now works before first headline 

fix suggested by Dan Davison

* lisp/ob.el (org-babel-demarcate-block): better initialization of stars
This commit is contained in:
Eric Schulte 2010-09-21 09:34:50 -06:00
parent 26b9263926
commit 0ec264ddf7
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ob.el
View File

@ -1138,15 +1138,15 @@ split. When called from outside of a code block a new code block
is created. In both cases if the region is demarcated and if the
region is not active then the point is demarcated."
(interactive "P")
(let ((info (org-babel-get-src-block-info)))
(let ((info (org-babel-get-src-block-info))
(stars (concat (make-string (or (org-current-level) 1) ?*) " ")))
(if info
(mapc
(lambda (place)
(save-excursion
(goto-char place)
(let ((lang (nth 0 info))
(indent (make-string (nth 6 info) ? ))
(stars (concat (make-string (org-current-level) ?*) " ")))
(indent (make-string (nth 6 info) ? )))
(when (string-match "^[[:space:]]*$"
(buffer-substring (point-at-bol)
(point-at-eol)))
@ -1160,8 +1160,7 @@ region is not active then the point is demarcated."
(sort (if (region-active-p) (list (mark) (point)) (list (point))) #'>))
(let ((start (point))
(body (delete-and-extract-region
(if (region-active-p) (mark) (point)) (point)))
(stars (concat (make-string (org-current-level) ?*) " ")))
(if (region-active-p) (mark) (point)) (point))))
(insert (concat (if (looking-at "^") "" "\n")
(if arg (concat stars "\n") "")
"#+begin_src " (read-from-minibuffer "Lang: ") "\n"