mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -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)) (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 ;; 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. ;; 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)) (eq genfunc 'ps-generate-postscript))
nil) nil)
((eq ps-default-bg 'frame-parameter) ((eq ps-default-bg 'frame-parameter)
(ps-frame-parameter nil 'background-color)) (frame-parameter nil 'background-color))
((eq ps-default-bg t) ((eq ps-default-bg t)
(ps-face-background-name 'default)) (ps-face-background-name 'default))
(t (t
@ -5775,7 +5775,7 @@ XSTART YSTART are the relative position for the first page in a sheet.")
(eq genfunc 'ps-generate-postscript)) (eq genfunc 'ps-generate-postscript))
nil) nil)
((eq ps-default-fg 'frame-parameter) ((eq ps-default-fg 'frame-parameter)
(ps-frame-parameter nil 'foreground-color)) (frame-parameter nil 'foreground-color))
((eq ps-default-fg t) ((eq ps-default-fg t)
(ps-face-foreground-name 'default)) (ps-face-foreground-name 'default))
(t (t