master 68ff32a: Minor cleanup in ps-def.el

[Stefan Kangas]

branch: master
commit 68ff32a51ef83d24a03dd55c66df71c0dda9010d
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Minor cleanup in ps-def.el
    
    * lisp/ps-def.el (ps-frame-parameter): Make alias obsolete.
    * lisp/ps-print.el (ps-begin-job): Adjust caller.
---
 lisp/ps-def.el   | 2 +-
 lisp/ps-print.el | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/ps-def.el b/lisp/ps-def.el
index 49d72d3..f532511 100644
--- a/lisp/ps-def.el
+++ b/lisp/ps-def.el
@@ -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.
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index ace3001..17b486b 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -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