1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
| | ;;; compat.el --- Pseudo-Compatibility for Elisp -*- lexical-binding: t; -*-
;; Copyright (C) 2021-2024 Free Software Foundation, Inc.
;; Author: \
;; Philip Kaludercic <philipk@posteo.net>, \
;; Daniel Mendler <mail@daniel-mendler.de>
;; Maintainer: \
;; Daniel Mendler <mail@daniel-mendler.de>, \
;; Compat Development <~pkal/compat-devel@lists.sr.ht>,
;; emacs-devel@gnu.org
;; URL: https://github.com/emacs-compat/compat
;; Keywords: lisp, maint
;; This program 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.
;; This program 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 this program. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; The Compat package on ELPA provides forward-compatibility
;; definitions for other packages. While mostly transparent, a
;; minimal API is necessary whenever core definitions change calling
;; conventions (e.g. `plist-get' can be invoked with a predicate from
;; Emacs 29.1 onward). For core packages on ELPA to be able to take
;; advantage of this functionality, the macros `compat-function' and
;; `compat-call' have to be available in the core, usable even if
;; users do not have the Compat package installed, which this file
;; ensures.
;; You can find out more about Compat and how to use it from the Info
;; node `(compat) Top' (installed along with the Compat package) or
;; read the same manual online:
;; https.gnu.org/packages/doc/compat.html.
;; Note that Compat is NOT a core package and this file is NOT
;; available on GNU ELPA.
;;; Code:
(defmacro compat-function (fun)
"Return compatibility function symbol for FUN.
This is a pseudo-compatibility stub for core packages on ELPA,
that depend on the Compat package, whenever the user doesn't have
the package installed on their current system."
`#',fun)
(defmacro compat-call (fun &rest args)
"Call compatibility function or macro FUN with ARGS.
This is a pseudo-compatibility stub for core packages on ELPA,
that depend on the Compat package, whenever the user doesn't have
the package installed on their current system."
(cons fun args))
;;;; Hack to avoid installing Compat if not necessary
;; The versioning scheme of the Compat package follows that of Emacs,
;; to indicate what version of Emacs is being supported. For example,
;; the Compat version number 29.2.3.9 would attempt to provide
;; compatibility definitions up to Emacs 29.2, while also designating
;; that this is the third major release and ninth minor release of
;; Compat, for the specific Emacs release.
;; To ensure that if the user is using Emacs X.Y installed, the ELPA
;; package Compat X.Y.Z* (for any values of Z*) does not get
;; unnecessarily installed, as there are no missing features that
;; Compat could provide, we programmatically specify the version of
;; the package to be that of the current Emacs version plus a high
;; "major release" to exceed the major version of Compat.
;;;###autoload (push (list 'compat emacs-major-version emacs-minor-version most-positive-fixnum) package--builtin-versions)
(provide 'compat)
;;; compat.el ends here
|