diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-03 16:00:34 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-03 16:00:34 +0100 |
| commit | 6b32c2058bfefccb65394a6c891f6f4837505cba (patch) | |
| tree | 81c00a15bc1eb0c0b96f96edea8c006848edb9c8 /compat-macs.el | |
| parent | 9842d683d8dc3ae31ab530d6f4e42dabe47fb25a (diff) | |
Rename compat-current-version to compat--current-version
Diffstat (limited to 'compat-macs.el')
| -rw-r--r-- | compat-macs.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compat-macs.el b/compat-macs.el index e0220dd..ff15120 100644 --- a/compat-macs.el +++ b/compat-macs.el @@ -29,14 +29,14 @@ "Ignore all arguments." nil) -(defvar compat-current-version nil +(defvar compat--current-version nil "Default version to use when no explicit version was given.") (defmacro compat-declare-version (version) "Set the Emacs version that is currently being handled to VERSION." ;; FIXME: Avoid setting the version for any definition that might ;; follow, but try to restrict it to the current file/buffer. - (setq compat-current-version version) + (setq compat--current-version version) nil) (defvar compat--generate-function #'compat--generate-default @@ -93,7 +93,7 @@ DEF-FN, INSTALL-FN, CHECK-FN, ATTR and TYPE." (feature (plist-get attr :feature)) (cond (plist-get attr :cond)) (version (or (plist-get attr :version) - compat-current-version)) + compat--current-version)) (realname (or (plist-get attr :realname) (intern (format "compat--%S" name)))) (check (cond |