Function: org-cmp-tag

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

Signature

(org-cmp-tag A B)

Documentation

Compare the string values of the first tags of A and B.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-agenda.el.gz
(defsubst org-cmp-tag (a b)
  "Compare the string values of the first tags of A and B."
  (let ((ta (car (last (get-text-property 1 'tags a))))
	(tb (car (last (get-text-property 1 'tags b)))))
    (cond ((not (or ta tb)) nil)
	  ((not ta) +1)
	  ((not tb) -1)
	  ((funcall (or org-tags-sort-function #'org-string<) ta tb) -1)
	  ((funcall (or org-tags-sort-function #'org-string<) tb ta) +1))))