(parse-time-string): Simplify.

diff --git a/lisp/calendar/parse-time.el b/lisp/calendar/parse-time.el
index 036f32f46f224ecb8a0b7db08bdfd0e4e494889b..6531d3b19c155250017e8dbeb9f8d3bda2598376 100644 (file)
--- a/lisp/calendar/parse-time.el
+++ b/lisp/calendar/parse-time.el
@@ -1,7 +1,7 @@
 ;;; parse-time.el --- parsing time strings
 
-;; Copyright (C) 1996, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
-;;   Free Software Foundation, Inc.
+;; Copyright (C) 1996, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008  Free Software Foundation, Inc.
 
 ;; Author: Erik Naggum <erik@naggum.no>
 ;; Keywords: util
@@ -187,7 +187,7 @@ unknown are returned as nil."
       (let ((parse-time-elt (pop temp))
            (rules parse-time-rules)
            (exit nil))
-       (while (and (not (null rules)) (not exit))
+       (while (and rules (not exit))
          (let* ((rule (pop rules))
                 (slots (pop rule))
                 (predicate (pop rule))