diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-18 23:09:53 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-18 23:19:09 +0200 |
commit | 66d8322e034679ef3a05e5747b3a4c7400712a69 (patch) | |
tree | 2fe6f8790f2ca08187c91422ae43798ac15e47c3 /lisp/progmodes/ebnf2ps.el | |
parent | 5a6ed46c74dae55092d43d0078b86e5158cdc717 (diff) | |
download | emacs-66d8322e034679ef3a05e5747b3a4c7400712a69.tar.gz |
Remove some compat code from ps files
* lisp/ps-def.el (ps-color-device): Ditto.
* lisp/ps-print.el (ps-color-scale): Make into an obsolete alias.
(ps-begin-job): Adjust caller.
* lisp/progmodes/ebnf2ps.el (ebnf-generate-eps, ebnf-generate): Ditto.
Diffstat (limited to 'lisp/progmodes/ebnf2ps.el')
-rw-r--r-- | lisp/progmodes/ebnf2ps.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el index 08cf802bcbe..22c70bf734d 100644 --- a/lisp/progmodes/ebnf2ps.el +++ b/lisp/progmodes/ebnf2ps.el @@ -4527,7 +4527,7 @@ end (let* ((ebnf-tree tree) (ps-color-p (and ebnf-color-p (ps-color-device))) (ps-print-color-scale (if ps-color-p - (float (car (ps-color-values "white"))) + (float (car (color-values "white"))) 1.0)) (ebnf-total (length ebnf-tree)) (ebnf-nprod 0) @@ -4629,7 +4629,7 @@ end (let* ((ebnf-tree tree) (ps-color-p (and ebnf-color-p (ps-color-device))) (ps-print-color-scale (if ps-color-p - (float (car (ps-color-values "white"))) + (float (car (color-values "white"))) 1.0)) ps-zebra-stripes ps-line-number ps-razzle-dazzle ps-print-hook |