diff options
author | Juanma Barranquero <[email protected]> | 2007-09-25 11:02:09 +0000 |
---|---|---|
committer | Juanma Barranquero <[email protected]> | 2007-09-25 11:02:09 +0000 |
commit | 82af63125cda3637c285499926de9ff590cb7e66 (patch) | |
tree | 16059bab1feec4a6dd34616b33ac1e1457d88313 /lisp/emerge.el | |
parent | 56eaedfe17651dab1582ef4a460953648eb1089e (diff) |
(emerge-really-quit): Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/emerge.el')
-rw-r--r-- | lisp/emerge.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/emerge.el b/lisp/emerge.el index 447e45f14f..0c1b3b170c 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) |