Mercurial > emacs

comparison src/editfns.c @ 11477:5a52cf3e5f11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Comment change.
author Richard M. Stallman <rms@gnu.org>
date Tue, 18 Apr 1995 03:45:52 +0000
parents 7917226c3ea9
children 0652683b14e6
comparison
equal deleted inserted replaced
11476:7917226c3ea9 11477:5a52cf3e5f11
758 CHECK_NATNUM (month, 4); 758 CHECK_NATNUM (month, 4);
759 CHECK_NATNUM (year, 5); 759 CHECK_NATNUM (year, 5);
760 760
761 fullyear = XINT (year); 761 fullyear = XINT (year);
762 762
763 /* Adjust incoming datespec to epoch = March 1, year 0. */ 763 /* Adjust incoming datespec to epoch = March 1, year 0.
764 The "date" March 1, year 0, is an abstraction used purely for its
765 computational convenience; year 0 never existed. */
764 mon = XINT (month) - 1 + 10; 766 mon = XINT (month) - 1 + 10;
765 fullyear += mon/12 - 1; 767 fullyear += mon/12 - 1;
766 mon %= 12; 768 mon %= 12;
767 769
768 days = XINT (day) - 1; /* day of month */ 770 days = XINT (day) - 1; /* day of month */