org-lparse.el: Fix export of timestamps that occur as list items
* contrib/lisp/org-lparse.el (org-lparse-handle-time-stamps): Space is significant. Don't gobble it.
This commit is contained in:
parent
ead1bb1bbd
commit
68ccd547e5
|
@ -1338,7 +1338,7 @@ for further information."
|
||||||
(while (string-match org-maybe-keyword-time-regexp s)
|
(while (string-match org-maybe-keyword-time-regexp s)
|
||||||
(or b (setq b (substring s 0 (match-beginning 0))))
|
(or b (setq b (substring s 0 (match-beginning 0))))
|
||||||
(setq r (concat
|
(setq r (concat
|
||||||
r (substring s 0 (match-beginning 0))
|
r (substring s 0 (match-beginning 0)) " "
|
||||||
(org-lparse-format
|
(org-lparse-format
|
||||||
'FONTIFY
|
'FONTIFY
|
||||||
(concat
|
(concat
|
||||||
|
@ -1346,6 +1346,7 @@ for further information."
|
||||||
(org-lparse-format
|
(org-lparse-format
|
||||||
'FONTIFY
|
'FONTIFY
|
||||||
(match-string 1 s) "timestamp-kwd"))
|
(match-string 1 s) "timestamp-kwd"))
|
||||||
|
" "
|
||||||
(org-lparse-format
|
(org-lparse-format
|
||||||
'FONTIFY
|
'FONTIFY
|
||||||
(substring (org-translate-time (match-string 3 s)) 1 -1)
|
(substring (org-translate-time (match-string 3 s)) 1 -1)
|
||||||
|
|
Loading…
Reference in New Issue