From a73b9ddac85132aa0745734ee757e234298a6c7a Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Mon, 14 Apr 2014 11:21:12 +0900 Subject: [PATCH] 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. --- lisp/ChangeLog | 5 +++++ lisp/vc/ediff-diff.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6099f31d636..6c0a099119d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-04-14 YAMAMOTO Mitsuharu + + * 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 * 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 f429eb35d70..ed248fbf835 100644 --- 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) -- 2.39.2