From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 25 Sep 2007 11:12:22 +0000 (+0000)
Subject: (ps-background, ps-begin-file, ps-build-reference-face-lists):
X-Git-Tag: emacs-pretest-23.0.90~10663
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81ce287c3374d5806c68dfc12e4c4f50dd18aefa;p=emacs.git

(ps-background, ps-begin-file, ps-build-reference-face-lists):
Use `mapc' rather than `mapcar'.
---

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index f3f9e45fb87..9d6f1dec34b 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -5028,15 +5028,15 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
 
 (defun ps-background (page-number)
   (let (has-local-background)
-    (mapcar #'(lambda (range)
-		(and (<= (aref range 0) page-number)
-		     (<= page-number (aref range 1))
-		     (if has-local-background
-			 (ps-output (aref range 2))
-		       (setq has-local-background t)
-		       (ps-output "/printLocalBackground{\n"
-				  (aref range 2)))))
-	    ps-background-pages)
+    (mapc #'(lambda (range)
+	      (and (<= (aref range 0) page-number)
+		   (<= page-number (aref range 1))
+		   (if has-local-background
+		       (ps-output (aref range 2))
+		     (setq has-local-background t)
+		     (ps-output "/printLocalBackground{\n"
+				(aref range 2)))))
+	  ps-background-pages)
     (and has-local-background (ps-output "}def\n"))))
 
 
@@ -5672,7 +5672,7 @@ XSTART YSTART are the relative position for the first page in a sheet.")
 
     (ps-output "\n" ps-print-prologue-1
 	       "\n/printGlobalBackground{\n")
-    (mapcar 'ps-output ps-background-all-pages)
+    (mapc 'ps-output ps-background-all-pages)
     (ps-output
      "}def\n/printLocalBackground{\n}def\n"
      "\n%%EndProlog\n\n%%BeginSetup\n"
@@ -6459,10 +6459,10 @@ If FACE is not a valid face name, use default face."
   ;; Now, rebuild reference face lists
   (setq ps-print-face-alist nil)
   (if ps-auto-font-detect
-      (mapcar 'ps-map-face (face-list))
-    (mapcar 'ps-set-face-bold ps-bold-faces)
-    (mapcar 'ps-set-face-italic ps-italic-faces)
-    (mapcar 'ps-set-face-underline ps-underlined-faces))
+      (mapc 'ps-map-face (face-list))
+    (mapc 'ps-set-face-bold ps-bold-faces)
+    (mapc 'ps-set-face-italic ps-italic-faces)
+    (mapc 'ps-set-face-underline ps-underlined-faces))
   (setq ps-build-face-reference nil))