# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1164637971 0
# Node ID dab474dc1f0039203db9aae549dd863466f65e0c
# Parent  27de5ea279da076b269bba1c11b10704411b9c83
Fix comment and obsolescence string for old functions.
Use `dolist' instead of `while'.

diff -r 27de5ea279da -r dab474dc1f00 lisp/time-stamp.el
--- a/lisp/time-stamp.el	Mon Nov 27 14:12:34 2006 +0000
+++ b/lisp/time-stamp.el	Mon Nov 27 14:32:51 2006 +0000
@@ -710,23 +710,16 @@
 ;;; Some functions used in time-stamp-format
 
 ;;; These functions have been obsolete since 1995
-;;; and will be removed in Emacs 22.
+;;; and will be removed in a future Emacs release.
 ;;; Meanwhile, discourage other packages from using them.
-(let ((obsolete-functions '(time-stamp-month-dd-yyyy
-			    time-stamp-dd/mm/yyyy
-			    time-stamp-mon-dd-yyyy
-			    time-stamp-dd-mon-yy
-			    time-stamp-yy/mm/dd
-			    time-stamp-yyyy/mm/dd
-			    time-stamp-yyyy-mm-dd
-			    time-stamp-yymmdd
-			    time-stamp-hh:mm:ss
-			    time-stamp-hhmm)))
-  (while obsolete-functions
-    (make-obsolete (car obsolete-functions)
-		   "use time-stamp-string or format-time-string instead."
-		   "20.1")
-    (setq obsolete-functions (cdr obsolete-functions))))
+(dolist (function '(time-stamp-month-dd-yyyy time-stamp-dd/mm/yyyy
+		    time-stamp-mon-dd-yyyy   time-stamp-dd-mon-yy
+		    time-stamp-yy/mm/dd      time-stamp-yyyy/mm/dd
+		    time-stamp-yyyy-mm-dd    time-stamp-yymmdd
+		    time-stamp-hh:mm:ss      time-stamp-hhmm))
+  (make-obsolete function
+		 "use `time-stamp-string' or `format-time-string' instead."
+		 "20.1"))
 
 ;;; pretty form, suitable for a title page