diff options
author | Kyle Meyer <kyle@kyleam.com> | 2017-08-14 16:26:14 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2017-08-14 16:27:46 -0400 |
commit | b900a85fe92d4373c4ebc9f40732cfc92dbea62b (patch) | |
tree | cdf76303297b5788d9629f5633c338fd267e2286 | |
parent | c8ade76ca2d579e9415cb3588605a6c98803f413 (diff) | |
download | org-mode-b900a85fe92d4373c4ebc9f40732cfc92dbea62b.tar.gz |
org-agenda: Fix prefix argument handling for bulk actions
* lisp/org-agenda.el (org-agenda-bulk-action): Fix the prefix argument
checks introduced by 4f578a3f7 to avoid inadvertently setting
org-agenda-schedule or org-agenda-deadline's time argument to ARG's
value when ARG is non-nil.
Reported-by: Julien Cubizolles <j.cubizolles@free.fr>
<https://lists.gnu.org/archive/html/emacs-orgmode/2017-08/msg00263.html>
-rw-r--r-- | lisp/org-agenda.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 93148d0..a661a78 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9895,9 +9895,9 @@ The prefix arg is passed through to the command if possible." (?s (let ((time - (or arg - (org-read-date nil nil nil "(Re)Schedule to" - org-overriding-default-time)))) + (and (not arg) + (org-read-date nil nil nil "(Re)Schedule to" + org-overriding-default-time)))) ;; Make sure to not prompt for a note when bulk ;; rescheduling as Org cannot cope with simultaneous notes. ;; Besides, it could be annoying depending on the number of @@ -9908,9 +9908,9 @@ The prefix arg is passed through to the command if possible." (org-agenda-schedule arg ,time)))))) (?d (let ((time - (or arg - (org-read-date nil nil nil "(Re)Set Deadline to" - org-overriding-default-time)))) + (and (not arg) + (org-read-date nil nil nil "(Re)Set Deadline to" + org-overriding-default-time)))) ;; Make sure to not prompt for a note when bulk ;; rescheduling as Org cannot cope with simultaneous ;; notes. Besides, it could be annoying depending on the |