mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 20:37:51 +00:00
Code Releases Activity

org-agenda: Small refactoring

Browse source 
* lisp/org-agenda.el (org-agenda-deadline-face): Small refactoring.
This commit is contained in:
Nicolas Goaziou 2016-12-02 10:36:32 +01:00
parent e336f39ce7
commit 6d5e207c7d
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/org-agenda.el
View file

@ -6185,10 +6185,7 @@ specification like [h]h:mm."
(defun org-agenda-deadline-face (fraction)
"Return the face to displaying a deadline item.
FRACTION is what fraction of the head-warning time has passed."
(let ((faces org-agenda-deadline-faces) f)
(catch 'exit
(while (setq f (pop faces))
(if (>= fraction (car f)) (throw 'exit (cdr f)))))))
(assoc-default fraction org-agenda-deadline-faces #'<=))
(defun org-agenda-get-scheduled (&optional deadlines with-hour)
"Return the scheduled information for agenda display.