Remove effort property cache

* lisp/org-compat.el (org-refresh-effort-properties): Obsolete.
* lisp/org-clock.el (org-clock-in):
* lisp/org.el (org-default-properties):
(org-edit-agenda-file-list)
(org-set-property-and-value): Remove unnecessary calls to
`org-refresh-effort-properties'.
(org-agenda-ignore-properties): Update the allowed values.
This commit is contained in:
Ihor Radchenko 2023-05-29 12:48:14 +03:00
parent 2efc7fcfdc
commit ebbdd67a2a
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
3 changed files with 3 additions and 17 deletions

View File

@ -1313,8 +1313,6 @@ time as the start time. See `org-clock-continuously' to make this
the default behavior."
(interactive "P")
(setq org-clock-notification-was-shown nil)
(unless org-element-use-cache
(org-refresh-effort-properties))
(catch 'abort
(let ((interrupting (and (not org-clock-resolving-clocks-due-to-idleness)
(org-clocking-p)))

View File

@ -583,6 +583,7 @@ Counting starts at 1."
'org--math-p "9.7")
(make-obsolete 'org-refresh-category-properties "no longer used" "9.7")
(make-obsolete 'org-refresh-effort-properties "no longer used" "9.7")
(defun org-compatible-face (inherits specs)
"Make a compatible face specification.

View File

@ -12468,10 +12468,6 @@ variables is set."
;; Maybe update the effort value:
(unless (equal current value)
(org-entry-put nil org-effort-property value))
(unless (org-element--cache-active-p)
(org-refresh-property '((effort . identity)
(effort-minutes . org-duration-to-minutes))
value))
(when (equal (org-get-heading t t t t)
(bound-and-true-p org-clock-current-task))
(setq org-clock-effort value)
@ -13383,11 +13379,6 @@ completion."
(beginning-of-line 1)
(skip-chars-forward " \t")
(when (equal prop org-effort-property)
(unless (org-element--cache-active-p)
(org-refresh-property
'((effort . identity)
(effort-minutes . org-duration-to-minutes))
nval))
(when (string= org-clock-current-task heading)
(setq org-clock-effort nval)
(org-clock-update-mode-line)))
@ -15112,10 +15103,9 @@ Properties are used to prepare buffers for effort estimates,
appointments, statistics and subtree-local categories.
If you don't use these in the agenda, you can add them to this
list and agenda building will be a bit faster.
The value is a list, with zero or more of the symbols `effort', `appt',
or `stats'."
The value is a list, with zero or more of the symbols `appt' or
`stats'."
:type '(set :greedy t
(const effort)
(const appt)
(const stats))
:version "26.1"
@ -15404,9 +15394,6 @@ When a buffer is unmodified, it is just killed. When modified, it is saved
(org-set-regexps-and-options 'tags-only)
(or (memq 'stats org-agenda-ignore-properties)
(org-refresh-stats-properties))
(or (memq 'effort org-agenda-ignore-properties)
(unless org-element-use-cache
(org-refresh-effort-properties)))
(or (memq 'appt org-agenda-ignore-properties)
(org-refresh-properties "APPT_WARNTIME" 'org-appt-warntime))
(dolist (el org-todo-keywords-1)