Mercurial > emacs

comparison lisp/calendar/time-date.el @ 79502:392f18d2007a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(with-decoded-time-value): Doc fix.
author Glenn Morris <rgm@gnu.org>
date Thu, 29 Nov 2007 04:46:34 +0000
parents 5bd82d58227e
children 974a828870fe 53108e6cea98
comparison
equal deleted inserted replaced
79501:5bd82d58227e 79502:392f18d2007a
51 The time value TIME-VALUE is decoded and the result it bound to 51 The time value TIME-VALUE is decoded and the result it bound to
52 the symbols HIGH-SYMBOL, LOW-SYMBOL and MICRO-SYMBOL. 52 the symbols HIGH-SYMBOL, LOW-SYMBOL and MICRO-SYMBOL.
53 53
54 The optional TYPE-SYMBOL is bound to the type of the time value. 54 The optional TYPE-SYMBOL is bound to the type of the time value.
55 Type 0 is the cons cell (HIGH . LOW), type 1 is the list (HIGH 55 Type 0 is the cons cell (HIGH . LOW), type 1 is the list (HIGH
56 LOW), and type 3 is the list (HIGH LOW MICRO)." 56 LOW), and type 2 is the list (HIGH LOW MICRO)."
57 (declare (indent 1) 57 (declare (indent 1)
58 (debug ((&rest (symbolp symbolp symbolp &or [symbolp form] form)) 58 (debug ((&rest (symbolp symbolp symbolp &or [symbolp form] form))
59 body))) 59 body)))
60 (if varlist 60 (if varlist
61 (let* ((elt (pop varlist)) 61 (let* ((elt (pop varlist))