X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/5762abecd390e960b2a15bc58b5ed6a07af5955f..401aa4797329c34b3691872337b9be2c26e4e020:/lisp/tempo.el

diff --git a/lisp/tempo.el b/lisp/tempo.el
index 0b86784807..ae9c7731b4 100644
--- a/lisp/tempo.el
+++ b/lisp/tempo.el
@@ -52,7 +52,7 @@
 ;; a non-nil argument).
 
 ;; More flexible templates can be created by including lisp symbols,
-;; which will be evaluated as variables, or lists, which will will be
+;; which will be evaluated as variables, or lists, which will be
 ;; evaluated as lisp expressions.
 
 ;; See the documentation for tempo-define-template for the different
@@ -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"
@@ -754,7 +737,7 @@ Returns non-nil if an expansion was made and nil otherwise.
 This could as an example be used in a command that is bound to the
 space bar, and looks something like this:
 
-(defun tempo-space ()
+\(defun tempo-space ()
   (interactive \"*\")
   (or (tempo-expand-if-complete)
       (insert \" \")))"