From: Kaushal Modi <kaushal.modi@gmail.com>
Date: Thu, 25 Aug 2016 15:06:45 +0000 (-0400)
Subject: Fix back-white <-> black-white typo
X-Git-Tag: emacs-26.0.90~1640
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32078ec8c444cd886a51c1a63103b230371d7a54;p=emacs.git

Fix back-white <-> black-white typo

* lisp/ps-print.el (ps-begin-job): back-white -> black-white (Bug#24308)
---

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 2ea0919c686..54ffe2874df 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -5828,7 +5828,7 @@ XSTART YSTART are the relative position for the first page in a sheet.")
 	ps-default-background (ps-rgb-color
 			       (cond
 				((or (member ps-print-color-p
-					     '(nil back-white))
+					     '(nil black-white))
 				     (eq genfunc 'ps-generate-postscript))
 				 nil)
 				((eq ps-default-bg 'frame-parameter)
@@ -5842,7 +5842,7 @@ XSTART YSTART are the relative position for the first page in a sheet.")
 	ps-default-foreground (ps-rgb-color
 			       (cond
 				((or (member ps-print-color-p
-					     '(nil back-white))
+					     '(nil black-white))
 				     (eq genfunc 'ps-generate-postscript))
 				 nil)
 				((eq ps-default-fg 'frame-parameter)
@@ -5857,12 +5857,12 @@ XSTART YSTART are the relative position for the first page in a sheet.")
 			       #'(lambda (arg)
 				   (ps-rgb-color arg "unspecified-fg" 0.0))
 			       (append (and (not (member ps-print-color-p
-							 '(nil back-white)))
+							 '(nil black-white)))
 					    ps-fg-list)
 				       (list ps-default-foreground
 					     "black")))
 	ps-default-color      (and (not (member ps-print-color-p
-						'(nil back-white)))
+						'(nil black-white)))
 				   ps-default-foreground)
 	ps-current-color      ps-default-color
 	;; Set up default functions.