Merge branch 'maint'
This commit is contained in:
commit
e1e3cf0189
|
@ -950,7 +950,7 @@ If necessary, clock-out of the currently active clock."
|
||||||
(when drawer
|
(when drawer
|
||||||
(org-with-wide-buffer
|
(org-with-wide-buffer
|
||||||
(let ((drawer-re (format "^[ \t]*:%s:[ \t]*$"
|
(let ((drawer-re (format "^[ \t]*:%s:[ \t]*$"
|
||||||
(regexp-quote (or drawer "LOGBOOK"))))
|
(regexp-quote (if (stringp drawer) drawer "LOGBOOK"))))
|
||||||
(beg (save-excursion (outline-back-to-heading t) (point))))
|
(beg (save-excursion (outline-back-to-heading t) (point))))
|
||||||
(catch 'exit
|
(catch 'exit
|
||||||
(while (re-search-backward drawer-re beg t)
|
(while (re-search-backward drawer-re beg t)
|
||||||
|
|
Loading…
Reference in New Issue