# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190718917 0
# Node ID edcc591dc3a491ee3fd1264ab07c4d763adc94f0
# Parent  54aa4c1eb6d68ae40d0250fc687fe3cff1663959
(tempo-insert-template, tempo-is-user-element, tempo-forward-mark,
tempo-backward-mark): Use `mapc' rather than `mapcar'.

diff -r 54aa4c1eb6d6 -r edcc591dc3a4 lisp/tempo.el
--- a/lisp/tempo.el	Tue Sep 25 11:14:28 2007 +0000
+++ b/lisp/tempo.el	Tue Sep 25 11:15:17 2007 +0000
@@ -315,9 +315,9 @@
 	    (goto-char tempo-region-start))
 	(save-excursion
 	  (tempo-insert-mark (point-marker))
-	  (mapcar (function (lambda (elt)
-			      (tempo-insert elt on-region)))
-		  (symbol-value template))
+	  (mapc (function (lambda (elt)
+			    (tempo-insert elt on-region)))
+		(symbol-value template))
 	  (tempo-insert-mark (point-marker)))
 	(tempo-forward-mark))
     (tempo-forget-insertions)
@@ -460,10 +460,10 @@
   "Tries all the user-defined element handlers in `tempo-user-elements'."
   ;; Sigh... I need (some list)
   (catch 'found
-    (mapcar (function (lambda (handler)
-			(let ((result (funcall handler element)))
-			  (if result (throw 'found result)))))
-	    tempo-user-elements)
+    (mapc (function (lambda (handler)
+		      (let ((result (funcall handler element)))
+			(if result (throw 'found result)))))
+	  tempo-user-elements)
     (throw 'found nil)))
 
 ;;;
@@ -556,7 +556,7 @@
   "Jump to the next mark in `tempo-forward-mark-list'."
   (interactive)
   (let ((next-mark (catch 'found
-		     (mapcar
+		     (mapc
 		      (function
 		       (lambda (mark)
 			 (if (< (point) mark)
@@ -575,7 +575,7 @@
   (interactive)
   (let ((prev-mark (catch 'found
 		     (let (last)
-		       (mapcar
+		       (mapc
 			(function
 			 (lambda (mark)
 			   (if (<= (point) mark)