|
@@ -2522,7 +2522,7 @@ Otherwise, return nil."
|
|
(let ((re (concat "[ \t]*" org-clock-string
|
|
(let ((re (concat "[ \t]*" org-clock-string
|
|
" *[[<]\\([^]>]+\\)[]>]\\(-+[[<]\\([^]>]+\\)[]>]"
|
|
" *[[<]\\([^]>]+\\)[]>]\\(-+[[<]\\([^]>]+\\)[]>]"
|
|
"\\([ \t]*=>.*\\)?\\)?"))
|
|
"\\([ \t]*=>.*\\)?\\)?"))
|
|
- ts te h m s)
|
|
|
|
|
|
+ ts te h m s sign)
|
|
(cond
|
|
(cond
|
|
((not (looking-at re))
|
|
((not (looking-at re))
|
|
nil)
|
|
nil)
|