aboutsummaryrefslogtreecommitdiffstats
path: root/src/buffer.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/buffer.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/buffer.c')
-rw-r--r--src/buffer.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/buffer.c b/src/buffer.c
index 663a47ec72f..c6e7d9679ae 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -4788,8 +4788,8 @@ init_buffer_once (void)
4788 set_buffer_intervals (&buffer_defaults, NULL); 4788 set_buffer_intervals (&buffer_defaults, NULL);
4789 set_buffer_intervals (&buffer_local_symbols, NULL); 4789 set_buffer_intervals (&buffer_local_symbols, NULL);
4790 /* This is not strictly necessary, but let's make them initialized. */ 4790 /* This is not strictly necessary, but let's make them initialized. */
4791 bset_name (&buffer_defaults, build_pure_c_string (" *buffer-defaults*")); 4791 bset_name (&buffer_defaults, build_string (" *buffer-defaults*"));
4792 bset_name (&buffer_local_symbols, build_pure_c_string (" *buffer-local-symbols*")); 4792 bset_name (&buffer_local_symbols, build_string (" *buffer-local-symbols*"));
4793 BUFFER_PVEC_INIT (&buffer_defaults); 4793 BUFFER_PVEC_INIT (&buffer_defaults);
4794 BUFFER_PVEC_INIT (&buffer_local_symbols); 4794 BUFFER_PVEC_INIT (&buffer_local_symbols);
4795 4795
@@ -4797,7 +4797,7 @@ init_buffer_once (void)
4797 /* Must do these before making the first buffer! */ 4797 /* Must do these before making the first buffer! */
4798 4798
4799 /* real setup is done in bindings.el */ 4799 /* real setup is done in bindings.el */
4800 bset_mode_line_format (&buffer_defaults, build_pure_c_string ("%-")); 4800 bset_mode_line_format (&buffer_defaults, build_string ("%-"));
4801 bset_header_line_format (&buffer_defaults, Qnil); 4801 bset_header_line_format (&buffer_defaults, Qnil);
4802 bset_tab_line_format (&buffer_defaults, Qnil); 4802 bset_tab_line_format (&buffer_defaults, Qnil);
4803 bset_abbrev_mode (&buffer_defaults, Qnil); 4803 bset_abbrev_mode (&buffer_defaults, Qnil);
@@ -4865,7 +4865,7 @@ init_buffer_once (void)
4865 current_buffer = 0; 4865 current_buffer = 0;
4866 pdumper_remember_lv_ptr_raw (&current_buffer, Lisp_Vectorlike); 4866 pdumper_remember_lv_ptr_raw (&current_buffer, Lisp_Vectorlike);
4867 4867
4868 QSFundamental = build_pure_c_string ("Fundamental"); 4868 QSFundamental = build_string ("Fundamental");
4869 4869
4870 DEFSYM (Qfundamental_mode, "fundamental-mode"); 4870 DEFSYM (Qfundamental_mode, "fundamental-mode");
4871 bset_major_mode (&buffer_defaults, Qfundamental_mode); 4871 bset_major_mode (&buffer_defaults, Qfundamental_mode);
@@ -4879,10 +4879,10 @@ init_buffer_once (void)
4879 4879
4880 /* Super-magic invisible buffer. */ 4880 /* Super-magic invisible buffer. */
4881 Vprin1_to_string_buffer = 4881 Vprin1_to_string_buffer =
4882 Fget_buffer_create (build_pure_c_string (" prin1"), Qt); 4882 Fget_buffer_create (build_string (" prin1"), Qt);
4883 Vbuffer_alist = Qnil; 4883 Vbuffer_alist = Qnil;
4884 4884
4885 Fset_buffer (Fget_buffer_create (build_pure_c_string ("*scratch*"), Qnil)); 4885 Fset_buffer (Fget_buffer_create (build_string ("*scratch*"), Qnil));
4886 4886
4887 inhibit_modification_hooks = 0; 4887 inhibit_modification_hooks = 0;
4888} 4888}
@@ -5066,9 +5066,9 @@ syms_of_buffer (void)
5066 Qoverwrite_mode_binary)); 5066 Qoverwrite_mode_binary));
5067 5067
5068 Fput (Qprotected_field, Qerror_conditions, 5068 Fput (Qprotected_field, Qerror_conditions,
5069 pure_list (Qprotected_field, Qerror)); 5069 list (Qprotected_field, Qerror));
5070 Fput (Qprotected_field, Qerror_message, 5070 Fput (Qprotected_field, Qerror_message,
5071 build_pure_c_string ("Attempt to modify a protected field")); 5071 build_string ("Attempt to modify a protected field"));
5072 5072
5073 DEFSYM (Qclone_indirect_buffer_hook, "clone-indirect-buffer-hook"); 5073 DEFSYM (Qclone_indirect_buffer_hook, "clone-indirect-buffer-hook");
5074 5074