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

slightly cleaner code

This commit is contained in:
Eric Schulte 2009-05-19 20:42:45 -07:00
parent 0974acd7b4
commit 700324bfbf
1 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
litorgy/litorgy.el
View File

@ -149,25 +149,17 @@ of the following form. (language body header-arguments-alist)"
(if (or
(save-excursion ;; on a #+srcname: line
(beginning-of-line 1)
(and
(looking-at "#\\+srcname")
(progn
(forward-line 1)
(looking-at litorgy-src-block-regexp))))
(and (looking-at "#\\+srcname") (forward-line 1)
(looking-at litorgy-src-block-regexp)))
(save-excursion ;; on a #+begin_src line
(beginning-of-line 1)
(looking-at litorgy-src-block-regexp))
(beginning-of-line 1) (looking-at litorgy-src-block-regexp))
(save-excursion ;; inside a src block
(and
(setq middle (point))
(re-search-backward "#\\+begin_src" nil t)
(setq top (point))
(re-search-forward "#\\+end_src" nil t)
(setq middle (point)) (re-search-backward "#\\+begin_src" nil t)
(setq top (point)) (re-search-forward "#\\+end_src" nil t)
(setq bottom (point))
(< top middle)
(< middle bottom)
(goto-char top)
(looking-at litorgy-src-block-regexp))))
(< top middle) (< middle bottom)
(goto-char top) (looking-at litorgy-src-block-regexp))))
(litorgy-parse-src-block-match)
(if (save-excursion ;; inline source block
(re-search-backward "[ \f\t\n\r\v]" nil t)