فهرست منبع

Repeating entries: Record last repeat time in LAST_REPEAT property

Carsten Dominik 16 سال پیش
والد
کامیت
9b823a4586
2فایلهای تغییر یافته به همراه4 افزوده شده و 0 حذف شده
  1. 2 0
      lisp/ChangeLog
  2. 2 0
      lisp/org.el

+ 2 - 0
lisp/ChangeLog

@@ -13,6 +13,8 @@
 	(org-hide-block-toggle): New functions.
 	(org-edit-src-exit): Do not quote lines starting with # and no +
 	behind it.
+	(org-auto-repeat-maybe): Add LAST_REPEAT properter for a repeating
+	entry.
 
 2009-05-30  Carsten Dominik  <carsten.dominik@gmail.com>
 

+ 2 - 0
lisp/org.el

@@ -9927,6 +9927,8 @@ This function is run automatically after each state change to a DONE state."
     (when repeat
       (if (eq org-log-repeat t) (setq org-log-repeat 'state))
       (org-todo (if (eq interpret 'type) last-state head))
+      (org-entry-put nil "LAST_REPEAT" (format-time-string
+					(org-time-stamp-format t t)))
       (when org-log-repeat
 	(if (or (memq 'org-add-log-note (default-value 'post-command-hook))
 		(memq 'org-add-log-note post-command-hook))