Fix 434103

* lisp/org.el (org-log-into-drawer): Fix
  04f6830a46e54db23afbe3c94de38a22c3.
This commit is contained in:
Nicolas Goaziou 2014-12-15 13:07:10 +01:00
parent 90c047d2ff
commit eac147621e
1 changed files with 6 additions and 6 deletions

View File

@ -2972,12 +2972,12 @@ This is the value of `org-log-into-drawer'. However, if the
current entry has or inherits a LOG_INTO_DRAWER property, it will
be used instead of the default value."
(let ((p (org-entry-get nil "LOG_INTO_DRAWER" 'inherit t)))
(cond
((not p) org-log-into-drawer)
((equal p "nil") nil)
((equal p "t") "LOGBOOK")
((stringp p) p)
(p "LOGBOOK"))))
(cond ((equal p "nil") nil)
((equal p "t") "LOGBOOK")
((stringp p) p)
(p "LOGBOOK")
((stringp org-log-into-drawer) org-log-into-drawer)
(org-log-into-drawer "LOGBOOK"))))
(defcustom org-log-state-notes-insert-after-drawers nil
"Non-nil means insert state change notes after any drawers in entry.