Mercurial > emacs
changeset 27684:db5b16cdb88d
(tempo-dolist, tempo-mapc): Removed.
(tempo-process-and-insert-string): Use dolist instead of
tempo-dolist.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sat, 12 Feb 2000 19:46:42 +0000 |
| parents | 9ccf5aad8bcf |
| children | 15ad3fb709f8 |
| files | lisp/tempo.el |
| diffstat | 1 files changed, 1 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- 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"