aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2024-12-16 00:01:43 +0100
committerStefan Kangas2024-12-16 00:05:06 +0100
commitbef0d80be88906b66dec06970d7782f0f7b219c0 (patch)
tree835c2e43f7e6b7524b8effd6890f1a0ab4ba5f5f
parent465544eb556777f16415c10e7607f7b72ec5a2b5 (diff)
downloademacs-bef0d80be88906b66dec06970d7782f0f7b219c0.tar.gz
emacs-bef0d80be88906b66dec06970d7782f0f7b219c0.zip
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.
-rw-r--r--lisp/emacs-lisp/byte-opt.el4
-rw-r--r--src/json.c10
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'."
1789 tool-bar-pixel-width window-system 1789 tool-bar-pixel-width window-system
1790 ;; fringe.c 1790 ;; fringe.c
1791 fringe-bitmaps-at-pos 1791 fringe-bitmaps-at-pos
1792 ;; json.c
1793 json-serialize json-parse-string
1792 ;; keyboard.c 1794 ;; keyboard.c
1793 posn-at-point posn-at-x-y 1795 posn-at-point posn-at-x-y
1794 ;; keymap.c 1796 ;; keymap.c
@@ -1979,6 +1981,8 @@ See Info node `(elisp) Integer Basics'."
1979 length> member memq memql nth nthcdr proper-list-p rassoc rassq 1981 length> member memq memql nth nthcdr proper-list-p rassoc rassq
1980 safe-length string-bytes string-distance string-equal string-lessp 1982 safe-length string-bytes string-distance string-equal string-lessp
1981 string-search string-version-lessp take value< 1983 string-search string-version-lessp take value<
1984 ;; json.c
1985 json-serialize json-parse-string
1982 ;; search.c 1986 ;; search.c
1983 regexp-quote 1987 regexp-quote
1984 ;; syntax.c 1988 ;; 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)
1818 define_error (Qjson_escape_sequence_error, 1818 define_error (Qjson_escape_sequence_error,
1819 "invalid escape sequence", Qjson_parse_error); 1819 "invalid escape sequence", Qjson_parse_error);
1820 1820
1821 DEFSYM (Qpure, "pure");
1822 DEFSYM (Qside_effect_free, "side-effect-free");
1823
1824 DEFSYM (Qjson_serialize, "json-serialize");
1825 DEFSYM (Qjson_parse_string, "json-parse-string");
1826 Fput (Qjson_serialize, Qpure, Qt);
1827 Fput (Qjson_serialize, Qside_effect_free, Qt);
1828 Fput (Qjson_parse_string, Qpure, Qt);
1829 Fput (Qjson_parse_string, Qside_effect_free, Qt);
1830
1831 DEFSYM (QCobject_type, ":object-type"); 1821 DEFSYM (QCobject_type, ":object-type");
1832 DEFSYM (QCarray_type, ":array-type"); 1822 DEFSYM (QCarray_type, ":array-type");
1833 DEFSYM (QCnull_object, ":null-object"); 1823 DEFSYM (QCnull_object, ":null-object");