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/buffer.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/buffer.c')
| -rw-r--r-- | src/buffer.c | 16 |
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 (¤t_buffer, Lisp_Vectorlike); | 4866 | pdumper_remember_lv_ptr_raw (¤t_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 | ||