[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/tempo.el,v
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/tempo.el,v |
Date: |
Tue, 25 Sep 2007 11:15:18 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/tempo.el,v,
Juanma Barranquero <=