Mercurial > emacs
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 |