From 35c4acf67e2cc237b82e128157b63e10add87053 Mon Sep 17 00:00:00 2001 From: John Foerch Date: Tue, 7 Dec 2010 15:21:56 -0500 Subject: [PATCH] use mapc instead of mapcar where appropriate --- visible-mark.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/visible-mark.el b/visible-mark.el index 1ca0419..8bc719a 100644 --- a/visible-mark.el +++ b/visible-mark.el @@ -67,7 +67,7 @@ :type '(repeat regexp)) (defun visible-mark-initialize-overlays () - (mapcar 'delete-overlay visible-mark-overlays) + (mapc 'delete-overlay visible-mark-overlays) (let (overlays) (dotimes (i visible-mark-max) (let ((overlay (make-overlay (point-min) (point-min)))) @@ -138,7 +138,7 @@ (progn (visible-mark-initialize-overlays) (add-hook 'post-command-hook 'visible-mark-move-overlays nil t)) - (mapcar 'delete-overlay visible-mark-overlays) + (mapc 'delete-overlay visible-mark-overlays) (setq visible-mark-overlays nil) (remove-hook 'post-command-hook 'visible-mark-move-overlays t))) -- 2.30.2