Lines Matching defs:year
41 (defvar displayed-year)
55 (defun islamic-calendar-leap-year-p (year)
56 "Returns t if YEAR is a leap year on the Islamic calendar."
57 (memq (% year 30)
60 (defun islamic-calendar-last-day-of-month (month year)
65 (t (if (islamic-calendar-leap-year-p year) 30 29))))
68 "Return the day number within the year of the Islamic date DATE."
81 (year (extract-calendar-year date))
82 (y (% year 30))
88 (+ (islamic-calendar-day-number date);; days so far this year
89 (* (1- year) 354) ;; days in all non-leap years
90 (* 11 (/ year 30)) ;; leap days in complete cycles
95 "Compute the Islamic date (month day year) corresponding to absolute DATE.
102 (year ;; Search forward from the approximation.
114 m year)
115 year)))
119 (1- (calendar-absolute-from-islamic (list month 1 year))))))
120 (list month day year))))
131 (if (< (extract-calendar-year islamic-date) 1)
147 (year (calendar-read
148 "Islamic calendar year (>0): "
151 (extract-calendar-year
162 (last (islamic-calendar-last-day-of-month month year))
166 (list (list month day year))))
181 Gregorian date in the form of the list (((month day year) STRING)). Returns
185 (list displayed-month 15 displayed-year))))
187 (y (extract-calendar-year islamic-date))
219 (year (extract-calendar-year idate)))
238 (year
240 "\\*\\|0*" (int-to-string year)
241 (if abbreviated-calendar-year
242 (concat "\\|" (int-to-string (% year 100)))
307 (year "[0-9]+\\|\\*")
317 (y-pos (- l (length (memq 'year date-form))))
358 abbreviated-calendar-year)
360 (extract-calendar-year
387 (defun mark-islamic-calendar-date-pattern (month day year)
393 (if (/= 0 year)
397 (list month day year)))))
400 ;; Month and day in any year--this taken from the holiday stuff.
403 (list displayed-month 15 displayed-year))))
405 (y (extract-calendar-year islamic-date))
420 (y displayed-year)
435 (i-year (extract-calendar-year i-date)))
440 (or (zerop year)
441 (= year i-year))
480 For the day of the Islamic year corresponding to the date indicated by point.