فهرست منبع

Merge branch 'maint'

Nicolas Goaziou 8 سال پیش
والد
کامیت
a842ae1d38
1فایلهای تغییر یافته به همراه6 افزوده شده و 4 حذف شده
  1. 6 4
      lisp/org-agenda.el

+ 6 - 4
lisp/org-agenda.el

@@ -9830,11 +9830,13 @@ The prefix arg is passed through to the command if possible."
 		 (c1 (if (eq action ?s) 'org-agenda-schedule
 		       'org-agenda-deadline)))
 	    ;; Make sure to not prompt for a note when bulk
-	    ;; rescheduling as Org cannot cope with simultaneous Org.
-	    ;; Besides, it could be annoying depending on the number
-	    ;; of items re-scheduled.
+	    ;; rescheduling as Org cannot cope with simultaneous
+	    ;; notes.  Besides, it could be annoying depending on the
+	    ;; number of items re-scheduled.
 	    (setq cmd `(eval '(let ((org-log-reschedule
-				     (and org-log-reschedule 'time)))
+				     (and org-log-reschedule 'time))
+				    (org-log-redeadline
+				     (and org-log-redeadline 'time)))
 				(,c1 arg ,time))))))
 
 	 ((equal action ?S)