diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-15 07:21:45 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-15 07:21:45 +0100 |
| commit | a62393b8bbf629380535e42c380564fdcef9228b (patch) | |
| tree | 3bb831fa9b693c0e24a4971e80764ba6dc88dada /compat-28.el | |
| parent | 595118ed5160d5a77031787f15c5375b8bbfc9b5 (diff) | |
compat-macs: Simplification, remove :min-version and :max-version
Diffstat (limited to 'compat-28.el')
| -rw-r--r-- | compat-28.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compat-28.el b/compat-28.el index e97028c..6237ce0 100644 --- a/compat-28.el +++ b/compat-28.el @@ -156,7 +156,7 @@ If COUNT is non-nil and a natural number, the function will (compat-defun json-serialize (object &rest args) ;; <UNTESTED> "Handle top-level JSON values (RFC 8259)." :explicit t - :min-version "27" + :cond (= 27 emacs-major-version) (if (or (listp object) (vectorp object)) (apply #'json-serialize object args) (substring (json-serialize (list object)) 1 -1))) @@ -165,7 +165,7 @@ If COUNT is non-nil and a natural number, the function will (compat-defun json-insert (object &rest args) ;; <UNTESTED> "Handle top-level JSON values (RFC 8259)." :explicit t - :min-version "27" + :cond (= 27 emacs-major-version) (if (or (listp object) (vectorp object)) (apply #'json-insert object args) (insert (apply #'compat--json-serialize object args)))) @@ -174,7 +174,7 @@ If COUNT is non-nil and a natural number, the function will (compat-defun json-parse-string (string &rest args) ;; <UNTESTED> "Handle top-level JSON values (RFC 8259)." :explicit t - :min-version "27" + :cond (= 27 emacs-major-version) (if (string-match-p "\\`[[:space:]]*[[{]" string) (apply #'json-parse-string string args) ;; Wrap the string in an array, and extract the value back using @@ -186,7 +186,7 @@ If COUNT is non-nil and a natural number, the function will (compat-defun json-parse-buffer (&rest args) ;; <UNTESTED> "Handle top-level JSON values (RFC 8259)." :explicit t - :min-version "27" + :cond (= 27 emacs-major-version) (if (looking-at-p "[[:space:]]*[[{]") (apply #'json-parse-buffer args) (catch 'escape |