FIX typos

This commit is contained in:
Nathan Dwarshuis 2022-05-03 19:17:27 -04:00
parent 6f936a43b9
commit 6aa65e4adf
1 changed files with 3 additions and 3 deletions

View File

@ -813,7 +813,7 @@ used for optimization."
(new-proj))) (new-proj)))
((equal o org-x-kw-next) (new-proj :proj-active)) ((equal o org-x-kw-next) (new-proj :proj-active))
((equal o org-x-kw-wait) (new-proj :proj-wait)) ((equal o org-x-kw-wait) (new-proj :proj-wait))
((equal o org-x-kw-hold) (new-proj :proj-hold)) ((equal o org-x-kw-hold) (new-proj :proj-held))
(t (org-x-dag-bs-error-kw "Task action" o))))) (t (org-x-dag-bs-error-kw "Task action" o)))))
(e (error "Pattern fail: %s" e)))))) (e (error "Pattern fail: %s" e))))))
(child-bss (child-bss
@ -2704,7 +2704,7 @@ FUTURE-LIMIT in a list."
(-when-let (priority (cl-case status (-when-let (priority (cl-case status
(:proj-active 4) (:proj-active 4)
(:proj-wait 3) (:proj-wait 3)
(:proj-hold 2) (:proj-held 2)
(:proj-stuck 1))) (:proj-stuck 1)))
(-when-let ((&plist :committed) (-when-let (ns (org-x-dag-id->ns it)) (-when-let ((&plist :committed) (-when-let (ns (org-x-dag-id->ns it))
(either-from-right ns nil))) (either-from-right ns nil)))
@ -3997,7 +3997,7 @@ FUTURE-LIMIT in a list."
"Active Project") "Active Project")
(`(:sp-proj :proj-wait) (`(:sp-proj :proj-wait)
"Waiting Project") "Waiting Project")
(`(:sp-proj :proj-hold) (`(:sp-proj :proj-held)
"Held Project") "Held Project")
(`(:sp-proj :proj-stuck) (`(:sp-proj :proj-stuck)
"Stuck Project") "Stuck Project")