diff options
| author | Pip Cet | 2024-08-20 19:00:20 +0000 |
|---|---|---|
| committer | Stefan Kangas | 2024-12-12 22:48:11 +0100 |
| commit | 5ec86966638885a0f8df8afa28a01ca103ad2a49 (patch) | |
| tree | ce1d613e653327b7cc366fe46dbf75e53096fd44 /src/coding.c | |
| parent | f84ccff5a6275782a37534ed55b706db35f228ac (diff) | |
| download | emacs-5ec86966638885a0f8df8afa28a01ca103ad2a49.tar.gz emacs-5ec86966638885a0f8df8afa28a01ca103ad2a49.zip | |
Pure storage removal: Replace calls to removed functions
* src/alloc.c (string_bytes, pin_string, valid_lisp_object_p)
(process_mark_stack, survives_gc_p, syms_of_alloc):
* src/androidterm.c (android_term_init): Replace call to
'build_pure_c_string'.
* src/buffer.c (init_buffer_once, syms_of_buffer):
* src/bytecode.c (exec_byte_code):
* src/callint.c (syms_of_callint):
* src/callproc.c (syms_of_callproc):
* src/category.c (Fdefine_category):
* src/coding.c (syms_of_coding):
* src/comp.c (Fcomp__compile_ctxt_to_file0)
(maybe_defer_native_compilation, syms_of_comp):
* src/data.c (Fsetcar, Fsetcdr, Fdefalias, Faset, syms_of_data):
* src/dbusbind.c (syms_of_dbusbind):
* src/doc.c (Fsnarf_documentation):
* src/emacs-module.c (syms_of_module):
* src/eval.c (Finternal__define_uninitialized_variable)
(Fdefconst_1, define_error, syms_of_eval):
* src/fileio.c (syms_of_fileio):
* src/fns.c (Ffillarray, Fclear_string, check_mutable_hash_table):
* src/fontset.c (syms_of_fontset):
* src/frame.c (make_initial_frame):
* src/haikufns.c (syms_of_haikufns):
* src/intervals.c (create_root_interval):
* src/keyboard.c (syms_of_keyboard):
* src/keymap.c (Fmake_sparse_keymap, Fset_keymap_parent)
(store_in_keymap, syms_of_keymap):
* src/lisp.h:
* src/lread.c (Fload, read0, intern_c_string_1, define_symbol)
(Fintern, defsubr, syms_of_lread):
* src/pdumper.c (Fdump_emacs_portable):
* src/pgtkfns.c (syms_of_pgtkfns):
* src/pgtkterm.c (syms_of_pgtkterm):
* src/process.c (syms_of_process):
* src/search.c (syms_of_search):
* src/sqlite.c (syms_of_sqlite):
* src/syntax.c (syms_of_syntax):
* src/treesit.c (syms_of_treesit):
* src/w32fns.c (syms_of_w32fns):
* src/xdisp.c (syms_of_xdisp):
* src/xfaces.c (syms_of_xfaces):
* src/xfns.c (syms_of_xfns):
* src/xftfont.c (syms_of_xftfont):
* src/xterm.c (syms_of_xterm): Remove calls to 'PURE_P', 'CHECK_IMPURE',
'Fpurecopy', and replace calls to 'build_pure_c_string', 'pure_list',
'pure_listn', etc., by impure equivalents.
Diffstat (limited to 'src/coding.c')
| -rw-r--r-- | src/coding.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/coding.c b/src/coding.c index cd5a12972e6..ae7979d86eb 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -11766,7 +11766,7 @@ syms_of_coding (void) | |||
| 11766 | Vcode_conversion_reused_workbuf = Qnil; | 11766 | Vcode_conversion_reused_workbuf = Qnil; |
| 11767 | 11767 | ||
| 11768 | staticpro (&Vcode_conversion_workbuf_name); | 11768 | staticpro (&Vcode_conversion_workbuf_name); |
| 11769 | Vcode_conversion_workbuf_name = build_pure_c_string (" *code-conversion-work*"); | 11769 | Vcode_conversion_workbuf_name = build_string (" *code-conversion-work*"); |
| 11770 | 11770 | ||
| 11771 | reused_workbuf_in_use = false; | 11771 | reused_workbuf_in_use = false; |
| 11772 | PDUMPER_REMEMBER_SCALAR (reused_workbuf_in_use); | 11772 | PDUMPER_REMEMBER_SCALAR (reused_workbuf_in_use); |
| @@ -11830,9 +11830,9 @@ syms_of_coding (void) | |||
| 11830 | /* Error signaled when there's a problem with detecting a coding system. */ | 11830 | /* Error signaled when there's a problem with detecting a coding system. */ |
| 11831 | DEFSYM (Qcoding_system_error, "coding-system-error"); | 11831 | DEFSYM (Qcoding_system_error, "coding-system-error"); |
| 11832 | Fput (Qcoding_system_error, Qerror_conditions, | 11832 | Fput (Qcoding_system_error, Qerror_conditions, |
| 11833 | pure_list (Qcoding_system_error, Qerror)); | 11833 | list (Qcoding_system_error, Qerror)); |
| 11834 | Fput (Qcoding_system_error, Qerror_message, | 11834 | Fput (Qcoding_system_error, Qerror_message, |
| 11835 | build_pure_c_string ("Invalid coding system")); | 11835 | build_string ("Invalid coding system")); |
| 11836 | 11836 | ||
| 11837 | DEFSYM (Qtranslation_table, "translation-table"); | 11837 | DEFSYM (Qtranslation_table, "translation-table"); |
| 11838 | Fput (Qtranslation_table, Qchar_table_extra_slots, make_fixnum (2)); | 11838 | Fput (Qtranslation_table, Qchar_table_extra_slots, make_fixnum (2)); |
| @@ -12107,22 +12107,22 @@ used for encoding standard output and error streams. */); | |||
| 12107 | DEFVAR_LISP ("eol-mnemonic-unix", eol_mnemonic_unix, | 12107 | DEFVAR_LISP ("eol-mnemonic-unix", eol_mnemonic_unix, |
| 12108 | doc: /* | 12108 | doc: /* |
| 12109 | String displayed in mode line for UNIX-like (LF) end-of-line format. */); | 12109 | String displayed in mode line for UNIX-like (LF) end-of-line format. */); |
| 12110 | eol_mnemonic_unix = build_pure_c_string (":"); | 12110 | eol_mnemonic_unix = build_string (":"); |
| 12111 | 12111 | ||
| 12112 | DEFVAR_LISP ("eol-mnemonic-dos", eol_mnemonic_dos, | 12112 | DEFVAR_LISP ("eol-mnemonic-dos", eol_mnemonic_dos, |
| 12113 | doc: /* | 12113 | doc: /* |
| 12114 | String displayed in mode line for DOS-like (CRLF) end-of-line format. */); | 12114 | String displayed in mode line for DOS-like (CRLF) end-of-line format. */); |
| 12115 | eol_mnemonic_dos = build_pure_c_string ("\\"); | 12115 | eol_mnemonic_dos = build_string ("\\"); |
| 12116 | 12116 | ||
| 12117 | DEFVAR_LISP ("eol-mnemonic-mac", eol_mnemonic_mac, | 12117 | DEFVAR_LISP ("eol-mnemonic-mac", eol_mnemonic_mac, |
| 12118 | doc: /* | 12118 | doc: /* |
| 12119 | String displayed in mode line for MAC-like (CR) end-of-line format. */); | 12119 | String displayed in mode line for MAC-like (CR) end-of-line format. */); |
| 12120 | eol_mnemonic_mac = build_pure_c_string ("/"); | 12120 | eol_mnemonic_mac = build_string ("/"); |
| 12121 | 12121 | ||
| 12122 | DEFVAR_LISP ("eol-mnemonic-undecided", eol_mnemonic_undecided, | 12122 | DEFVAR_LISP ("eol-mnemonic-undecided", eol_mnemonic_undecided, |
| 12123 | doc: /* | 12123 | doc: /* |
| 12124 | String displayed in mode line when end-of-line format is not yet determined. */); | 12124 | String displayed in mode line when end-of-line format is not yet determined. */); |
| 12125 | eol_mnemonic_undecided = build_pure_c_string (":"); | 12125 | eol_mnemonic_undecided = build_string (":"); |
| 12126 | 12126 | ||
| 12127 | DEFVAR_LISP ("enable-character-translation", Venable_character_translation, | 12127 | DEFVAR_LISP ("enable-character-translation", Venable_character_translation, |
| 12128 | doc: /* | 12128 | doc: /* |
| @@ -12262,7 +12262,7 @@ internal character representation. */); | |||
| 12262 | intern_c_string (":for-unibyte"), | 12262 | intern_c_string (":for-unibyte"), |
| 12263 | args[coding_arg_for_unibyte] = Qt, | 12263 | args[coding_arg_for_unibyte] = Qt, |
| 12264 | intern_c_string (":docstring"), | 12264 | intern_c_string (":docstring"), |
| 12265 | (build_pure_c_string | 12265 | (build_string |
| 12266 | ("Do no conversion.\n" | 12266 | ("Do no conversion.\n" |
| 12267 | "\n" | 12267 | "\n" |
| 12268 | "When you visit a file with this coding, the file is read into a\n" | 12268 | "When you visit a file with this coding, the file is read into a\n" |
| @@ -12282,7 +12282,7 @@ internal character representation. */); | |||
| 12282 | plist[8] = intern_c_string (":charset-list"); | 12282 | plist[8] = intern_c_string (":charset-list"); |
| 12283 | plist[9] = args[coding_arg_charset_list] = list1 (Qascii); | 12283 | plist[9] = args[coding_arg_charset_list] = list1 (Qascii); |
| 12284 | plist[11] = args[coding_arg_for_unibyte] = Qnil; | 12284 | plist[11] = args[coding_arg_for_unibyte] = Qnil; |
| 12285 | plist[13] = build_pure_c_string ("No conversion on encoding, " | 12285 | plist[13] = build_string ("No conversion on encoding, " |
| 12286 | "automatic conversion on decoding."); | 12286 | "automatic conversion on decoding."); |
| 12287 | plist[15] = args[coding_arg_eol_type] = Qnil; | 12287 | plist[15] = args[coding_arg_eol_type] = Qnil; |
| 12288 | args[coding_arg_plist] = CALLMANY (Flist, plist); | 12288 | args[coding_arg_plist] = CALLMANY (Flist, plist); |