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

Minor cleanup in ps-def.el

Browse source 
* lisp/ps-def.el (ps-frame-parameter): Make alias obsolete.
* lisp/ps-print.el (ps-begin-job): Adjust caller.
This commit is contained in:
Stefan Kangas 2020-08-12 15:34:13 +02:00
parent fdba95d2f8
commit 68ff32a51e
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ps-def.el
View file

@ -55,7 +55,7 @@
(face-background face nil t))
(defalias 'ps-frame-parameter 'frame-parameter)
(define-obsolete-function-alias 'ps-frame-parameter #'frame-parameter "28.1")
;; Return t if the device (which can be changed during an emacs session) can
;; handle colors. This function is not yet implemented for GNU emacs.

4
lisp/ps-print.el
View file

@ -5761,7 +5761,7 @@ XSTART YSTART are the relative position for the first page in a sheet.")
(eq genfunc 'ps-generate-postscript))
nil)
((eq ps-default-bg 'frame-parameter)
(ps-frame-parameter nil 'background-color))
(frame-parameter nil 'background-color))
((eq ps-default-bg t)
(ps-face-background-name 'default))
(t
@ -5775,7 +5775,7 @@ XSTART YSTART are the relative position for the first page in a sheet.")
(eq genfunc 'ps-generate-postscript))
nil)
((eq ps-default-fg 'frame-parameter)
(ps-frame-parameter nil 'foreground-color))
(frame-parameter nil 'foreground-color))
((eq ps-default-fg t)
(ps-face-foreground-name 'default))
(t