mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(tempo-insert-template, tempo-is-user-element, tempo-forward-mark,

Browse Source 
tempo-backward-mark): Use `mapc' rather than `mapcar'.
This commit is contained in:
Juanma Barranquero 2007-09-25 11:15:17 +00:00
parent e18c18e870
commit 254fc6616d
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/tempo.el
View File

@ -315,9 +315,9 @@ mode, ON-REGION is ignored and assumed true if the region is active."
(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 @@ never prompted."
"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 @@ and insert the results."
"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 @@ and insert the results."
(interactive)
(let ((prev-mark (catch 'found
(let (last)
(mapcar
(mapc
(function
(lambda (mark)
(if (<= (point) mark)