# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 950384802 0
# Node ID db5b16cdb88dfcfd7079562400fa13929af8d986
# Parent  9ccf5aad8bcf25cab9c9f6772a78adb10b063bca
(tempo-dolist, tempo-mapc): Removed.
(tempo-process-and-insert-string): Use dolist instead of
tempo-dolist.

diff -r 9ccf5aad8bcf -r db5b16cdb88d lisp/tempo.el
--- a/lisp/tempo.el	Sat Feb 12 19:45:53 2000 +0000
+++ b/lisp/tempo.el	Sat Feb 12 19:46:42 2000 +0000
@@ -218,23 +218,6 @@
 
 ;;; Functions
 
-;;; First some useful functions and macros
-
-(defun tempo-mapc (fun lst)
-  (if (null lst) nil
-    (funcall fun (car lst))
-    (tempo-mapc fun (cdr lst))))
-
-(defmacro tempo-dolist (il &rest forms)
-  (let ((i (car il))
-	(l (car (cdr il))))
-    (list 'tempo-mapc
-	  (list 'function (append (list 'lambda
-					(list i))
-				  forms))
-	  l)))
-(put 'tempo-dolist 'lisp-indent-function 1)
-
 ;;
 ;; tempo-define-template
 
@@ -539,7 +522,7 @@
 	 (setq string
 	       (funcall tempo-insert-string-functions string)))
 	((listp tempo-insert-string-functions)
-	 (tempo-dolist (fn tempo-insert-string-functions)
+	 (dolist (fn tempo-insert-string-functions)
 	   (setq string (funcall fn string))))
 	(t
 	 (error "Bogus value in tempo-insert-string-functions: %s"