diff options
| author | Stefan Kangas | 2024-12-16 00:01:43 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2024-12-16 00:05:06 +0100 |
| commit | bef0d80be88906b66dec06970d7782f0f7b219c0 (patch) | |
| tree | 835c2e43f7e6b7524b8effd6890f1a0ab4ba5f5f | |
| parent | 465544eb556777f16415c10e7607f7b72ec5a2b5 (diff) | |
| download | emacs-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.el | 4 | ||||
| -rw-r--r-- | 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'." | |||
| 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"); |