diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-12-03 15:24:40 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-12-03 15:24:40 +0100 |
commit | 83249b668e4d2ef73d7591972c762b2fa1ed7ef4 (patch) | |
tree | 7ef4d50b8fc4f1d6ed25e974eb10682abd0357e2 | |
parent | dcf64c7ee338d4e50a95427848bc8650184cd9de (diff) | |
download | org-mode-83249b668e4d2ef73d7591972c762b2fa1ed7ef4.tar.gz |
org-clock: Fix clocking when `org-clock-into-drawer' is a number
* lisp/org-clock.el (org-clock-find-position): Check if
`org-clock-into-drawer' is a number when inserting the first clock.
Reported-by: Rainer Stengele <rainer.stengele@online.de>
<http://permalink.gmane.org/gmane.emacs.orgmode/93128>
-rw-r--r-- | lisp/org-clock.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 46540d2..a395813 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1473,7 +1473,9 @@ line and position cursor in that line." (forward-line)) (unless (bolp) (insert "\n")) ;; Create a new drawer if necessary. - (when org-clock-into-drawer + (when (and org-clock-into-drawer + (or (not (wholenump org-clock-into-drawer)) + (< org-clock-into-drawer 2))) (let ((beg (point))) (insert ":" drawer ":\n:END:\n") (org-indent-region beg (point)) |