Mercurial > emacs
comparison lisp/gnus/parse-time.el @ 19489:e8c4bdc27fc2
Require cl only at compile time.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 23 Aug 1997 18:30:53 +0000 |
| parents | e6935c08cf0b |
| children | a0e2fa7d8bb7 |
comparison
equal
deleted
inserted
replaced
| 19488:25a37a54148f | 19489:e8c4bdc27fc2 |
|---|---|
| 34 ;; string are returned as nil. `encode-time' may be applied on these | 34 ;; string are returned as nil. `encode-time' may be applied on these |
| 35 ;; valuse to obtain an internal time value. | 35 ;; valuse to obtain an internal time value. |
| 36 | 36 |
| 37 ;;; Code: | 37 ;;; Code: |
| 38 | 38 |
| 39 (require 'cl) ;and ah ain't kiddin' 'bout it | 39 (eval-when-compile (require 'cl)) ;and ah ain't kiddin' 'bout it |
| 40 | 40 |
| 41 (put 'parse-time-syntax 'char-table-extra-slots 0) | 41 (put 'parse-time-syntax 'char-table-extra-slots 0) |
| 42 | 42 |
| 43 (defvar parse-time-syntax (make-char-table 'parse-time-syntax)) | 43 (defvar parse-time-syntax (make-char-table 'parse-time-syntax)) |
| 44 (defvar parse-time-digits (make-char-table 'parse-time-syntax)) | 44 (defvar parse-time-digits (make-char-table 'parse-time-syntax)) |