]> code.delx.au - gnu-emacs/commitdiff
(emerge-really-quit): Use `mapc' rather than `mapcar'.
authorJuanma Barranquero <lekktu@gmail.com>
Tue, 25 Sep 2007 11:02:09 +0000 (11:02 +0000)
committerJuanma Barranquero <lekktu@gmail.com>
Tue, 25 Sep 2007 11:02:09 +0000 (11:02 +0000)
lisp/emerge.el

index 447e45f14f3eb72e647134fb18b8b13f4f0a97ca..0c1b3b170cdf57e3f94188e845309a5a0daa24fd 100644 (file)
@@ -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)