Function: org-cmp-effort

org-cmp-effort is a byte-compiled function defined in org-agenda.el.gz.

Signature

(org-cmp-effort A B)

Documentation

Compare the effort values of string A and B.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-agenda.el.gz
(defsubst org-cmp-effort (a b)
  "Compare the effort values of string A and B."
  (let* ((def (if org-agenda-sort-noeffort-is-high 32767 -1))
	 ;; `effort-minutes' property is not directly accessible from
	 ;; the strings, but is stored as a property in `txt'.
	 (ea (or (get-text-property
		  0 'effort-minutes (get-text-property 0 'txt a))
		 def))
	 (eb (or (get-text-property
		  0 'effort-minutes (get-text-property 0 'txt b))
		 def)))
    (cond ((> ea eb) +1)
	  ((< ea eb) -1))))