use mapc instead of mapcar where appropriate
authorJohn Foerch <jjfoerch@earthlink.net>
Tue, 7 Dec 2010 20:21:56 +0000 (15:21 -0500)
committerJohn Foerch <jjfoerch@earthlink.net>
Tue, 7 Dec 2010 20:21:56 +0000 (15:21 -0500)
visible-mark.el

index 1ca0419..8bc719a 100644 (file)
@@ -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))))
       (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)))