mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 15:46:27 +00:00
Code Releases Activity

ditaa export: Improve a regular expression.

Browse source
This commit is contained in:
Carsten Dominik 2009-04-17 17:26:53 +02:00
parent 931e13d800
commit f86ce238d7
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
contrib/lisp/org-exp-blocks.el
View file

@ -137,7 +137,7 @@ specified in BLOCKS which default to the value of
(goto-char (point-min)) (goto-char (point-min))
(setf start (point)) (setf start (point))
(while (re-search-forward (while (re-search-forward
"^#\\+begin_\\(\\S-+\\)[ \t]*\\(.*\\)?[\r\n]\\([^\000]*?\\)#\\+end_\\S-*[\r\n]" nil t) "^#\\+begin_\\(\\S-+\\)[ \t]*\\(.*\\)?[\r\n]\\([^\000]*?\\)#\\+end_\\S-+.*" nil t)
(save-match-data (setf type (intern (match-string 1)))) (save-match-data (setf type (intern (match-string 1))))
(unless (memq type types) (setf types (cons type types))) (unless (memq type types) (setf types (cons type types)))
(setf end (save-match-data (match-beginning 0))) (setf end (save-match-data (match-beginning 0)))