# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1205549725 0
# Node ID 1f109b306995dffd5ecf4c963ae92fb200ffde64
# Parent  5700422f13640b8e67528aa932e6b85aa16bc12b
(parse-time-string): Simplify.

diff -r 5700422f1364 -r 1f109b306995 lisp/calendar/parse-time.el
--- a/lisp/calendar/parse-time.el	Sat Mar 15 02:55:06 2008 +0000
+++ b/lisp/calendar/parse-time.el	Sat Mar 15 02:55:25 2008 +0000
@@ -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 @@
       (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))