lisp/bindings.el (top): Use `mapc' instead of `mapcar'.

1 files changed, 8 insertions, 8 deletions

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 97450f788aa..96700c6dc26 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -657,14 +657,14 @@ okay.  See `mode-line-format'.")
 ;; For consistency, we give them the `permanent-local' property, even
 ;; though `kill-all-local-variables' does not actually consult it.
 
-(mapcar (lambda (sym) (put sym 'permanent-local t))
-	'(buffer-file-name default-directory buffer-backed-up
-	  buffer-saved-size buffer-auto-save-file-name
-	  buffer-read-only buffer-undo-list mark-active
-	  point-before-scroll buffer-file-truename
-	  buffer-file-format buffer-auto-save-file-format
-	  buffer-display-count buffer-display-time
-	  enable-multibyte-characters))
+(mapc (lambda (sym) (put sym 'permanent-local t))
+      '(buffer-file-name default-directory buffer-backed-up
+	buffer-saved-size buffer-auto-save-file-name
+	buffer-read-only buffer-undo-list mark-active
+	point-before-scroll buffer-file-truename
+	buffer-file-format buffer-auto-save-file-format
+	buffer-display-count buffer-display-time
+	enable-multibyte-characters))
 
 ;; We have base64, md5 and sha1 functions built in now.
 (provide 'base64)