~iank/visible-mark

35c4acf67e2cc237b82e128157b63e10add87053 — John Foerch 11 years ago 4f49680
use mapc instead of mapcar where appropriate
1 files changed, 2 insertions(+), 2 deletions(-)

M visible-mark.el
M visible-mark.el => visible-mark.el +2 -2
@@ 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)))