# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190718676 0
# Node ID 0755bdd211b979d37e9835028bbbb7bb7b82b676
# Parent  5aa8734f1e974dbe92fe3ae594fbdceebc1fdb7e
(pr-eval-local-alist, pr-eval-setting-alist): Use `mapc' rather than `mapcar'.

diff -r 5aa8734f1e97 -r 0755bdd211b9 lisp/printing.el
--- a/lisp/printing.el	Tue Sep 25 11:09:58 2007 +0000
+++ b/lisp/printing.el	Tue Sep 25 11:11:16 2007 +0000
@@ -5311,15 +5311,15 @@
 
 (defun pr-eval-local-alist (alist)
   (let (local-list)
-    (mapcar #'(lambda (option)
-		(let ((var-sym (car option))
-		      (value   (cdr option)))
-		  (setq local-list
-			(if (eq var-sym 'inherits-from:)
-			    (nconc (pr-eval-setting-alist value) local-list)
-			  (set (make-local-variable var-sym) (eval value))
-			  (cons var-sym local-list)))))
-	    alist)
+    (mapc #'(lambda (option)
+	      (let ((var-sym (car option))
+		    (value   (cdr option)))
+		(setq local-list
+		      (if (eq var-sym 'inherits-from:)
+			  (nconc (pr-eval-setting-alist value) local-list)
+			(set (make-local-variable var-sym) (eval value))
+			(cons var-sym local-list)))))
+	  alist)
     local-list))
 
 
@@ -5341,7 +5341,7 @@
 		  (setq local-list
 			(pr-eval-setting-alist inherits global
 					       (cons inherits old)))))
-	   (mapcar
+	   (mapc
 	    (cond ((not local)		; global settings
 		   #'(lambda (option)
 		       (let ((var-sym (car option)))