Fix application of dolist to a vector (Bug#17257).

* vc/ediff-diff.el (ediff-set-fine-diff-properties-in-one-buffer):
Use mapc to loop over a vector.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6099f31d636ca5304f0756b13af1d952ff5df401..6c0a099119de889d8637a95cfaeda31e940372d7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-04-14  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
+
+       * vc/ediff-diff.el (ediff-set-fine-diff-properties-in-one-buffer):
+       Use mapc to loop over a vector.  (Bug#17257).
+
 2014-04-13  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp-sh.el (tramp-sh-handle-file-truename): Revert previous

diff --git a/lisp/vc/ediff-diff.el b/lisp/vc/ediff-diff.el
index f429eb35d70ff24db9fce3f2f4e2f02742d53f6b..ed248fbf835ee49aaf38664b7ff5bc994b00eaa0 100644 (file)
--- a/lisp/vc/ediff-diff.el
+++ b/lisp/vc/ediff-diff.el
@@ -822,8 +822,9 @@ one optional arguments, diff-number to refine.")
                (ediff-get-symbol-from-alist
                 buf-type ediff-fine-diff-face-alist)
                )))
-    (dolist (overl fine-diff-vector)
-      (ediff-set-overlay-face overl face))))
+    (mapc (lambda (overl)
+           (ediff-set-overlay-face overl face))
+         fine-diff-vector)))
 
 ;; Set overlays over the regions that denote delimiters
 (defun ediff-set-fine-overlays-for-combined-merge (diff-list reg-num)