From 2b706b50d04c5bcc3807d1bf1f8b307afd0799d5 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Sat, 12 Feb 2000 19:46:42 +0000 Subject: (tempo-dolist, tempo-mapc): Removed. (tempo-process-and-insert-string): Use dolist instead of tempo-dolist. --- lisp/tempo.el | 19 +------------------ 1 file changed, 1 insertion(+), 18 deletions(-) (limited to 'lisp') diff --git a/lisp/tempo.el b/lisp/tempo.el index 0b86784807..098c6d5535 100644 --- a/lisp/tempo.el +++ b/lisp/tempo.el @@ -218,23 +218,6 @@ it recognizes the argument, and NIL otherwise") ;;; 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 @@ and insert the results." (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" -- cgit v1.2.3