Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2015-08-13 22:53:27 +02:00
commit e1e3cf0189
1 changed files with 1 additions and 1 deletions

View File

@ -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)