From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 25 Sep 2007 11:02:09 +0000 (+0000)
Subject: (emerge-really-quit): Use `mapc' rather than `mapcar'.
X-Git-Tag: emacs-pretest-23.0.90~10675
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82af63125cda3637c285499926de9ff590cb7e66;p=emacs.git

(emerge-really-quit): Use `mapc' rather than `mapcar'.
---

diff --git a/lisp/emerge.el b/lisp/emerge.el
index 447e45f14f3..0c1b3b170cd 100644
--- a/lisp/emerge.el
+++ b/lisp/emerge.el
@@ -1886,13 +1886,13 @@ buffer after this will cause serious problems."
   (emerge-restore-buffer-characteristics)
   ;; null out the difference markers so they don't slow down future editing
   ;; operations
-  (mapcar (function (lambda (d)
-		      (set-marker (aref d 0) nil)
-		      (set-marker (aref d 1) nil)
-		      (set-marker (aref d 2) nil)
-		      (set-marker (aref d 3) nil)
-		      (set-marker (aref d 4) nil)
-		      (set-marker (aref d 5) nil)))
+  (mapc (function (lambda (d)
+		    (set-marker (aref d 0) nil)
+		    (set-marker (aref d 1) nil)
+		    (set-marker (aref d 2) nil)
+		    (set-marker (aref d 3) nil)
+		    (set-marker (aref d 4) nil)
+		    (set-marker (aref d 5) nil)))
 	  emerge-difference-list)
   ;; allow them to be garbage collected
   (setq emerge-difference-list nil)