mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Move pure+side-effect-free declarations to byte-opt.el

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2024-12-16 00:01:43 +01:00
parent 465544eb55
commit bef0d80be8
2 changed files with 4 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/byte-opt.el
View file

@ -1789,6 +1789,8 @@ See Info node `(elisp) Integer Basics'."
tool-bar-pixel-width window-system tool-bar-pixel-width window-system
;; fringe.c ;; fringe.c
fringe-bitmaps-at-pos fringe-bitmaps-at-pos
;; json.c
json-serialize json-parse-string
;; keyboard.c ;; keyboard.c
posn-at-point posn-at-x-y posn-at-point posn-at-x-y
;; keymap.c ;; keymap.c
@ -1979,6 +1981,8 @@ See Info node `(elisp) Integer Basics'."
length> member memq memql nth nthcdr proper-list-p rassoc rassq length> member memq memql nth nthcdr proper-list-p rassoc rassq
safe-length string-bytes string-distance string-equal string-lessp safe-length string-bytes string-distance string-equal string-lessp
string-search string-version-lessp take value< string-search string-version-lessp take value<
;; json.c
json-serialize json-parse-string
;; search.c ;; search.c
regexp-quote regexp-quote
;; syntax.c ;; syntax.c

10
src/json.c
View file

@ -1818,16 +1818,6 @@ syms_of_json (void)
define_error (Qjson_escape_sequence_error, define_error (Qjson_escape_sequence_error,
"invalid escape sequence", Qjson_parse_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 (QCobject_type, ":object-type");
DEFSYM (QCarray_type, ":array-type"); DEFSYM (QCarray_type, ":array-type");
DEFSYM (QCnull_object, ":null-object"); DEFSYM (QCnull_object, ":null-object");