From: Stefan Kangas <stefan@marxist.se>
Date: Sun, 31 Jul 2022 16:16:45 +0000 (+0200)
Subject: Make ps-def.el obsolete (part 1/2)
X-Git-Tag: emacs-29.0.90~1447^2~600
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2276f51ff5d44df1a89c3ba401f2d09005374fa3;p=emacs.git

Make ps-def.el obsolete (part 1/2)

This file was created to maintain Emacs/XEmacs compat code more
easily, and no longer serves any purpose.  It currently contains only
obsolete function and variable aliases.

* lisp/ps-def.el: Move from here...
* lisp/obsolete/ps-def.el: ...to here.
---

diff --git a/lisp/obsolete/ps-def.el b/lisp/obsolete/ps-def.el
new file mode 100644
index 00000000000..ed4cd7b2487
--- /dev/null
+++ b/lisp/obsolete/ps-def.el
@@ -0,0 +1,53 @@
+;;; ps-def.el --- Emacs definitions for ps-print -*- lexical-binding: t -*-
+
+;; Copyright (C) 2007-2022 Free Software Foundation, Inc.
+
+;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com>
+;;	Kenichi Handa <handa@gnu.org> (multi-byte characters)
+;; Keywords: wp, print, PostScript
+;; URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
+;; Package: ps-print
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; See ps-print.el for documentation.
+
+;;; Code:
+
+
+;; Emacs Definitions
+
+(defun ps-mark-active-p ()
+  (declare (obsolete mark-active "29.1"))
+  mark-active)
+
+(defun ps-face-foreground-name (face)
+  (declare (obsolete face-foreground "29.1"))
+  (face-foreground face nil t))
+
+(defun ps-face-background-name (face)
+  (declare (obsolete face-background "29.1"))
+  (face-background face nil t))
+
+(define-obsolete-function-alias 'ps-frame-parameter #'frame-parameter "28.1")
+(define-obsolete-function-alias 'ps-color-device #'display-color-p "29.1")
+(define-obsolete-function-alias 'ps-color-values #'color-values "28.1")
+
+(provide 'ps-def)
+
+;;; ps-def.el ends here
diff --git a/lisp/ps-def.el b/lisp/ps-def.el
deleted file mode 100644
index ed4cd7b2487..00000000000
--- a/lisp/ps-def.el
+++ /dev/null
@@ -1,53 +0,0 @@
-;;; ps-def.el --- Emacs definitions for ps-print -*- lexical-binding: t -*-
-
-;; Copyright (C) 2007-2022 Free Software Foundation, Inc.
-
-;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com>
-;;	Kenichi Handa <handa@gnu.org> (multi-byte characters)
-;; Keywords: wp, print, PostScript
-;; URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
-;; Package: ps-print
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; See ps-print.el for documentation.
-
-;;; Code:
-
-
-;; Emacs Definitions
-
-(defun ps-mark-active-p ()
-  (declare (obsolete mark-active "29.1"))
-  mark-active)
-
-(defun ps-face-foreground-name (face)
-  (declare (obsolete face-foreground "29.1"))
-  (face-foreground face nil t))
-
-(defun ps-face-background-name (face)
-  (declare (obsolete face-background "29.1"))
-  (face-background face nil t))
-
-(define-obsolete-function-alias 'ps-frame-parameter #'frame-parameter "28.1")
-(define-obsolete-function-alias 'ps-color-device #'display-color-p "29.1")
-(define-obsolete-function-alias 'ps-color-values #'color-values "28.1")
-
-(provide 'ps-def)
-
-;;; ps-def.el ends here