comparison lisp/calendar/parse-time.el @ 104612:c220a29e75fd

Define risky-local-variable property here rather than in files.el.
author Glenn Morris <rgm@gnu.org>
date Wed, 26 Aug 2009 03:07:25 +0000
parents d38c249bcfee
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
104611:d3071821d3ea 104612:c220a29e75fd
173 (= (aref parse-time-elt 1) ?:))) 173 (= (aref parse-time-elt 1) ?:)))
174 [0 1] [2 4] [5 7]) 174 [0 1] [2 4] [5 7])
175 ((5) (50 110) ,#'(lambda () (+ 1900 parse-time-elt))) 175 ((5) (50 110) ,#'(lambda () (+ 1900 parse-time-elt)))
176 ((5) (0 49) ,#'(lambda () (+ 2000 parse-time-elt)))) 176 ((5) (0 49) ,#'(lambda () (+ 2000 parse-time-elt))))
177 "(slots predicate extractor...)") 177 "(slots predicate extractor...)")
178 ;;;###autoload(put 'parse-time-rules 'risky-local-variable t)
178 179
179 ;;;###autoload 180 ;;;###autoload
180 (defun parse-time-string (string) 181 (defun parse-time-string (string)
181 "Parse the time-string STRING into (SEC MIN HOUR DAY MON YEAR DOW DST TZ). 182 "Parse the time-string STRING into (SEC MIN HOUR DAY MON YEAR DOW DST TZ).
182 The values are identical to those of `decode-time', but any values that are 183 The values are identical to those of `decode-time', but any values that are