[Emacs-diffs] Changes to emacs/lisp/tempo.el,v

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/09/25 11:15:18

Index: tempo.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/tempo.el,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- tempo.el    26 Jul 2007 05:26:35 -0000      1.35
+++ tempo.el    25 Sep 2007 11:15:17 -0000      1.36
@@ -315,7 +315,7 @@
            (goto-char tempo-region-start))
        (save-excursion
          (tempo-insert-mark (point-marker))
-         (mapcar (function (lambda (elt)
+         (mapc (function (lambda (elt)
                              (tempo-insert elt on-region)))
                  (symbol-value template))
          (tempo-insert-mark (point-marker)))
@@ -460,7 +460,7 @@
   "Tries all the user-defined element handlers in `tempo-user-elements'."
   ;; Sigh... I need (some list)
   (catch 'found
-    (mapcar (function (lambda (handler)
+    (mapc (function (lambda (handler)
                        (let ((result (funcall handler element)))
                          (if result (throw 'found result)))))
            tempo-user-elements)
@@ -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)