[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 68ff32a: Minor cleanup in ps-def.el
From: |
Stefan Kangas |
Subject: |
master 68ff32a: Minor cleanup in ps-def.el |
Date: |
Wed, 12 Aug 2020 09:41:06 -0400 (EDT) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 68ff32a: Minor cleanup in ps-def.el,
Stefan Kangas <=