os.el: fix DEADLINE timestamp.
authorAurélien Aptel <k@b0.cx>
Fri, 10 Aug 2012 15:08:16 +0000 (17:08 +0200)
committerAurélien Aptel <k@b0.cx>
Fri, 10 Aug 2012 15:08:16 +0000 (17:08 +0200)
os.el

diff --git a/os.el b/os.el
index f2846f3..44434ed 100644 (file)
--- a/os.el
+++ b/os.el
@@ -378,13 +378,12 @@ Return ELEM if it was added, nil otherwise."
                                (string< (car b) (car a)))))
 
       `(headline
-        (:title ,(if dtime
-                     (list
-                      (format "%s DEADLINE: " title)
-                      `(timestamp
-                        (:value
-                         ,(format-time-string (org-time-stamp-format)))))
-                   title)
+        (:title ,(concat
+                  title
+                  (when dtime
+                    (concat
+                     " DEADLINE: "
+                     (format-time-string (org-time-stamp-format) dtime))))
                 :level 2
                 :todo-type todo
                 :todo-keyword ,(upcase (symbol-name (os-get-prop :status b))))