ob: Allow src block to be executed with point on #+header line

* lisp/ob.el (org-babel-where-is-src-block-head): Detect src block if
point is on a #+header line.
This commit is contained in:
Dan Davison 2011-01-31 15:37:10 +00:00
parent 4a2ed86f6d
commit 9511f9e153
1 changed files with 3 additions and 2 deletions

View File

@ -1098,9 +1098,10 @@ block. Specifically at the beginning of the #+BEGIN_SRC line.
If the point is not on a source block then return nil."
(let ((initial (point)) top bottom)
(or
(save-excursion ;; on a source name line
(save-excursion ;; on a source name line or a #+header line
(beginning-of-line 1)
(and (looking-at org-babel-src-name-regexp)
(and (or (looking-at org-babel-src-name-regexp)
(looking-at org-babel-multi-line-header-regexp))
(progn
(while (and (forward-line 1)
(looking-at org-babel-multi-line-header-regexp)))