mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-19 08:18:55 +00:00
Merge branch 'maint'
This commit is contained in:
commit
2608bed9ea
|
@ -837,7 +837,7 @@ because you will take care of it on the day when scheduled."
|
|||
:group 'org-agenda-daily/weekly
|
||||
:version "24.1"
|
||||
:type '(choice
|
||||
(const :tag "Alwas show prewarning" nil)
|
||||
(const :tag "Always show prewarning" nil)
|
||||
(const :tag "Remove prewarning if entry is scheduled" t)
|
||||
(integer :tag "Restart prewarning N days before deadline")))
|
||||
|
||||
|
@ -2895,7 +2895,7 @@ L Timeline for current buffer # List stuck projects (!=configure)
|
|||
(widen)
|
||||
(let ((inhibit-read-only t))
|
||||
(add-text-properties (point-min) (point-max)
|
||||
`(org-serie t org-serie-redo-cmd ,redo)))
|
||||
`(org-series t org-series-redo-cmd ,redo)))
|
||||
(setq org-agenda-redo-command redo)
|
||||
(goto-char (point-min)))
|
||||
(org-agenda-fit-window-to-buffer)
|
||||
|
@ -4134,7 +4134,7 @@ given in `org-agenda-start-on-weekday'."
|
|||
`(org-agenda-type agenda
|
||||
org-last-args (,arg ,start-day ,span)
|
||||
org-redo-cmd ,org-agenda-redo-command
|
||||
org-serie-cmd ,org-cmd))
|
||||
org-series-cmd ,org-cmd))
|
||||
(if (eq org-agenda-show-log-scoped 'clockcheck)
|
||||
(org-agenda-show-clocking-issues))
|
||||
(org-agenda-finalize)
|
||||
|
@ -4455,7 +4455,7 @@ in `org-agenda-text-search-extra-files'."
|
|||
`(org-agenda-type search
|
||||
org-last-args (,todo-only ,string ,edit-at)
|
||||
org-redo-cmd ,org-agenda-redo-command
|
||||
org-serie-cmd ,org-cmd))
|
||||
org-series-cmd ,org-cmd))
|
||||
(org-agenda-finalize)
|
||||
(setq buffer-read-only t))))
|
||||
|
||||
|
@ -4591,7 +4591,7 @@ for a keyword. A numeric prefix directly selects the Nth keyword in
|
|||
`(org-agenda-type todo
|
||||
org-last-args ,arg
|
||||
org-redo-cmd ,org-agenda-redo-command
|
||||
org-serie-cmd ,org-cmd))
|
||||
org-series-cmd ,org-cmd))
|
||||
(org-agenda-finalize)
|
||||
(setq buffer-read-only t))))
|
||||
|
||||
|
@ -4685,7 +4685,7 @@ The prefix arg TODO-ONLY limits the search to TODO entries."
|
|||
`(org-agenda-type tags
|
||||
org-last-args (,todo-only ,match)
|
||||
org-redo-cmd ,org-agenda-redo-command
|
||||
org-serie-cmd ,org-cmd))
|
||||
org-series-cmd ,org-cmd))
|
||||
(org-agenda-finalize)
|
||||
(setq buffer-read-only t))))
|
||||
|
||||
|
@ -6846,7 +6846,7 @@ Org-mode buffers visited directly by the user will not be touched."
|
|||
(org-agenda-Quit))
|
||||
|
||||
(defun org-agenda-kill-all-agenda-buffers ()
|
||||
"Kill all buffers in `org-agena-mode'.
|
||||
"Kill all buffers in `org-agenda-mode'.
|
||||
This is used when toggling sticky agendas. You can also explicitly invoke it
|
||||
with `C-c a C-k'."
|
||||
(interactive)
|
||||
|
@ -6886,20 +6886,20 @@ in the agenda."
|
|||
(lprops (get 'org-agenda-redo-command 'org-lprops))
|
||||
(redo-cmd (get-text-property p 'org-redo-cmd))
|
||||
(last-args (get-text-property p 'org-last-args))
|
||||
(org-agenda-overriding-cmd (get-text-property p 'org-serie-cmd))
|
||||
(org-agenda-overriding-cmd (get-text-property p 'org-series-cmd))
|
||||
(org-agenda-overriding-cmd-arguments
|
||||
(unless (eq all t)
|
||||
(cond ((listp last-args)
|
||||
(cons (or cpa (car last-args)) (cdr last-args)))
|
||||
((stringp last-args)
|
||||
last-args))))
|
||||
(serie-redo-cmd (get-text-property p 'org-serie-redo-cmd)))
|
||||
(series-redo-cmd (get-text-property p 'org-series-redo-cmd)))
|
||||
(put 'org-agenda-tag-filter :preset-filter nil)
|
||||
(put 'org-agenda-category-filter :preset-filter nil)
|
||||
(and cols (org-columns-quit))
|
||||
(message "Rebuilding agenda buffer...")
|
||||
(if serie-redo-cmd
|
||||
(eval serie-redo-cmd)
|
||||
(if series-redo-cmd
|
||||
(eval series-redo-cmd)
|
||||
(org-let lprops '(eval redo-cmd)))
|
||||
(setq org-agenda-undo-list nil
|
||||
org-agenda-pending-undo-list nil)
|
||||
|
@ -7298,7 +7298,7 @@ Negative selection means regexp must not match for selection of an entry."
|
|||
(or (and cnt (text-property-any (point-min) (point-max) 'org-day-cnt cnt))
|
||||
(text-property-any (point-min) (point-max) 'org-today t)
|
||||
(text-property-any (point-min) (point-max) 'org-agenda-type 'agenda)
|
||||
(and (get-text-property (min (1- (point-max)) (point)) 'org-serie)
|
||||
(and (get-text-property (min (1- (point-max)) (point)) 'org-series)
|
||||
(org-agenda-goto-block-beginning))
|
||||
(point-min))))
|
||||
|
||||
|
@ -7353,7 +7353,7 @@ With prefix ARG, go forward that many times the current span."
|
|||
;; `cmd' may have been set by `org-agenda-run-series' which
|
||||
;; uses `org-agenda-overriding-cmd' to decide whether
|
||||
;; overriding is allowed for `cmd'
|
||||
(get-text-property (min (1- (point-max)) (point)) 'org-serie-cmd))
|
||||
(get-text-property (min (1- (point-max)) (point)) 'org-series-cmd))
|
||||
(org-agenda-overriding-arguments
|
||||
(list (car args) sd span)))
|
||||
(org-agenda-redo)
|
||||
|
@ -7446,7 +7446,7 @@ SPAN may be `day', `week', `month', `year'."
|
|||
org-starting-day))
|
||||
(sd (org-agenda-compute-starting-span sd span n))
|
||||
(org-agenda-overriding-cmd
|
||||
(get-text-property (min (1- (point-max)) (point)) 'org-serie-cmd))
|
||||
(get-text-property (min (1- (point-max)) (point)) 'org-series-cmd))
|
||||
(org-agenda-overriding-arguments
|
||||
(list (car args) sd span)))
|
||||
(org-agenda-redo)
|
||||
|
|
Loading…
Reference in a new issue