bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#24308: 25.1.50; Fix back-white <-> black-white typo


From: Kaushal Modi
Subject: bug#24308: 25.1.50; Fix back-white <-> black-white typo
Date: Thu, 25 Aug 2016 15:14:00 +0000

Patch to fix this bug:

Can you please commit this patch as I do not have commit rights. Thanks.

From f34a420b3b02eeaf816afb793875e2893fcf411c Mon Sep 17 00:00:00 2001
From: Kaushal Modi <address@hidden>
Date: Thu, 25 Aug 2016 11:06:45 -0400
Subject: [PATCH] Fix back-white <-> black-white typo

* lisp/ps-print.el (ps-begin-job): back-white -> black-white (Bug#24308)
---
 lisp/ps-print.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 2ea0919..54ffe28 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -5828,7 +5828,7 @@ ps-begin-job
  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 @@ ps-begin-job
  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 @@ ps-begin-job
        #'(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.
-- 
2.9.2

--

Kaushal Modi


reply via email to

[Prev in Thread] Current Thread [Next in Thread]