# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190718129 0
# Node ID 4dd4685a454f6f79b5380be90ae5ba8695d15a38
# Parent  cac94194ce6d31823e91897e2694f3a85bdfef87
(emerge-really-quit): Use `mapc' rather than `mapcar'.

diff -r cac94194ce6d -r 4dd4685a454f lisp/emerge.el
--- a/lisp/emerge.el	Tue Sep 25 10:48:16 2007 +0000
+++ b/lisp/emerge.el	Tue Sep 25 11:02:09 2007 +0000
@@ -1886,13 +1886,13 @@
   (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)