(top): Use `mapc' rather than `mapcar'.

diff --git a/lisp/progmodes/xscheme.el b/lisp/progmodes/xscheme.el
index a820ca4cedefb258dac5f43ab1bda768e5141278..f437bb7da373e98afdf4f7c950b1c8b399a17388 100644 (file)
--- a/lisp/progmodes/xscheme.el
+++ b/lisp/progmodes/xscheme.el
@@ -101,17 +101,17 @@ from being inserted into the process-buffer.")
 (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))
 \f
 (defgroup xscheme nil
   "Major mode for editing Scheme and interacting with MIT's C-Scheme."