# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190766633 0
# Node ID c3fb2ef00f9091bed10f080fbdf382b2fa22f378
# Parent  85483f68777e5fcf15b7a5c726e90d2059d1f4ad
(top): Use `mapc' rather than `mapcar'.

diff -r 85483f68777e -r c3fb2ef00f90 lisp/progmodes/xscheme.el
--- a/lisp/progmodes/xscheme.el	Wed Sep 26 00:30:00 2007 +0000
+++ b/lisp/progmodes/xscheme.el	Wed Sep 26 00:30:33 2007 +0000
@@ -101,17 +101,17 @@
 (setq-default scheme-mode-line-process
 	      '("" xscheme-runlight))
 
-(mapcar 'make-variable-buffer-local
-	'(xscheme-expressions-ring
-	  xscheme-expressions-ring-yank-pointer
-	  xscheme-process-filter-state
-	  xscheme-running-p
-	  xscheme-control-g-disabled-p
-	  xscheme-allow-output-p
-	  xscheme-prompt
-	  xscheme-string-accumulator
-	  xscheme-mode-string
-	  scheme-mode-line-process))
+(mapc 'make-variable-buffer-local
+      '(xscheme-expressions-ring
+	xscheme-expressions-ring-yank-pointer
+	xscheme-process-filter-state
+	xscheme-running-p
+	xscheme-control-g-disabled-p
+	xscheme-allow-output-p
+	xscheme-prompt
+	xscheme-string-accumulator
+	xscheme-mode-string
+	scheme-mode-line-process))
 
 (defgroup xscheme nil
   "Major mode for editing Scheme and interacting with MIT's C-Scheme."