aboutsummaryrefslogtreecommitdiffstats
path: root/src/coding.c
diff options
context:
space:
mode:
authorPip Cet2024-08-20 19:00:20 +0000
committerStefan Kangas2024-12-12 22:48:11 +0100
commit5ec86966638885a0f8df8afa28a01ca103ad2a49 (patch)
treece1d613e653327b7cc366fe46dbf75e53096fd44 /src/coding.c
parentf84ccff5a6275782a37534ed55b706db35f228ac (diff)
downloademacs-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.c18
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: /*
12109String displayed in mode line for UNIX-like (LF) end-of-line format. */); 12109String 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: /*
12114String displayed in mode line for DOS-like (CRLF) end-of-line format. */); 12114String 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: /*
12119String displayed in mode line for MAC-like (CR) end-of-line format. */); 12119String 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: /*
12124String displayed in mode line when end-of-line format is not yet determined. */); 12124String 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);