Mercurial > emacs
changeset 84880:edcc591dc3a4
(tempo-insert-template, tempo-is-user-element, tempo-forward-mark,
tempo-backward-mark): Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 25 Sep 2007 11:15:17 +0000 |
| parents | 54aa4c1eb6d6 |
| children | b0d17e361aac |
| files | lisp/tempo.el |
| diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- 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)