emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs-24 r116962: Fix application of dolist to a vector (B


From: YAMAMOTO Mitsuharu
Subject: [Emacs-diffs] emacs-24 r116962: Fix application of dolist to a vector (Bug#17257).
Date: Mon, 14 Apr 2014 02:21:19 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 116962
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/17257
committer: YAMAMOTO Mitsuharu <address@hidden>
branch nick: emacs-24
timestamp: Mon 2014-04-14 11:21:12 +0900
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/vc/ediff-diff.el          
ediffdiff.el-20091113204419-o5vbwnq5f7feedwu-845
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-04-13 10:31:48 +0000
+++ b/lisp/ChangeLog    2014-04-14 02:21:12 +0000
@@ -1,3 +1,8 @@
+2014-04-14  YAMAMOTO Mitsuharu  <address@hidden>
+
+       * 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  <address@hidden>
 
        * net/tramp-sh.el (tramp-sh-handle-file-truename): Revert previous

=== modified file 'lisp/vc/ediff-diff.el'
--- a/lisp/vc/ediff-diff.el     2014-04-10 19:15:01 +0000
+++ b/lisp/vc/ediff-diff.el     2014-04-14 02:21:12 +0000
@@ -822,8 +822,9 @@
                (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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]