diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-18 23:09:53 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-18 23:19:09 +0200 |
commit | 66d8322e034679ef3a05e5747b3a4c7400712a69 (patch) | |
tree | 2fe6f8790f2ca08187c91422ae43798ac15e47c3 /lisp/ps-def.el | |
parent | 5a6ed46c74dae55092d43d0078b86e5158cdc717 (diff) | |
download | emacs-66d8322e034679ef3a05e5747b3a4c7400712a69.tar.gz |
Remove some compat code from ps files
* lisp/ps-def.el (ps-color-device): Ditto.
* lisp/ps-print.el (ps-color-scale): Make into an obsolete alias.
(ps-begin-job): Adjust caller.
* lisp/progmodes/ebnf2ps.el (ebnf-generate-eps, ebnf-generate): Ditto.
Diffstat (limited to 'lisp/ps-def.el')
-rw-r--r-- | lisp/ps-def.el | 18 |
1 files changed, 4 insertions, 14 deletions
diff --git a/lisp/ps-def.el b/lisp/ps-def.el index f532511b977..65e8011f771 100644 --- a/lisp/ps-def.el +++ b/lisp/ps-def.el @@ -58,21 +58,11 @@ (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. +;; handle colors. (defun ps-color-device () - (if (fboundp 'color-values) - (funcall 'color-values "Green") - t)) - - -(defun ps-color-values (x-color) - (cond - ((fboundp 'color-values) - (funcall 'color-values x-color)) - ((fboundp 'x-color-values) - (funcall 'x-color-values x-color)) - (t - (error "No available function to determine X color values")))) + (color-values "Green")) + +(define-obsolete-function-alias 'ps-color-values #'color-values "28.1") (defun ps-face-bold-p (face) |