mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-24 23:32:52 +00:00
ditaa export: Improve a regular expression.
This commit is contained in:
parent
931e13d800
commit
f86ce238d7
|
@ -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)))
|
||||||
|
|
Loading…
Reference in a new issue