(clone-buffer): Use `mapc' rather than `mapcar'.

diff --git a/lisp/simple.el b/lisp/simple.el
index 1a100fa7bffa2c139406ab514a69f0ec37e2d009..182c96ca44d031e24ad70c8700f8f77828354696 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5548,13 +5548,13 @@ after it has been set up properly in other respects."
       (funcall mode)
 
       ;; Set up other local variables.
-      (mapcar (lambda (v)
-               (condition-case ()      ;in case var is read-only
-                   (if (symbolp v)
-                       (makunbound v)
-                     (set (make-local-variable (car v)) (cdr v)))
-                 (error nil)))
-             lvars)
+      (mapc (lambda (v)
+             (condition-case ()        ;in case var is read-only
+                 (if (symbolp v)
+                     (makunbound v)
+                   (set (make-local-variable (car v)) (cdr v)))
+               (error nil)))
+           lvars)
 
       ;; Run any hooks (typically set up by the major mode
       ;; for cloning to work properly).