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.

diff --git a/lisp/ps-def.el b/lisp/ps-def.el
index 49d72d3be50ce1de730eb674648f320b095800c0..f532511b977e1845e2ef96d90c1d85b531c84b66 100644 (file)
--- 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 ace30017814013ec2fa79f23e31153efedc8bccd..17b486bca115bd71d0b934e7961dfbe47de5e088 100644 (file)
--- 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