Mercurial > emacs

comparison lisp/calendar/time-date.el @ 79501:5bd82d58227e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Ari Roponen <ari.roponen at gmail.com> (tiny change) (encode-time-value): Doc fix.
author Glenn Morris <rgm@gnu.org>
date Thu, 29 Nov 2007 04:46:12 +0000
parents 93e11478c954
children 392f18d2007a
comparison
equal deleted inserted replaced
79500:f7a16327e6a0 79501:5bd82d58227e
84 `(progn ,@body))) 84 `(progn ,@body)))
85 85
86 (defun encode-time-value (high low micro type) 86 (defun encode-time-value (high low micro type)
87 "Encode HIGH, LOW, and MICRO into a time value of type TYPE. 87 "Encode HIGH, LOW, and MICRO into a time value of type TYPE.
88 Type 0 is the cons cell (HIGH . LOW), type 1 is the list (HIGH LOW), 88 Type 0 is the cons cell (HIGH . LOW), type 1 is the list (HIGH LOW),
89 and type 3 is the list (HIGH LOW MICRO)." 89 and type 2 is the list (HIGH LOW MICRO)."
90 (cond 90 (cond
91 ((eq type 0) (cons high low)) 91 ((eq type 0) (cons high low))
92 ((eq type 1) (list high low)) 92 ((eq type 1) (list high low))
93 ((eq type 2) (list high low micro)))) 93 ((eq type 2) (list high low micro))))
94 94