From 82af63125cda3637c285499926de9ff590cb7e66 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 25 Sep 2007 11:02:09 +0000 Subject: [PATCH] (emerge-really-quit): Use `mapc' rather than `mapcar'. --- lisp/emerge.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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) -- 2.39.2