mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

Remove some compat code from ps files

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2020-08-18 23:09:53 +02:00
parent 5a6ed46c74
commit 66d8322e03
3 changed files with 7 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ps-print.el
View file

@ -3856,7 +3856,7 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'."
(defun ps-color-scale (color)
;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval.
(mapcar #'(lambda (value) (/ value ps-print-color-scale))
(ps-color-values color)))
(color-values color)))
(defun ps-face-underlined-p (face)
@ -5752,7 +5752,7 @@ XSTART YSTART are the relative position for the first page in a sheet.")
;; evaluated at dump-time because X isn't initialized.
ps-color-p (and ps-print-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-default-background (ps-rgb-color
(cond