|
@@ -7729,8 +7729,9 @@ Negative selection means regexp must not match for selection of an entry."
|
|
|
(args (get-text-property (min (1- (point-max)) (point)) 'org-last-args))
|
|
|
(0-arg (or current-prefix-arg (car args)))
|
|
|
(2-arg (nth 2 args))
|
|
|
+ (with-hour-p (nth 4 org-agenda-redo-command))
|
|
|
(newcmd (list 'org-agenda-list 0-arg date
|
|
|
- (org-agenda-span-to-ndays 2-arg)))
|
|
|
+ (org-agenda-span-to-ndays 2-arg) with-hour-p))
|
|
|
(newargs (cdr newcmd))
|
|
|
(inhibit-read-only t)
|
|
|
org-agenda-sticky)
|