*** empty log message ***

[gnus] / lisp / parse-time.el

diff --git a/lisp/parse-time.el b/lisp/parse-time.el
index e6725f3..e25abbb 100644 (file)
--- a/lisp/parse-time.el
+++ b/lisp/parse-time.el
@@ -36,13 +36,17 @@
 
 ;;; Code:
 
-(require 'cl)                          ;and ah ain't kiddin' 'bout it
+(eval-when-compile (require 'cl))              ;and ah ain't kiddin' 'bout it
 
 (put 'parse-time-syntax 'char-table-extra-slots 0)
 
 (defvar parse-time-syntax (make-char-table 'parse-time-syntax))
 (defvar parse-time-digits (make-char-table 'parse-time-syntax))
 
+;; Byte-compiler warnings
+(defvar elt)
+(defvar val)
+
 (unless (aref parse-time-digits ?0)
   (loop for i from ?0 to ?9
        do (set-char-table-range parse-time-digits i (- i ?0))))
@@ -138,7 +142,7 @@
      ,#'(lambda () (car val))
      ,#'(lambda () (cadr val)))
     ((8)
-     ,#'(lambda () 
+     ,#'(lambda ()
          (and (stringp elt)
               (= 5 (length elt))
               (or (= (aref elt 0) ?+) (= (aref elt 0) ?-))))