[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master bef0d80be88: Move pure+side-effect-free declarations to byte-opt.
From: |
Stefan Kangas |
Subject: |
master bef0d80be88: Move pure+side-effect-free declarations to byte-opt.el |
Date: |
Sun, 15 Dec 2024 18:05:13 -0500 (EST) |
branch: master
commit bef0d80be88906b66dec06970d7782f0f7b219c0
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
Move pure+side-effect-free declarations to byte-opt.el
* src/json.c (syms_of_json): Move pure and side-effect-free declarations
for json-serialize and json-parse-string from here...
* lisp/emacs-lisp/byte-opt.el (side-effect-free-fns, pure-fns):
...to here.
---
lisp/emacs-lisp/byte-opt.el | 4 ++++
src/json.c | 10 ----------
2 files changed, 4 insertions(+), 10 deletions(-)
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 0a89a33cbc3..d63051e8bca 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1789,6 +1789,8 @@ See Info node `(elisp) Integer Basics'."
tool-bar-pixel-width window-system
;; fringe.c
fringe-bitmaps-at-pos
+ ;; json.c
+ json-serialize json-parse-string
;; keyboard.c
posn-at-point posn-at-x-y
;; keymap.c
@@ -1979,6 +1981,8 @@ See Info node `(elisp) Integer Basics'."
length> member memq memql nth nthcdr proper-list-p rassoc rassq
safe-length string-bytes string-distance string-equal string-lessp
string-search string-version-lessp take value<
+ ;; json.c
+ json-serialize json-parse-string
;; search.c
regexp-quote
;; syntax.c
diff --git a/src/json.c b/src/json.c
index 282dca6e8ff..3368c52ef2a 100644
--- a/src/json.c
+++ b/src/json.c
@@ -1818,16 +1818,6 @@ syms_of_json (void)
define_error (Qjson_escape_sequence_error,
"invalid escape sequence", Qjson_parse_error);
- DEFSYM (Qpure, "pure");
- DEFSYM (Qside_effect_free, "side-effect-free");
-
- DEFSYM (Qjson_serialize, "json-serialize");
- DEFSYM (Qjson_parse_string, "json-parse-string");
- Fput (Qjson_serialize, Qpure, Qt);
- Fput (Qjson_serialize, Qside_effect_free, Qt);
- Fput (Qjson_parse_string, Qpure, Qt);
- Fput (Qjson_parse_string, Qside_effect_free, Qt);
-
DEFSYM (QCobject_type, ":object-type");
DEFSYM (QCarray_type, ":array-type");
DEFSYM (QCnull_object, ":null-object");
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master bef0d80be88: Move pure+side-effect-free declarations to byte-opt.el,
Stefan Kangas <=