(parse-time-string): Simplify.

1fa570af · Glenn Morris · 48dc6f9f · 1fa570af
Commit 1fa570af authored Mar 15, 2008 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

lisp/calendar/parse-time.el lisp/calendar/parse-time.el +3 -3

No files found.
--- a/lisp/calendar/parse-time.el
+++ b/lisp/calendar/parse-time.el
 ;;; 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))