Function: diary-entry-compare

diary-entry-compare is a byte-compiled function defined in diary-lib.el.gz.

Signature

(diary-entry-compare E1 E2)

Documentation

Return t if E1 is earlier than E2.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/diary-lib.el.gz
          (t diary-unknown-time))))     ; unrecognizable

(defun diary-entry-compare (e1 e2)
  "Return t if E1 is earlier than E2."
  (or (calendar-date-compare e1 e2)
      (and (calendar-date-equal (car e1) (car e2))
           (let* ((ts1 (cadr e1)) (t1 (diary-entry-time ts1))
                  (ts2 (cadr e2)) (t2 (diary-entry-time ts2)))
             (or (< t1 t2)
                 (and (= t1 t2)
                      (string-lessp ts1 ts2)))))))