forked from mirrors/org-mode
Fix clock regexps
* lisp/org-clock.el (org-clock-in): (org-clock-find-position): Remove erraneous space in regexp Patch by Joe Vornehm Jr. TINYCHANGE
This commit is contained in:
parent
b3a18bdea4
commit
73b1fdb965
|
@ -1115,7 +1115,7 @@ the clocking selection, associated with the letter `d'."
|
||||||
(cond
|
(cond
|
||||||
((and org-clock-in-resume
|
((and org-clock-in-resume
|
||||||
(looking-at
|
(looking-at
|
||||||
(concat "^[ \t]* " org-clock-string
|
(concat "^[ \t]*" org-clock-string
|
||||||
" \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}"
|
" \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}"
|
||||||
" *\\sw+\.? +[012][0-9]:[0-5][0-9]\\)\\][ \t]*$")))
|
" *\\sw+\.? +[012][0-9]:[0-5][0-9]\\)\\][ \t]*$")))
|
||||||
(message "Matched %s" (match-string 1))
|
(message "Matched %s" (match-string 1))
|
||||||
|
@ -1247,7 +1247,7 @@ line and position cursor in that line."
|
||||||
(goto-char beg)
|
(goto-char beg)
|
||||||
(when (and find-unclosed
|
(when (and find-unclosed
|
||||||
(re-search-forward
|
(re-search-forward
|
||||||
(concat "^[ \t]* " org-clock-string
|
(concat "^[ \t]*" org-clock-string
|
||||||
" \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}"
|
" \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}"
|
||||||
" *\\sw+ +[012][0-9]:[0-5][0-9]\\)\\][ \t]*$")
|
" *\\sw+ +[012][0-9]:[0-5][0-9]\\)\\][ \t]*$")
|
||||||
end t))
|
end t))
|
||||||
|
|
Loading…
Reference in New Issue