From 9ca2204bbdb8b7883d89563e51ca6385a6d78a7e Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 25 Sep 2007 11:13:24 +0000 Subject: [PATCH] (clone-buffer): Use `mapc' rather than `mapcar'. --- lisp/simple.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 1a100fa7bff..182c96ca44d 100644 --- 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).