diff options
| author | Paul Eggert | 2012-09-30 23:36:54 -0700 |
|---|---|---|
| committer | Paul Eggert | 2012-09-30 23:36:54 -0700 |
| commit | b0ab8123df78b7149d1f55b2ef0d3095c3f10628 (patch) | |
| tree | 14d324cb46348dbf9a4568c7050d2776259c5358 /src | |
| parent | 05584c31090df82f831f2998939fd423f036e86d (diff) | |
| download | emacs-b0ab8123df78b7149d1f55b2ef0d3095c3f10628.tar.gz emacs-b0ab8123df78b7149d1f55b2ef0d3095c3f10628.zip | |
Prefer plain 'static' to 'static inline'.
With static functions, modern compilers inline pretty well by
themselves; advice from programmers often hurts as much as it helps.
On my host (x86-64, Fedora 17, GCC 4.7.2, default 'configure'),
this change shrinks the text size of the Emacs executable by 1.1%
without affecting CPU significantly in my benchmark.
* alloc.c (mem_find, live_string_p, live_cons_p, live_symbol_p)
(live_float_p, live_misc_p, live_vector_p, live_buffer_p)
(mark_maybe_object, mark_maybe_pointer, bounded_number):
* buffer.c (bset_abbrev_mode, bset_abbrev_table)
(bset_auto_fill_function, bset_auto_save_file_format)
(bset_auto_save_file_name, bset_backed_up, bset_begv_marker)
(bset_bidi_display_reordering, bset_buffer_file_coding_system)
(bset_cache_long_line_scans, bset_case_fold_search)
(bset_ctl_arrow, bset_cursor_in_non_selected_windows)
(bset_cursor_type, bset_display_table, bset_extra_line_spacing)
(bset_file_format, bset_file_truename, bset_fringe_cursor_alist)
(bset_fringe_indicator_alist, bset_fringes_outside_margins)
(bset_header_line_format, bset_indicate_buffer_boundaries)
(bset_indicate_empty_lines, bset_invisibility_spec)
(bset_left_fringe_width, bset_major_mode, bset_mark)
(bset_minor_modes, bset_mode_line_format, bset_mode_name)
(bset_name, bset_overwrite_mode, bset_pt_marker)
(bset_right_fringe_width, bset_save_length)
(bset_scroll_bar_width, bset_scroll_down_aggressively)
(bset_scroll_up_aggressively, bset_selective_display)
(bset_selective_display_ellipses, bset_vertical_scroll_bar_type)
(bset_word_wrap, bset_zv_marker, set_buffer_overlays_before)
(set_buffer_overlays_after):
* category.c (bset_category_table):
* charset.c (read_hex):
* coding.c (produce_composition, produce_charset)
(handle_composition_annotation, handle_charset_annotation)
(char_encodable_p):
* dispnew.c (swap_glyph_pointers, copy_row_except_pointers)
(assign_row, set_frame_matrix_frame, make_current)
(add_row_entry):
* eval.c (set_specpdl_symbol, set_specpdl_old_value):
* fns.c (maybe_resize_hash_table):
* frame.c (fset_buffer_predicate, fset_minibuffer_window):
* gmalloc.c (register_heapinfo):
* image.c (lookup_image_type):
* intervals.c (set_interval_object, set_interval_left)
(set_interval_right, copy_interval_parent, rotate_right)
(rotate_left, balance_possible_root_interval):
* keyboard.c (kset_echo_string, kset_kbd_queue)
(kset_keyboard_translate_table, kset_last_prefix_arg)
(kset_last_repeatable_command, kset_local_function_key_map)
(kset_overriding_terminal_local_map, kset_real_last_command)
(kset_system_key_syms, clear_event, set_prop):
* lread.c (digit_to_number):
* marker.c (attach_marker, live_buffer, set_marker_internal):
* nsterm.m (ns_compute_glyph_string_overhangs):
* process.c (pset_buffer, pset_command)
(pset_decode_coding_system, pset_decoding_buf)
(pset_encode_coding_system, pset_encoding_buf, pset_filter)
(pset_log, pset_mark, pset_name, pset_plist, pset_sentinel)
(pset_status, pset_tty_name, pset_type, pset_write_queue):
* syntax.c (bset_syntax_table, dec_bytepos):
* terminal.c (tset_param_alist):
* textprop.c (interval_has_some_properties)
(interval_has_some_properties_list):
* window.c (wset_combination_limit, wset_dedicated)
(wset_display_table, wset_hchild, wset_left_fringe_width)
(wset_left_margin_cols, wset_new_normal, wset_new_total)
(wset_normal_cols, wset_normal_lines, wset_parent, wset_pointm)
(wset_right_fringe_width, wset_right_margin_cols)
(wset_scroll_bar_width, wset_start, wset_temslot, wset_vchild)
(wset_vertical_scroll_bar_type, wset_window_parameters):
* xdisp.c (wset_base_line_number, wset_base_line_pos)
(wset_column_number_displayed, wset_region_showing)
(window_box_edges, run_window_scroll_functions)
(append_glyph_string_lists, prepend_glyph_string_lists)
(append_glyph_string, set_glyph_string_background_width)
(append_glyph, append_composite_glyph)
(take_vertical_position_into_account):
* xfaces.c (x_create_gc, x_free_gc, merge_face_vectors)
(face_attr_equal_p, lface_equal_p, hash_string_case_insensitive)
(lface_hash, lface_same_font_attributes_p, lookup_face):
* xml.c (libxml2_loaded_p):
* xterm.c (x_set_mode_line_face_gc, x_set_glyph_string_gc)
(x_set_glyph_string_clipping, x_clear_glyph_string_rect):
Now 'static', not 'static inline'.
Fixes: debbugs:12541
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 84 | ||||
| -rw-r--r-- | src/alloc.c | 24 | ||||
| -rw-r--r-- | src/buffer.c | 92 | ||||
| -rw-r--r-- | src/category.c | 2 | ||||
| -rw-r--r-- | src/charset.c | 2 | ||||
| -rw-r--r-- | src/coding.c | 10 | ||||
| -rw-r--r-- | src/dispnew.c | 14 | ||||
| -rw-r--r-- | src/eval.c | 4 | ||||
| -rw-r--r-- | src/fns.c | 2 | ||||
| -rw-r--r-- | src/frame.c | 4 | ||||
| -rw-r--r-- | src/gmalloc.c | 2 | ||||
| -rw-r--r-- | src/intervals.c | 14 | ||||
| -rw-r--r-- | src/keyboard.c | 22 | ||||
| -rw-r--r-- | src/lread.c | 2 | ||||
| -rw-r--r-- | src/marker.c | 6 | ||||
| -rw-r--r-- | src/nsterm.m | 2 | ||||
| -rw-r--r-- | src/process.c | 32 | ||||
| -rw-r--r-- | src/syntax.c | 4 | ||||
| -rw-r--r-- | src/terminal.c | 2 | ||||
| -rw-r--r-- | src/textprop.c | 4 | ||||
| -rw-r--r-- | src/window.c | 40 | ||||
| -rw-r--r-- | src/xdisp.c | 42 | ||||
| -rw-r--r-- | src/xfaces.c | 38 | ||||
| -rw-r--r-- | src/xml.c | 2 | ||||
| -rw-r--r-- | src/xterm.c | 8 |
25 files changed, 271 insertions, 187 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index b8471445479..ec629fb9f10 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,5 +1,89 @@ | |||
| 1 | 2012-10-01 Paul Eggert <eggert@cs.ucla.edu> | 1 | 2012-10-01 Paul Eggert <eggert@cs.ucla.edu> |
| 2 | 2 | ||
| 3 | Prefer plain 'static' to 'static inline' (Bug#12541). | ||
| 4 | With static functions, modern compilers inline pretty well by | ||
| 5 | themselves; advice from programmers often hurts as much as it helps. | ||
| 6 | On my host (x86-64, Fedora 17, GCC 4.7.2, default 'configure'), | ||
| 7 | this change shrinks the text size of the Emacs executable by 1.1% | ||
| 8 | without affecting CPU significantly in my benchmark. | ||
| 9 | * alloc.c (mem_find, live_string_p, live_cons_p, live_symbol_p) | ||
| 10 | (live_float_p, live_misc_p, live_vector_p, live_buffer_p) | ||
| 11 | (mark_maybe_object, mark_maybe_pointer, bounded_number): | ||
| 12 | * buffer.c (bset_abbrev_mode, bset_abbrev_table) | ||
| 13 | (bset_auto_fill_function, bset_auto_save_file_format) | ||
| 14 | (bset_auto_save_file_name, bset_backed_up, bset_begv_marker) | ||
| 15 | (bset_bidi_display_reordering, bset_buffer_file_coding_system) | ||
| 16 | (bset_cache_long_line_scans, bset_case_fold_search) | ||
| 17 | (bset_ctl_arrow, bset_cursor_in_non_selected_windows) | ||
| 18 | (bset_cursor_type, bset_display_table, bset_extra_line_spacing) | ||
| 19 | (bset_file_format, bset_file_truename, bset_fringe_cursor_alist) | ||
| 20 | (bset_fringe_indicator_alist, bset_fringes_outside_margins) | ||
| 21 | (bset_header_line_format, bset_indicate_buffer_boundaries) | ||
| 22 | (bset_indicate_empty_lines, bset_invisibility_spec) | ||
| 23 | (bset_left_fringe_width, bset_major_mode, bset_mark) | ||
| 24 | (bset_minor_modes, bset_mode_line_format, bset_mode_name) | ||
| 25 | (bset_name, bset_overwrite_mode, bset_pt_marker) | ||
| 26 | (bset_right_fringe_width, bset_save_length) | ||
| 27 | (bset_scroll_bar_width, bset_scroll_down_aggressively) | ||
| 28 | (bset_scroll_up_aggressively, bset_selective_display) | ||
| 29 | (bset_selective_display_ellipses, bset_vertical_scroll_bar_type) | ||
| 30 | (bset_word_wrap, bset_zv_marker, set_buffer_overlays_before) | ||
| 31 | (set_buffer_overlays_after): | ||
| 32 | * category.c (bset_category_table): | ||
| 33 | * charset.c (read_hex): | ||
| 34 | * coding.c (produce_composition, produce_charset) | ||
| 35 | (handle_composition_annotation, handle_charset_annotation) | ||
| 36 | (char_encodable_p): | ||
| 37 | * dispnew.c (swap_glyph_pointers, copy_row_except_pointers) | ||
| 38 | (assign_row, set_frame_matrix_frame, make_current) | ||
| 39 | (add_row_entry): | ||
| 40 | * eval.c (set_specpdl_symbol, set_specpdl_old_value): | ||
| 41 | * fns.c (maybe_resize_hash_table): | ||
| 42 | * frame.c (fset_buffer_predicate, fset_minibuffer_window): | ||
| 43 | * gmalloc.c (register_heapinfo): | ||
| 44 | * image.c (lookup_image_type): | ||
| 45 | * intervals.c (set_interval_object, set_interval_left) | ||
| 46 | (set_interval_right, copy_interval_parent, rotate_right) | ||
| 47 | (rotate_left, balance_possible_root_interval): | ||
| 48 | * keyboard.c (kset_echo_string, kset_kbd_queue) | ||
| 49 | (kset_keyboard_translate_table, kset_last_prefix_arg) | ||
| 50 | (kset_last_repeatable_command, kset_local_function_key_map) | ||
| 51 | (kset_overriding_terminal_local_map, kset_real_last_command) | ||
| 52 | (kset_system_key_syms, clear_event, set_prop): | ||
| 53 | * lread.c (digit_to_number): | ||
| 54 | * marker.c (attach_marker, live_buffer, set_marker_internal): | ||
| 55 | * nsterm.m (ns_compute_glyph_string_overhangs): | ||
| 56 | * process.c (pset_buffer, pset_command) | ||
| 57 | (pset_decode_coding_system, pset_decoding_buf) | ||
| 58 | (pset_encode_coding_system, pset_encoding_buf, pset_filter) | ||
| 59 | (pset_log, pset_mark, pset_name, pset_plist, pset_sentinel) | ||
| 60 | (pset_status, pset_tty_name, pset_type, pset_write_queue): | ||
| 61 | * syntax.c (bset_syntax_table, dec_bytepos): | ||
| 62 | * terminal.c (tset_param_alist): | ||
| 63 | * textprop.c (interval_has_some_properties) | ||
| 64 | (interval_has_some_properties_list): | ||
| 65 | * window.c (wset_combination_limit, wset_dedicated) | ||
| 66 | (wset_display_table, wset_hchild, wset_left_fringe_width) | ||
| 67 | (wset_left_margin_cols, wset_new_normal, wset_new_total) | ||
| 68 | (wset_normal_cols, wset_normal_lines, wset_parent, wset_pointm) | ||
| 69 | (wset_right_fringe_width, wset_right_margin_cols) | ||
| 70 | (wset_scroll_bar_width, wset_start, wset_temslot, wset_vchild) | ||
| 71 | (wset_vertical_scroll_bar_type, wset_window_parameters): | ||
| 72 | * xdisp.c (wset_base_line_number, wset_base_line_pos) | ||
| 73 | (wset_column_number_displayed, wset_region_showing) | ||
| 74 | (window_box_edges, run_window_scroll_functions) | ||
| 75 | (append_glyph_string_lists, prepend_glyph_string_lists) | ||
| 76 | (append_glyph_string, set_glyph_string_background_width) | ||
| 77 | (append_glyph, append_composite_glyph) | ||
| 78 | (take_vertical_position_into_account): | ||
| 79 | * xfaces.c (x_create_gc, x_free_gc, merge_face_vectors) | ||
| 80 | (face_attr_equal_p, lface_equal_p, hash_string_case_insensitive) | ||
| 81 | (lface_hash, lface_same_font_attributes_p, lookup_face): | ||
| 82 | * xml.c (libxml2_loaded_p): | ||
| 83 | * xterm.c (x_set_mode_line_face_gc, x_set_glyph_string_gc) | ||
| 84 | (x_set_glyph_string_clipping, x_clear_glyph_string_rect): | ||
| 85 | Now 'static', not 'static inline'. | ||
| 86 | |||
| 3 | * bidi.c: Tune. | 87 | * bidi.c: Tune. |
| 4 | (bidi_copy_it): Do the whole copy with a single memcpy. | 88 | (bidi_copy_it): Do the whole copy with a single memcpy. |
| 5 | (bidi_char_at_pos): Merge the two STRING_CHAR calls into one. | 89 | (bidi_char_at_pos): Merge the two STRING_CHAR calls into one. |
diff --git a/src/alloc.c b/src/alloc.c index 9278f226b69..3ed8cc2d990 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -355,7 +355,7 @@ static void mem_rotate_left (struct mem_node *); | |||
| 355 | static void mem_rotate_right (struct mem_node *); | 355 | static void mem_rotate_right (struct mem_node *); |
| 356 | static void mem_delete (struct mem_node *); | 356 | static void mem_delete (struct mem_node *); |
| 357 | static void mem_delete_fixup (struct mem_node *); | 357 | static void mem_delete_fixup (struct mem_node *); |
| 358 | static inline struct mem_node *mem_find (void *); | 358 | static struct mem_node *mem_find (void *); |
| 359 | #endif | 359 | #endif |
| 360 | 360 | ||
| 361 | 361 | ||
| @@ -3550,7 +3550,7 @@ mem_init (void) | |||
| 3550 | /* Value is a pointer to the mem_node containing START. Value is | 3550 | /* Value is a pointer to the mem_node containing START. Value is |
| 3551 | MEM_NIL if there is no node in the tree containing START. */ | 3551 | MEM_NIL if there is no node in the tree containing START. */ |
| 3552 | 3552 | ||
| 3553 | static inline struct mem_node * | 3553 | static struct mem_node * |
| 3554 | mem_find (void *start) | 3554 | mem_find (void *start) |
| 3555 | { | 3555 | { |
| 3556 | struct mem_node *p; | 3556 | struct mem_node *p; |
| @@ -3926,7 +3926,7 @@ mem_delete_fixup (struct mem_node *x) | |||
| 3926 | /* Value is non-zero if P is a pointer to a live Lisp string on | 3926 | /* Value is non-zero if P is a pointer to a live Lisp string on |
| 3927 | the heap. M is a pointer to the mem_block for P. */ | 3927 | the heap. M is a pointer to the mem_block for P. */ |
| 3928 | 3928 | ||
| 3929 | static inline bool | 3929 | static bool |
| 3930 | live_string_p (struct mem_node *m, void *p) | 3930 | live_string_p (struct mem_node *m, void *p) |
| 3931 | { | 3931 | { |
| 3932 | if (m->type == MEM_TYPE_STRING) | 3932 | if (m->type == MEM_TYPE_STRING) |
| @@ -3949,7 +3949,7 @@ live_string_p (struct mem_node *m, void *p) | |||
| 3949 | /* Value is non-zero if P is a pointer to a live Lisp cons on | 3949 | /* Value is non-zero if P is a pointer to a live Lisp cons on |
| 3950 | the heap. M is a pointer to the mem_block for P. */ | 3950 | the heap. M is a pointer to the mem_block for P. */ |
| 3951 | 3951 | ||
| 3952 | static inline bool | 3952 | static bool |
| 3953 | live_cons_p (struct mem_node *m, void *p) | 3953 | live_cons_p (struct mem_node *m, void *p) |
| 3954 | { | 3954 | { |
| 3955 | if (m->type == MEM_TYPE_CONS) | 3955 | if (m->type == MEM_TYPE_CONS) |
| @@ -3975,7 +3975,7 @@ live_cons_p (struct mem_node *m, void *p) | |||
| 3975 | /* Value is non-zero if P is a pointer to a live Lisp symbol on | 3975 | /* Value is non-zero if P is a pointer to a live Lisp symbol on |
| 3976 | the heap. M is a pointer to the mem_block for P. */ | 3976 | the heap. M is a pointer to the mem_block for P. */ |
| 3977 | 3977 | ||
| 3978 | static inline bool | 3978 | static bool |
| 3979 | live_symbol_p (struct mem_node *m, void *p) | 3979 | live_symbol_p (struct mem_node *m, void *p) |
| 3980 | { | 3980 | { |
| 3981 | if (m->type == MEM_TYPE_SYMBOL) | 3981 | if (m->type == MEM_TYPE_SYMBOL) |
| @@ -4001,7 +4001,7 @@ live_symbol_p (struct mem_node *m, void *p) | |||
| 4001 | /* Value is non-zero if P is a pointer to a live Lisp float on | 4001 | /* Value is non-zero if P is a pointer to a live Lisp float on |
| 4002 | the heap. M is a pointer to the mem_block for P. */ | 4002 | the heap. M is a pointer to the mem_block for P. */ |
| 4003 | 4003 | ||
| 4004 | static inline bool | 4004 | static bool |
| 4005 | live_float_p (struct mem_node *m, void *p) | 4005 | live_float_p (struct mem_node *m, void *p) |
| 4006 | { | 4006 | { |
| 4007 | if (m->type == MEM_TYPE_FLOAT) | 4007 | if (m->type == MEM_TYPE_FLOAT) |
| @@ -4025,7 +4025,7 @@ live_float_p (struct mem_node *m, void *p) | |||
| 4025 | /* Value is non-zero if P is a pointer to a live Lisp Misc on | 4025 | /* Value is non-zero if P is a pointer to a live Lisp Misc on |
| 4026 | the heap. M is a pointer to the mem_block for P. */ | 4026 | the heap. M is a pointer to the mem_block for P. */ |
| 4027 | 4027 | ||
| 4028 | static inline bool | 4028 | static bool |
| 4029 | live_misc_p (struct mem_node *m, void *p) | 4029 | live_misc_p (struct mem_node *m, void *p) |
| 4030 | { | 4030 | { |
| 4031 | if (m->type == MEM_TYPE_MISC) | 4031 | if (m->type == MEM_TYPE_MISC) |
| @@ -4051,7 +4051,7 @@ live_misc_p (struct mem_node *m, void *p) | |||
| 4051 | /* Value is non-zero if P is a pointer to a live vector-like object. | 4051 | /* Value is non-zero if P is a pointer to a live vector-like object. |
| 4052 | M is a pointer to the mem_block for P. */ | 4052 | M is a pointer to the mem_block for P. */ |
| 4053 | 4053 | ||
| 4054 | static inline bool | 4054 | static bool |
| 4055 | live_vector_p (struct mem_node *m, void *p) | 4055 | live_vector_p (struct mem_node *m, void *p) |
| 4056 | { | 4056 | { |
| 4057 | if (m->type == MEM_TYPE_VECTOR_BLOCK) | 4057 | if (m->type == MEM_TYPE_VECTOR_BLOCK) |
| @@ -4087,7 +4087,7 @@ live_vector_p (struct mem_node *m, void *p) | |||
| 4087 | /* Value is non-zero if P is a pointer to a live buffer. M is a | 4087 | /* Value is non-zero if P is a pointer to a live buffer. M is a |
| 4088 | pointer to the mem_block for P. */ | 4088 | pointer to the mem_block for P. */ |
| 4089 | 4089 | ||
| 4090 | static inline bool | 4090 | static bool |
| 4091 | live_buffer_p (struct mem_node *m, void *p) | 4091 | live_buffer_p (struct mem_node *m, void *p) |
| 4092 | { | 4092 | { |
| 4093 | /* P must point to the start of the block, and the buffer | 4093 | /* P must point to the start of the block, and the buffer |
| @@ -4153,7 +4153,7 @@ DEFUN ("gc-status", Fgc_status, Sgc_status, 0, 0, "", | |||
| 4153 | 4153 | ||
| 4154 | /* Mark OBJ if we can prove it's a Lisp_Object. */ | 4154 | /* Mark OBJ if we can prove it's a Lisp_Object. */ |
| 4155 | 4155 | ||
| 4156 | static inline void | 4156 | static void |
| 4157 | mark_maybe_object (Lisp_Object obj) | 4157 | mark_maybe_object (Lisp_Object obj) |
| 4158 | { | 4158 | { |
| 4159 | void *po; | 4159 | void *po; |
| @@ -4222,7 +4222,7 @@ mark_maybe_object (Lisp_Object obj) | |||
| 4222 | /* If P points to Lisp data, mark that as live if it isn't already | 4222 | /* If P points to Lisp data, mark that as live if it isn't already |
| 4223 | marked. */ | 4223 | marked. */ |
| 4224 | 4224 | ||
| 4225 | static inline void | 4225 | static void |
| 4226 | mark_maybe_pointer (void *p) | 4226 | mark_maybe_pointer (void *p) |
| 4227 | { | 4227 | { |
| 4228 | struct mem_node *m; | 4228 | struct mem_node *m; |
| @@ -5052,7 +5052,7 @@ inhibit_garbage_collection (void) | |||
| 5052 | /* Used to avoid possible overflows when | 5052 | /* Used to avoid possible overflows when |
| 5053 | converting from C to Lisp integers. */ | 5053 | converting from C to Lisp integers. */ |
| 5054 | 5054 | ||
| 5055 | static inline Lisp_Object | 5055 | static Lisp_Object |
| 5056 | bounded_number (EMACS_INT number) | 5056 | bounded_number (EMACS_INT number) |
| 5057 | { | 5057 | { |
| 5058 | return make_number (min (MOST_POSITIVE_FIXNUM, number)); | 5058 | return make_number (min (MOST_POSITIVE_FIXNUM, number)); |
diff --git a/src/buffer.c b/src/buffer.c index 356a308fce6..580ea671b43 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -150,222 +150,222 @@ static void modify_overlay (struct buffer *, ptrdiff_t, ptrdiff_t); | |||
| 150 | static Lisp_Object buffer_lisp_local_variables (struct buffer *, bool); | 150 | static Lisp_Object buffer_lisp_local_variables (struct buffer *, bool); |
| 151 | 151 | ||
| 152 | /* These setters are used only in this file, so they can be private. */ | 152 | /* These setters are used only in this file, so they can be private. */ |
| 153 | static inline void | 153 | static void |
| 154 | bset_abbrev_mode (struct buffer *b, Lisp_Object val) | 154 | bset_abbrev_mode (struct buffer *b, Lisp_Object val) |
| 155 | { | 155 | { |
| 156 | b->INTERNAL_FIELD (abbrev_mode) = val; | 156 | b->INTERNAL_FIELD (abbrev_mode) = val; |
| 157 | } | 157 | } |
| 158 | static inline void | 158 | static void |
| 159 | bset_abbrev_table (struct buffer *b, Lisp_Object val) | 159 | bset_abbrev_table (struct buffer *b, Lisp_Object val) |
| 160 | { | 160 | { |
| 161 | b->INTERNAL_FIELD (abbrev_table) = val; | 161 | b->INTERNAL_FIELD (abbrev_table) = val; |
| 162 | } | 162 | } |
| 163 | static inline void | 163 | static void |
| 164 | bset_auto_fill_function (struct buffer *b, Lisp_Object val) | 164 | bset_auto_fill_function (struct buffer *b, Lisp_Object val) |
| 165 | { | 165 | { |
| 166 | b->INTERNAL_FIELD (auto_fill_function) = val; | 166 | b->INTERNAL_FIELD (auto_fill_function) = val; |
| 167 | } | 167 | } |
| 168 | static inline void | 168 | static void |
| 169 | bset_auto_save_file_format (struct buffer *b, Lisp_Object val) | 169 | bset_auto_save_file_format (struct buffer *b, Lisp_Object val) |
| 170 | { | 170 | { |
| 171 | b->INTERNAL_FIELD (auto_save_file_format) = val; | 171 | b->INTERNAL_FIELD (auto_save_file_format) = val; |
| 172 | } | 172 | } |
| 173 | static inline void | 173 | static void |
| 174 | bset_auto_save_file_name (struct buffer *b, Lisp_Object val) | 174 | bset_auto_save_file_name (struct buffer *b, Lisp_Object val) |
| 175 | { | 175 | { |
| 176 | b->INTERNAL_FIELD (auto_save_file_name) = val; | 176 | b->INTERNAL_FIELD (auto_save_file_name) = val; |
| 177 | } | 177 | } |
| 178 | static inline void | 178 | static void |
| 179 | bset_backed_up (struct buffer *b, Lisp_Object val) | 179 | bset_backed_up (struct buffer *b, Lisp_Object val) |
| 180 | { | 180 | { |
| 181 | b->INTERNAL_FIELD (backed_up) = val; | 181 | b->INTERNAL_FIELD (backed_up) = val; |
| 182 | } | 182 | } |
| 183 | static inline void | 183 | static void |
| 184 | bset_begv_marker (struct buffer *b, Lisp_Object val) | 184 | bset_begv_marker (struct buffer *b, Lisp_Object val) |
| 185 | { | 185 | { |
| 186 | b->INTERNAL_FIELD (begv_marker) = val; | 186 | b->INTERNAL_FIELD (begv_marker) = val; |
| 187 | } | 187 | } |
| 188 | static inline void | 188 | static void |
| 189 | bset_bidi_display_reordering (struct buffer *b, Lisp_Object val) | 189 | bset_bidi_display_reordering (struct buffer *b, Lisp_Object val) |
| 190 | { | 190 | { |
| 191 | b->INTERNAL_FIELD (bidi_display_reordering) = val; | 191 | b->INTERNAL_FIELD (bidi_display_reordering) = val; |
| 192 | } | 192 | } |
| 193 | static inline void | 193 | static void |
| 194 | bset_buffer_file_coding_system (struct buffer *b, Lisp_Object val) | 194 | bset_buffer_file_coding_system (struct buffer *b, Lisp_Object val) |
| 195 | { | 195 | { |
| 196 | b->INTERNAL_FIELD (buffer_file_coding_system) = val; | 196 | b->INTERNAL_FIELD (buffer_file_coding_system) = val; |
| 197 | } | 197 | } |
| 198 | static inline void | 198 | static void |
| 199 | bset_cache_long_line_scans (struct buffer *b, Lisp_Object val) | 199 | bset_cache_long_line_scans (struct buffer *b, Lisp_Object val) |
| 200 | { | 200 | { |
| 201 | b->INTERNAL_FIELD (cache_long_line_scans) = val; | 201 | b->INTERNAL_FIELD (cache_long_line_scans) = val; |
| 202 | } | 202 | } |
| 203 | static inline void | 203 | static void |
| 204 | bset_case_fold_search (struct buffer *b, Lisp_Object val) | 204 | bset_case_fold_search (struct buffer *b, Lisp_Object val) |
| 205 | { | 205 | { |
| 206 | b->INTERNAL_FIELD (case_fold_search) = val; | 206 | b->INTERNAL_FIELD (case_fold_search) = val; |
| 207 | } | 207 | } |
| 208 | static inline void | 208 | static void |
| 209 | bset_ctl_arrow (struct buffer *b, Lisp_Object val) | 209 | bset_ctl_arrow (struct buffer *b, Lisp_Object val) |
| 210 | { | 210 | { |
| 211 | b->INTERNAL_FIELD (ctl_arrow) = val; | 211 | b->INTERNAL_FIELD (ctl_arrow) = val; |
| 212 | } | 212 | } |
| 213 | static inline void | 213 | static void |
| 214 | bset_cursor_in_non_selected_windows (struct buffer *b, Lisp_Object val) | 214 | bset_cursor_in_non_selected_windows (struct buffer *b, Lisp_Object val) |
| 215 | { | 215 | { |
| 216 | b->INTERNAL_FIELD (cursor_in_non_selected_windows) = val; | 216 | b->INTERNAL_FIELD (cursor_in_non_selected_windows) = val; |
| 217 | } | 217 | } |
| 218 | static inline void | 218 | static void |
| 219 | bset_cursor_type (struct buffer *b, Lisp_Object val) | 219 | bset_cursor_type (struct buffer *b, Lisp_Object val) |
| 220 | { | 220 | { |
| 221 | b->INTERNAL_FIELD (cursor_type) = val; | 221 | b->INTERNAL_FIELD (cursor_type) = val; |
| 222 | } | 222 | } |
| 223 | static inline void | 223 | static void |
| 224 | bset_display_table (struct buffer *b, Lisp_Object val) | 224 | bset_display_table (struct buffer *b, Lisp_Object val) |
| 225 | { | 225 | { |
| 226 | b->INTERNAL_FIELD (display_table) = val; | 226 | b->INTERNAL_FIELD (display_table) = val; |
| 227 | } | 227 | } |
| 228 | static inline void | 228 | static void |
| 229 | bset_extra_line_spacing (struct buffer *b, Lisp_Object val) | 229 | bset_extra_line_spacing (struct buffer *b, Lisp_Object val) |
| 230 | { | 230 | { |
| 231 | b->INTERNAL_FIELD (extra_line_spacing) = val; | 231 | b->INTERNAL_FIELD (extra_line_spacing) = val; |
| 232 | } | 232 | } |
| 233 | static inline void | 233 | static void |
| 234 | bset_file_format (struct buffer *b, Lisp_Object val) | 234 | bset_file_format (struct buffer *b, Lisp_Object val) |
| 235 | { | 235 | { |
| 236 | b->INTERNAL_FIELD (file_format) = val; | 236 | b->INTERNAL_FIELD (file_format) = val; |
| 237 | } | 237 | } |
| 238 | static inline void | 238 | static void |
| 239 | bset_file_truename (struct buffer *b, Lisp_Object val) | 239 | bset_file_truename (struct buffer *b, Lisp_Object val) |
| 240 | { | 240 | { |
| 241 | b->INTERNAL_FIELD (file_truename) = val; | 241 | b->INTERNAL_FIELD (file_truename) = val; |
| 242 | } | 242 | } |
| 243 | static inline void | 243 | static void |
| 244 | bset_fringe_cursor_alist (struct buffer *b, Lisp_Object val) | 244 | bset_fringe_cursor_alist (struct buffer *b, Lisp_Object val) |
| 245 | { | 245 | { |
| 246 | b->INTERNAL_FIELD (fringe_cursor_alist) = val; | 246 | b->INTERNAL_FIELD (fringe_cursor_alist) = val; |
| 247 | } | 247 | } |
| 248 | static inline void | 248 | static void |
| 249 | bset_fringe_indicator_alist (struct buffer *b, Lisp_Object val) | 249 | bset_fringe_indicator_alist (struct buffer *b, Lisp_Object val) |
| 250 | { | 250 | { |
| 251 | b->INTERNAL_FIELD (fringe_indicator_alist) = val; | 251 | b->INTERNAL_FIELD (fringe_indicator_alist) = val; |
| 252 | } | 252 | } |
| 253 | static inline void | 253 | static void |
| 254 | bset_fringes_outside_margins (struct buffer *b, Lisp_Object val) | 254 | bset_fringes_outside_margins (struct buffer *b, Lisp_Object val) |
| 255 | { | 255 | { |
| 256 | b->INTERNAL_FIELD (fringes_outside_margins) = val; | 256 | b->INTERNAL_FIELD (fringes_outside_margins) = val; |
| 257 | } | 257 | } |
| 258 | static inline void | 258 | static void |
| 259 | bset_header_line_format (struct buffer *b, Lisp_Object val) | 259 | bset_header_line_format (struct buffer *b, Lisp_Object val) |
| 260 | { | 260 | { |
| 261 | b->INTERNAL_FIELD (header_line_format) = val; | 261 | b->INTERNAL_FIELD (header_line_format) = val; |
| 262 | } | 262 | } |
| 263 | static inline void | 263 | static void |
| 264 | bset_indicate_buffer_boundaries (struct buffer *b, Lisp_Object val) | 264 | bset_indicate_buffer_boundaries (struct buffer *b, Lisp_Object val) |
| 265 | { | 265 | { |
| 266 | b->INTERNAL_FIELD (indicate_buffer_boundaries) = val; | 266 | b->INTERNAL_FIELD (indicate_buffer_boundaries) = val; |
| 267 | } | 267 | } |
| 268 | static inline void | 268 | static void |
| 269 | bset_indicate_empty_lines (struct buffer *b, Lisp_Object val) | 269 | bset_indicate_empty_lines (struct buffer *b, Lisp_Object val) |
| 270 | { | 270 | { |
| 271 | b->INTERNAL_FIELD (indicate_empty_lines) = val; | 271 | b->INTERNAL_FIELD (indicate_empty_lines) = val; |
| 272 | } | 272 | } |
| 273 | static inline void | 273 | static void |
| 274 | bset_invisibility_spec (struct buffer *b, Lisp_Object val) | 274 | bset_invisibility_spec (struct buffer *b, Lisp_Object val) |
| 275 | { | 275 | { |
| 276 | b->INTERNAL_FIELD (invisibility_spec) = val; | 276 | b->INTERNAL_FIELD (invisibility_spec) = val; |
| 277 | } | 277 | } |
| 278 | static inline void | 278 | static void |
| 279 | bset_left_fringe_width (struct buffer *b, Lisp_Object val) | 279 | bset_left_fringe_width (struct buffer *b, Lisp_Object val) |
| 280 | { | 280 | { |
| 281 | b->INTERNAL_FIELD (left_fringe_width) = val; | 281 | b->INTERNAL_FIELD (left_fringe_width) = val; |
| 282 | } | 282 | } |
| 283 | static inline void | 283 | static void |
| 284 | bset_major_mode (struct buffer *b, Lisp_Object val) | 284 | bset_major_mode (struct buffer *b, Lisp_Object val) |
| 285 | { | 285 | { |
| 286 | b->INTERNAL_FIELD (major_mode) = val; | 286 | b->INTERNAL_FIELD (major_mode) = val; |
| 287 | } | 287 | } |
| 288 | static inline void | 288 | static void |
| 289 | bset_mark (struct buffer *b, Lisp_Object val) | 289 | bset_mark (struct buffer *b, Lisp_Object val) |
| 290 | { | 290 | { |
| 291 | b->INTERNAL_FIELD (mark) = val; | 291 | b->INTERNAL_FIELD (mark) = val; |
| 292 | } | 292 | } |
| 293 | static inline void | 293 | static void |
| 294 | bset_minor_modes (struct buffer *b, Lisp_Object val) | 294 | bset_minor_modes (struct buffer *b, Lisp_Object val) |
| 295 | { | 295 | { |
| 296 | b->INTERNAL_FIELD (minor_modes) = val; | 296 | b->INTERNAL_FIELD (minor_modes) = val; |
| 297 | } | 297 | } |
| 298 | static inline void | 298 | static void |
| 299 | bset_mode_line_format (struct buffer *b, Lisp_Object val) | 299 | bset_mode_line_format (struct buffer *b, Lisp_Object val) |
| 300 | { | 300 | { |
| 301 | b->INTERNAL_FIELD (mode_line_format) = val; | 301 | b->INTERNAL_FIELD (mode_line_format) = val; |
| 302 | } | 302 | } |
| 303 | static inline void | 303 | static void |
| 304 | bset_mode_name (struct buffer *b, Lisp_Object val) | 304 | bset_mode_name (struct buffer *b, Lisp_Object val) |
| 305 | { | 305 | { |
| 306 | b->INTERNAL_FIELD (mode_name) = val; | 306 | b->INTERNAL_FIELD (mode_name) = val; |
| 307 | } | 307 | } |
| 308 | static inline void | 308 | static void |
| 309 | bset_name (struct buffer *b, Lisp_Object val) | 309 | bset_name (struct buffer *b, Lisp_Object val) |
| 310 | { | 310 | { |
| 311 | b->INTERNAL_FIELD (name) = val; | 311 | b->INTERNAL_FIELD (name) = val; |
| 312 | } | 312 | } |
| 313 | static inline void | 313 | static void |
| 314 | bset_overwrite_mode (struct buffer *b, Lisp_Object val) | 314 | bset_overwrite_mode (struct buffer *b, Lisp_Object val) |
| 315 | { | 315 | { |
| 316 | b->INTERNAL_FIELD (overwrite_mode) = val; | 316 | b->INTERNAL_FIELD (overwrite_mode) = val; |
| 317 | } | 317 | } |
| 318 | static inline void | 318 | static void |
| 319 | bset_pt_marker (struct buffer *b, Lisp_Object val) | 319 | bset_pt_marker (struct buffer *b, Lisp_Object val) |
| 320 | { | 320 | { |
| 321 | b->INTERNAL_FIELD (pt_marker) = val; | 321 | b->INTERNAL_FIELD (pt_marker) = val; |
| 322 | } | 322 | } |
| 323 | static inline void | 323 | static void |
| 324 | bset_right_fringe_width (struct buffer *b, Lisp_Object val) | 324 | bset_right_fringe_width (struct buffer *b, Lisp_Object val) |
| 325 | { | 325 | { |
| 326 | b->INTERNAL_FIELD (right_fringe_width) = val; | 326 | b->INTERNAL_FIELD (right_fringe_width) = val; |
| 327 | } | 327 | } |
| 328 | static inline void | 328 | static void |
| 329 | bset_save_length (struct buffer *b, Lisp_Object val) | 329 | bset_save_length (struct buffer *b, Lisp_Object val) |
| 330 | { | 330 | { |
| 331 | b->INTERNAL_FIELD (save_length) = val; | 331 | b->INTERNAL_FIELD (save_length) = val; |
| 332 | } | 332 | } |
| 333 | static inline void | 333 | static void |
| 334 | bset_scroll_bar_width (struct buffer *b, Lisp_Object val) | 334 | bset_scroll_bar_width (struct buffer *b, Lisp_Object val) |
| 335 | { | 335 | { |
| 336 | b->INTERNAL_FIELD (scroll_bar_width) = val; | 336 | b->INTERNAL_FIELD (scroll_bar_width) = val; |
| 337 | } | 337 | } |
| 338 | static inline void | 338 | static void |
| 339 | bset_scroll_down_aggressively (struct buffer *b, Lisp_Object val) | 339 | bset_scroll_down_aggressively (struct buffer *b, Lisp_Object val) |
| 340 | { | 340 | { |
| 341 | b->INTERNAL_FIELD (scroll_down_aggressively) = val; | 341 | b->INTERNAL_FIELD (scroll_down_aggressively) = val; |
| 342 | } | 342 | } |
| 343 | static inline void | 343 | static void |
| 344 | bset_scroll_up_aggressively (struct buffer *b, Lisp_Object val) | 344 | bset_scroll_up_aggressively (struct buffer *b, Lisp_Object val) |
| 345 | { | 345 | { |
| 346 | b->INTERNAL_FIELD (scroll_up_aggressively) = val; | 346 | b->INTERNAL_FIELD (scroll_up_aggressively) = val; |
| 347 | } | 347 | } |
| 348 | static inline void | 348 | static void |
| 349 | bset_selective_display (struct buffer *b, Lisp_Object val) | 349 | bset_selective_display (struct buffer *b, Lisp_Object val) |
| 350 | { | 350 | { |
| 351 | b->INTERNAL_FIELD (selective_display) = val; | 351 | b->INTERNAL_FIELD (selective_display) = val; |
| 352 | } | 352 | } |
| 353 | static inline void | 353 | static void |
| 354 | bset_selective_display_ellipses (struct buffer *b, Lisp_Object val) | 354 | bset_selective_display_ellipses (struct buffer *b, Lisp_Object val) |
| 355 | { | 355 | { |
| 356 | b->INTERNAL_FIELD (selective_display_ellipses) = val; | 356 | b->INTERNAL_FIELD (selective_display_ellipses) = val; |
| 357 | } | 357 | } |
| 358 | static inline void | 358 | static void |
| 359 | bset_vertical_scroll_bar_type (struct buffer *b, Lisp_Object val) | 359 | bset_vertical_scroll_bar_type (struct buffer *b, Lisp_Object val) |
| 360 | { | 360 | { |
| 361 | b->INTERNAL_FIELD (vertical_scroll_bar_type) = val; | 361 | b->INTERNAL_FIELD (vertical_scroll_bar_type) = val; |
| 362 | } | 362 | } |
| 363 | static inline void | 363 | static void |
| 364 | bset_word_wrap (struct buffer *b, Lisp_Object val) | 364 | bset_word_wrap (struct buffer *b, Lisp_Object val) |
| 365 | { | 365 | { |
| 366 | b->INTERNAL_FIELD (word_wrap) = val; | 366 | b->INTERNAL_FIELD (word_wrap) = val; |
| 367 | } | 367 | } |
| 368 | static inline void | 368 | static void |
| 369 | bset_zv_marker (struct buffer *b, Lisp_Object val) | 369 | bset_zv_marker (struct buffer *b, Lisp_Object val) |
| 370 | { | 370 | { |
| 371 | b->INTERNAL_FIELD (zv_marker) = val; | 371 | b->INTERNAL_FIELD (zv_marker) = val; |
| @@ -651,13 +651,13 @@ copy_overlays (struct buffer *b, struct Lisp_Overlay *list) | |||
| 651 | 651 | ||
| 652 | /* Set an appropriate overlay of B. */ | 652 | /* Set an appropriate overlay of B. */ |
| 653 | 653 | ||
| 654 | static inline void | 654 | static void |
| 655 | set_buffer_overlays_before (struct buffer *b, struct Lisp_Overlay *o) | 655 | set_buffer_overlays_before (struct buffer *b, struct Lisp_Overlay *o) |
| 656 | { | 656 | { |
| 657 | b->overlays_before = o; | 657 | b->overlays_before = o; |
| 658 | } | 658 | } |
| 659 | 659 | ||
| 660 | static inline void | 660 | static void |
| 661 | set_buffer_overlays_after (struct buffer *b, struct Lisp_Overlay *o) | 661 | set_buffer_overlays_after (struct buffer *b, struct Lisp_Overlay *o) |
| 662 | { | 662 | { |
| 663 | b->overlays_after = o; | 663 | b->overlays_after = o; |
diff --git a/src/category.c b/src/category.c index 01a6f54ad17..fe02303f679 100644 --- a/src/category.c +++ b/src/category.c | |||
| @@ -40,7 +40,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 40 | #include "keymap.h" | 40 | #include "keymap.h" |
| 41 | 41 | ||
| 42 | /* This setter is used only in this file, so it can be private. */ | 42 | /* This setter is used only in this file, so it can be private. */ |
| 43 | static inline void | 43 | static void |
| 44 | bset_category_table (struct buffer *b, Lisp_Object val) | 44 | bset_category_table (struct buffer *b, Lisp_Object val) |
| 45 | { | 45 | { |
| 46 | b->INTERNAL_FIELD (category_table) = val; | 46 | b->INTERNAL_FIELD (category_table) = val; |
diff --git a/src/charset.c b/src/charset.c index b0915ffde9c..6b999824dab 100644 --- a/src/charset.c +++ b/src/charset.c | |||
| @@ -421,7 +421,7 @@ load_charset_map (struct charset *charset, struct charset_map_entries *entries, | |||
| 421 | /* Read a hexadecimal number (preceded by "0x") from the file FP while | 421 | /* Read a hexadecimal number (preceded by "0x") from the file FP while |
| 422 | paying attention to comment character '#'. */ | 422 | paying attention to comment character '#'. */ |
| 423 | 423 | ||
| 424 | static inline unsigned | 424 | static unsigned |
| 425 | read_hex (FILE *fp, bool *eof, bool *overflow) | 425 | read_hex (FILE *fp, bool *eof, bool *overflow) |
| 426 | { | 426 | { |
| 427 | int c; | 427 | int c; |
diff --git a/src/coding.c b/src/coding.c index 32d300b9923..d9606cf5710 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -6822,7 +6822,7 @@ produce_chars (struct coding_system *coding, Lisp_Object translation_table, | |||
| 6822 | [ -LENGTH ANNOTATION_MASK NCHARS NBYTES METHOD [ COMPONENTS... ] ] | 6822 | [ -LENGTH ANNOTATION_MASK NCHARS NBYTES METHOD [ COMPONENTS... ] ] |
| 6823 | */ | 6823 | */ |
| 6824 | 6824 | ||
| 6825 | static inline void | 6825 | static void |
| 6826 | produce_composition (struct coding_system *coding, int *charbuf, ptrdiff_t pos) | 6826 | produce_composition (struct coding_system *coding, int *charbuf, ptrdiff_t pos) |
| 6827 | { | 6827 | { |
| 6828 | int len; | 6828 | int len; |
| @@ -6866,7 +6866,7 @@ produce_composition (struct coding_system *coding, int *charbuf, ptrdiff_t pos) | |||
| 6866 | [ -LENGTH ANNOTATION_MASK NCHARS CHARSET-ID ] | 6866 | [ -LENGTH ANNOTATION_MASK NCHARS CHARSET-ID ] |
| 6867 | */ | 6867 | */ |
| 6868 | 6868 | ||
| 6869 | static inline void | 6869 | static void |
| 6870 | produce_charset (struct coding_system *coding, int *charbuf, ptrdiff_t pos) | 6870 | produce_charset (struct coding_system *coding, int *charbuf, ptrdiff_t pos) |
| 6871 | { | 6871 | { |
| 6872 | ptrdiff_t from = pos - charbuf[2]; | 6872 | ptrdiff_t from = pos - charbuf[2]; |
| @@ -7101,7 +7101,7 @@ decode_coding (struct coding_system *coding) | |||
| 7101 | position of a composition after POS (if any) or to LIMIT, and | 7101 | position of a composition after POS (if any) or to LIMIT, and |
| 7102 | return BUF. */ | 7102 | return BUF. */ |
| 7103 | 7103 | ||
| 7104 | static inline int * | 7104 | static int * |
| 7105 | handle_composition_annotation (ptrdiff_t pos, ptrdiff_t limit, | 7105 | handle_composition_annotation (ptrdiff_t pos, ptrdiff_t limit, |
| 7106 | struct coding_system *coding, int *buf, | 7106 | struct coding_system *coding, int *buf, |
| 7107 | ptrdiff_t *stop) | 7107 | ptrdiff_t *stop) |
| @@ -7184,7 +7184,7 @@ handle_composition_annotation (ptrdiff_t pos, ptrdiff_t limit, | |||
| 7184 | If the property value is nil, set *STOP to the position where the | 7184 | If the property value is nil, set *STOP to the position where the |
| 7185 | property value is non-nil (limiting by LIMIT), and return BUF. */ | 7185 | property value is non-nil (limiting by LIMIT), and return BUF. */ |
| 7186 | 7186 | ||
| 7187 | static inline int * | 7187 | static int * |
| 7188 | handle_charset_annotation (ptrdiff_t pos, ptrdiff_t limit, | 7188 | handle_charset_annotation (ptrdiff_t pos, ptrdiff_t limit, |
| 7189 | struct coding_system *coding, int *buf, | 7189 | struct coding_system *coding, int *buf, |
| 7190 | ptrdiff_t *stop) | 7190 | ptrdiff_t *stop) |
| @@ -8429,7 +8429,7 @@ highest priority. */) | |||
| 8429 | } | 8429 | } |
| 8430 | 8430 | ||
| 8431 | 8431 | ||
| 8432 | static inline bool | 8432 | static bool |
| 8433 | char_encodable_p (int c, Lisp_Object attrs) | 8433 | char_encodable_p (int c, Lisp_Object attrs) |
| 8434 | { | 8434 | { |
| 8435 | Lisp_Object tail; | 8435 | Lisp_Object tail; |
diff --git a/src/dispnew.c b/src/dispnew.c index 555136d785c..6f8fb10b41d 100644 --- a/src/dispnew.c +++ b/src/dispnew.c | |||
| @@ -1028,7 +1028,7 @@ swap_glyphs_in_rows (struct glyph_row *a, struct glyph_row *b) | |||
| 1028 | these should all go together for the row's hash value to be | 1028 | these should all go together for the row's hash value to be |
| 1029 | correct. */ | 1029 | correct. */ |
| 1030 | 1030 | ||
| 1031 | static inline void | 1031 | static void |
| 1032 | swap_glyph_pointers (struct glyph_row *a, struct glyph_row *b) | 1032 | swap_glyph_pointers (struct glyph_row *a, struct glyph_row *b) |
| 1033 | { | 1033 | { |
| 1034 | int i; | 1034 | int i; |
| @@ -1057,7 +1057,7 @@ swap_glyph_pointers (struct glyph_row *a, struct glyph_row *b) | |||
| 1057 | that glyph pointers, the `used' counts, and the hash values in the | 1057 | that glyph pointers, the `used' counts, and the hash values in the |
| 1058 | structures are left unchanged. */ | 1058 | structures are left unchanged. */ |
| 1059 | 1059 | ||
| 1060 | static inline void | 1060 | static void |
| 1061 | copy_row_except_pointers (struct glyph_row *to, struct glyph_row *from) | 1061 | copy_row_except_pointers (struct glyph_row *to, struct glyph_row *from) |
| 1062 | { | 1062 | { |
| 1063 | struct glyph *pointers[1 + LAST_AREA]; | 1063 | struct glyph *pointers[1 + LAST_AREA]; |
| @@ -1084,7 +1084,7 @@ copy_row_except_pointers (struct glyph_row *to, struct glyph_row *from) | |||
| 1084 | exchanged between TO and FROM. Pointers must be exchanged to avoid | 1084 | exchanged between TO and FROM. Pointers must be exchanged to avoid |
| 1085 | a memory leak. */ | 1085 | a memory leak. */ |
| 1086 | 1086 | ||
| 1087 | static inline void | 1087 | static void |
| 1088 | assign_row (struct glyph_row *to, struct glyph_row *from) | 1088 | assign_row (struct glyph_row *to, struct glyph_row *from) |
| 1089 | { | 1089 | { |
| 1090 | swap_glyph_pointers (to, from); | 1090 | swap_glyph_pointers (to, from); |
| @@ -1249,7 +1249,7 @@ line_draw_cost (struct glyph_matrix *matrix, int vpos) | |||
| 1249 | /* Return true if the glyph rows A and B have equal contents. | 1249 | /* Return true if the glyph rows A and B have equal contents. |
| 1250 | MOUSE_FACE_P means compare the mouse_face_p flags of A and B, too. */ | 1250 | MOUSE_FACE_P means compare the mouse_face_p flags of A and B, too. */ |
| 1251 | 1251 | ||
| 1252 | static inline bool | 1252 | static bool |
| 1253 | row_equal_p (struct glyph_row *a, struct glyph_row *b, bool mouse_face_p) | 1253 | row_equal_p (struct glyph_row *a, struct glyph_row *b, bool mouse_face_p) |
| 1254 | { | 1254 | { |
| 1255 | eassert (verify_row_hash (a)); | 1255 | eassert (verify_row_hash (a)); |
| @@ -2657,7 +2657,7 @@ fill_up_frame_row_with_spaces (struct glyph_row *row, int upto) | |||
| 2657 | function must be called before updates to make explicit that we are | 2657 | function must be called before updates to make explicit that we are |
| 2658 | working on frame matrices or not. */ | 2658 | working on frame matrices or not. */ |
| 2659 | 2659 | ||
| 2660 | static inline void | 2660 | static void |
| 2661 | set_frame_matrix_frame (struct frame *f) | 2661 | set_frame_matrix_frame (struct frame *f) |
| 2662 | { | 2662 | { |
| 2663 | frame_matrix_frame = f; | 2663 | frame_matrix_frame = f; |
| @@ -2672,7 +2672,7 @@ set_frame_matrix_frame (struct frame *f) | |||
| 2672 | done in frame matrices, and that we have to perform analogous | 2672 | done in frame matrices, and that we have to perform analogous |
| 2673 | operations in window matrices of frame_matrix_frame. */ | 2673 | operations in window matrices of frame_matrix_frame. */ |
| 2674 | 2674 | ||
| 2675 | static inline void | 2675 | static void |
| 2676 | make_current (struct glyph_matrix *desired_matrix, struct glyph_matrix *current_matrix, int row) | 2676 | make_current (struct glyph_matrix *desired_matrix, struct glyph_matrix *current_matrix, int row) |
| 2677 | { | 2677 | { |
| 2678 | struct glyph_row *current_row = MATRIX_ROW (current_matrix, row); | 2678 | struct glyph_row *current_row = MATRIX_ROW (current_matrix, row); |
| @@ -4158,7 +4158,7 @@ static struct run **runs; | |||
| 4158 | 4158 | ||
| 4159 | /* Add glyph row ROW to the scrolling hash table. */ | 4159 | /* Add glyph row ROW to the scrolling hash table. */ |
| 4160 | 4160 | ||
| 4161 | static inline struct row_entry * | 4161 | static struct row_entry * |
| 4162 | add_row_entry (struct glyph_row *row) | 4162 | add_row_entry (struct glyph_row *row) |
| 4163 | { | 4163 | { |
| 4164 | struct row_entry *entry; | 4164 | struct row_entry *entry; |
diff --git a/src/eval.c b/src/eval.c index 561ba922482..4d200fbc2bd 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -119,13 +119,13 @@ static Lisp_Object apply_lambda (Lisp_Object fun, Lisp_Object args); | |||
| 119 | 119 | ||
| 120 | /* Functions to set Lisp_Object slots of struct specbinding. */ | 120 | /* Functions to set Lisp_Object slots of struct specbinding. */ |
| 121 | 121 | ||
| 122 | static inline void | 122 | static void |
| 123 | set_specpdl_symbol (Lisp_Object symbol) | 123 | set_specpdl_symbol (Lisp_Object symbol) |
| 124 | { | 124 | { |
| 125 | specpdl_ptr->symbol = symbol; | 125 | specpdl_ptr->symbol = symbol; |
| 126 | } | 126 | } |
| 127 | 127 | ||
| 128 | static inline void | 128 | static void |
| 129 | set_specpdl_old_value (Lisp_Object oldval) | 129 | set_specpdl_old_value (Lisp_Object oldval) |
| 130 | { | 130 | { |
| 131 | specpdl_ptr->old_value = oldval; | 131 | specpdl_ptr->old_value = oldval; |
| @@ -3695,7 +3695,7 @@ copy_hash_table (struct Lisp_Hash_Table *h1) | |||
| 3695 | /* Resize hash table H if it's too full. If H cannot be resized | 3695 | /* Resize hash table H if it's too full. If H cannot be resized |
| 3696 | because it's already too large, throw an error. */ | 3696 | because it's already too large, throw an error. */ |
| 3697 | 3697 | ||
| 3698 | static inline void | 3698 | static void |
| 3699 | maybe_resize_hash_table (struct Lisp_Hash_Table *h) | 3699 | maybe_resize_hash_table (struct Lisp_Hash_Table *h) |
| 3700 | { | 3700 | { |
| 3701 | if (NILP (h->next_free)) | 3701 | if (NILP (h->next_free)) |
diff --git a/src/frame.c b/src/frame.c index 0a127740980..edb90038a48 100644 --- a/src/frame.c +++ b/src/frame.c | |||
| @@ -120,12 +120,12 @@ static void x_report_frame_params (struct frame *, Lisp_Object *); | |||
| 120 | #endif | 120 | #endif |
| 121 | 121 | ||
| 122 | /* These setters are used only in this file, so they can be private. */ | 122 | /* These setters are used only in this file, so they can be private. */ |
| 123 | static inline void | 123 | static void |
| 124 | fset_buffer_predicate (struct frame *f, Lisp_Object val) | 124 | fset_buffer_predicate (struct frame *f, Lisp_Object val) |
| 125 | { | 125 | { |
| 126 | f->buffer_predicate = val; | 126 | f->buffer_predicate = val; |
| 127 | } | 127 | } |
| 128 | static inline void | 128 | static void |
| 129 | fset_minibuffer_window (struct frame *f, Lisp_Object val) | 129 | fset_minibuffer_window (struct frame *f, Lisp_Object val) |
| 130 | { | 130 | { |
| 131 | f->minibuffer_window = val; | 131 | f->minibuffer_window = val; |
diff --git a/src/gmalloc.c b/src/gmalloc.c index 9eb9610ab23..dc584955661 100644 --- a/src/gmalloc.c +++ b/src/gmalloc.c | |||
| @@ -464,7 +464,7 @@ get_contiguous_space (ptrdiff_t size, void *position) | |||
| 464 | /* This is called when `_heapinfo' and `heapsize' have just | 464 | /* This is called when `_heapinfo' and `heapsize' have just |
| 465 | been set to describe a new info table. Set up the table | 465 | been set to describe a new info table. Set up the table |
| 466 | to describe itself and account for it in the statistics. */ | 466 | to describe itself and account for it in the statistics. */ |
| 467 | static inline void | 467 | static void |
| 468 | register_heapinfo (void) | 468 | register_heapinfo (void) |
| 469 | { | 469 | { |
| 470 | size_t block, blocks; | 470 | size_t block, blocks; |
diff --git a/src/intervals.c b/src/intervals.c index 584ee1e923d..1ed93e1302d 100644 --- a/src/intervals.c +++ b/src/intervals.c | |||
| @@ -64,7 +64,7 @@ static INTERVAL reproduce_tree (INTERVAL, INTERVAL); | |||
| 64 | /* Use these functions to set Lisp_Object | 64 | /* Use these functions to set Lisp_Object |
| 65 | or pointer slots of struct interval. */ | 65 | or pointer slots of struct interval. */ |
| 66 | 66 | ||
| 67 | static inline void | 67 | static void |
| 68 | set_interval_object (INTERVAL i, Lisp_Object obj) | 68 | set_interval_object (INTERVAL i, Lisp_Object obj) |
| 69 | { | 69 | { |
| 70 | eassert (BUFFERP (obj) || STRINGP (obj)); | 70 | eassert (BUFFERP (obj) || STRINGP (obj)); |
| @@ -72,13 +72,13 @@ set_interval_object (INTERVAL i, Lisp_Object obj) | |||
| 72 | i->up.obj = obj; | 72 | i->up.obj = obj; |
| 73 | } | 73 | } |
| 74 | 74 | ||
| 75 | static inline void | 75 | static void |
| 76 | set_interval_left (INTERVAL i, INTERVAL left) | 76 | set_interval_left (INTERVAL i, INTERVAL left) |
| 77 | { | 77 | { |
| 78 | i->left = left; | 78 | i->left = left; |
| 79 | } | 79 | } |
| 80 | 80 | ||
| 81 | static inline void | 81 | static void |
| 82 | set_interval_right (INTERVAL i, INTERVAL right) | 82 | set_interval_right (INTERVAL i, INTERVAL right) |
| 83 | { | 83 | { |
| 84 | i->right = right; | 84 | i->right = right; |
| @@ -87,7 +87,7 @@ set_interval_right (INTERVAL i, INTERVAL right) | |||
| 87 | /* Make the parent of D be whatever the parent of S is, regardless | 87 | /* Make the parent of D be whatever the parent of S is, regardless |
| 88 | of the type. This is used when balancing an interval tree. */ | 88 | of the type. This is used when balancing an interval tree. */ |
| 89 | 89 | ||
| 90 | static inline void | 90 | static void |
| 91 | copy_interval_parent (INTERVAL d, INTERVAL s) | 91 | copy_interval_parent (INTERVAL d, INTERVAL s) |
| 92 | { | 92 | { |
| 93 | d->up = s->up; | 93 | d->up = s->up; |
| @@ -341,7 +341,7 @@ root_interval (INTERVAL interval) | |||
| 341 | c c | 341 | c c |
| 342 | */ | 342 | */ |
| 343 | 343 | ||
| 344 | static inline INTERVAL | 344 | static INTERVAL |
| 345 | rotate_right (INTERVAL interval) | 345 | rotate_right (INTERVAL interval) |
| 346 | { | 346 | { |
| 347 | INTERVAL i; | 347 | INTERVAL i; |
| @@ -388,7 +388,7 @@ rotate_right (INTERVAL interval) | |||
| 388 | c c | 388 | c c |
| 389 | */ | 389 | */ |
| 390 | 390 | ||
| 391 | static inline INTERVAL | 391 | static INTERVAL |
| 392 | rotate_left (INTERVAL interval) | 392 | rotate_left (INTERVAL interval) |
| 393 | { | 393 | { |
| 394 | INTERVAL i; | 394 | INTERVAL i; |
| @@ -466,7 +466,7 @@ balance_an_interval (INTERVAL i) | |||
| 466 | /* Balance INTERVAL, potentially stuffing it back into its parent | 466 | /* Balance INTERVAL, potentially stuffing it back into its parent |
| 467 | Lisp Object. */ | 467 | Lisp Object. */ |
| 468 | 468 | ||
| 469 | static inline INTERVAL | 469 | static INTERVAL |
| 470 | balance_possible_root_interval (INTERVAL interval) | 470 | balance_possible_root_interval (INTERVAL interval) |
| 471 | { | 471 | { |
| 472 | Lisp_Object parent; | 472 | Lisp_Object parent; |
diff --git a/src/keyboard.c b/src/keyboard.c index f3d7df5e98f..10dca010fb5 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -448,47 +448,47 @@ static char *find_user_signal_name (int); | |||
| 448 | static void store_user_signal_events (void); | 448 | static void store_user_signal_events (void); |
| 449 | 449 | ||
| 450 | /* These setters are used only in this file, so they can be private. */ | 450 | /* These setters are used only in this file, so they can be private. */ |
| 451 | static inline void | 451 | static void |
| 452 | kset_echo_string (struct kboard *kb, Lisp_Object val) | 452 | kset_echo_string (struct kboard *kb, Lisp_Object val) |
| 453 | { | 453 | { |
| 454 | kb->INTERNAL_FIELD (echo_string) = val; | 454 | kb->INTERNAL_FIELD (echo_string) = val; |
| 455 | } | 455 | } |
| 456 | static inline void | 456 | static void |
| 457 | kset_kbd_queue (struct kboard *kb, Lisp_Object val) | 457 | kset_kbd_queue (struct kboard *kb, Lisp_Object val) |
| 458 | { | 458 | { |
| 459 | kb->INTERNAL_FIELD (kbd_queue) = val; | 459 | kb->INTERNAL_FIELD (kbd_queue) = val; |
| 460 | } | 460 | } |
| 461 | static inline void | 461 | static void |
| 462 | kset_keyboard_translate_table (struct kboard *kb, Lisp_Object val) | 462 | kset_keyboard_translate_table (struct kboard *kb, Lisp_Object val) |
| 463 | { | 463 | { |
| 464 | kb->INTERNAL_FIELD (Vkeyboard_translate_table) = val; | 464 | kb->INTERNAL_FIELD (Vkeyboard_translate_table) = val; |
| 465 | } | 465 | } |
| 466 | static inline void | 466 | static void |
| 467 | kset_last_prefix_arg (struct kboard *kb, Lisp_Object val) | 467 | kset_last_prefix_arg (struct kboard *kb, Lisp_Object val) |
| 468 | { | 468 | { |
| 469 | kb->INTERNAL_FIELD (Vlast_prefix_arg) = val; | 469 | kb->INTERNAL_FIELD (Vlast_prefix_arg) = val; |
| 470 | } | 470 | } |
| 471 | static inline void | 471 | static void |
| 472 | kset_last_repeatable_command (struct kboard *kb, Lisp_Object val) | 472 | kset_last_repeatable_command (struct kboard *kb, Lisp_Object val) |
| 473 | { | 473 | { |
| 474 | kb->INTERNAL_FIELD (Vlast_repeatable_command) = val; | 474 | kb->INTERNAL_FIELD (Vlast_repeatable_command) = val; |
| 475 | } | 475 | } |
| 476 | static inline void | 476 | static void |
| 477 | kset_local_function_key_map (struct kboard *kb, Lisp_Object val) | 477 | kset_local_function_key_map (struct kboard *kb, Lisp_Object val) |
| 478 | { | 478 | { |
| 479 | kb->INTERNAL_FIELD (Vlocal_function_key_map) = val; | 479 | kb->INTERNAL_FIELD (Vlocal_function_key_map) = val; |
| 480 | } | 480 | } |
| 481 | static inline void | 481 | static void |
| 482 | kset_overriding_terminal_local_map (struct kboard *kb, Lisp_Object val) | 482 | kset_overriding_terminal_local_map (struct kboard *kb, Lisp_Object val) |
| 483 | { | 483 | { |
| 484 | kb->INTERNAL_FIELD (Voverriding_terminal_local_map) = val; | 484 | kb->INTERNAL_FIELD (Voverriding_terminal_local_map) = val; |
| 485 | } | 485 | } |
| 486 | static inline void | 486 | static void |
| 487 | kset_real_last_command (struct kboard *kb, Lisp_Object val) | 487 | kset_real_last_command (struct kboard *kb, Lisp_Object val) |
| 488 | { | 488 | { |
| 489 | kb->INTERNAL_FIELD (Vreal_last_command) = val; | 489 | kb->INTERNAL_FIELD (Vreal_last_command) = val; |
| 490 | } | 490 | } |
| 491 | static inline void | 491 | static void |
| 492 | kset_system_key_syms (struct kboard *kb, Lisp_Object val) | 492 | kset_system_key_syms (struct kboard *kb, Lisp_Object val) |
| 493 | { | 493 | { |
| 494 | kb->INTERNAL_FIELD (system_key_syms) = val; | 494 | kb->INTERNAL_FIELD (system_key_syms) = val; |
| @@ -3749,7 +3749,7 @@ kbd_buffer_events_waiting (int discard) | |||
| 3749 | 3749 | ||
| 3750 | /* Clear input event EVENT. */ | 3750 | /* Clear input event EVENT. */ |
| 3751 | 3751 | ||
| 3752 | static inline void | 3752 | static void |
| 3753 | clear_event (struct input_event *event) | 3753 | clear_event (struct input_event *event) |
| 3754 | { | 3754 | { |
| 3755 | event->kind = NO_EVENT; | 3755 | event->kind = NO_EVENT; |
| @@ -8054,7 +8054,7 @@ process_tool_bar_item (Lisp_Object key, Lisp_Object def, Lisp_Object data, void | |||
| 8054 | 8054 | ||
| 8055 | /* Access slot with index IDX of vector tool_bar_item_properties. */ | 8055 | /* Access slot with index IDX of vector tool_bar_item_properties. */ |
| 8056 | #define PROP(IDX) AREF (tool_bar_item_properties, (IDX)) | 8056 | #define PROP(IDX) AREF (tool_bar_item_properties, (IDX)) |
| 8057 | static inline void | 8057 | static void |
| 8058 | set_prop (ptrdiff_t idx, Lisp_Object val) | 8058 | set_prop (ptrdiff_t idx, Lisp_Object val) |
| 8059 | { | 8059 | { |
| 8060 | ASET (tool_bar_item_properties, idx, val); | 8060 | ASET (tool_bar_item_properties, idx, val); |
diff --git a/src/lread.c b/src/lread.c index d22011be7c8..581332502ed 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -2283,7 +2283,7 @@ read_escape (Lisp_Object readcharfun, int stringp) | |||
| 2283 | /* Return the digit that CHARACTER stands for in the given BASE. | 2283 | /* Return the digit that CHARACTER stands for in the given BASE. |
| 2284 | Return -1 if CHARACTER is out of range for BASE, | 2284 | Return -1 if CHARACTER is out of range for BASE, |
| 2285 | and -2 if CHARACTER is not valid for any supported BASE. */ | 2285 | and -2 if CHARACTER is not valid for any supported BASE. */ |
| 2286 | static inline int | 2286 | static int |
| 2287 | digit_to_number (int character, int base) | 2287 | digit_to_number (int character, int base) |
| 2288 | { | 2288 | { |
| 2289 | int digit; | 2289 | int digit; |
diff --git a/src/marker.c b/src/marker.c index 0c4e8cb3b55..e01647bdb2a 100644 --- a/src/marker.c +++ b/src/marker.c | |||
| @@ -427,7 +427,7 @@ Returns nil if MARKER points nowhere. */) | |||
| 427 | 427 | ||
| 428 | /* Change M so it points to B at CHARPOS and BYTEPOS. */ | 428 | /* Change M so it points to B at CHARPOS and BYTEPOS. */ |
| 429 | 429 | ||
| 430 | static inline void | 430 | static void |
| 431 | attach_marker (struct Lisp_Marker *m, struct buffer *b, | 431 | attach_marker (struct Lisp_Marker *m, struct buffer *b, |
| 432 | ptrdiff_t charpos, ptrdiff_t bytepos) | 432 | ptrdiff_t charpos, ptrdiff_t bytepos) |
| 433 | { | 433 | { |
| @@ -454,7 +454,7 @@ attach_marker (struct Lisp_Marker *m, struct buffer *b, | |||
| 454 | whether BUFFER is a buffer object and return buffer pointer | 454 | whether BUFFER is a buffer object and return buffer pointer |
| 455 | corresponding to BUFFER if BUFFER is live, or NULL otherwise. */ | 455 | corresponding to BUFFER if BUFFER is live, or NULL otherwise. */ |
| 456 | 456 | ||
| 457 | static inline struct buffer * | 457 | static struct buffer * |
| 458 | live_buffer (Lisp_Object buffer) | 458 | live_buffer (Lisp_Object buffer) |
| 459 | { | 459 | { |
| 460 | struct buffer *b; | 460 | struct buffer *b; |
| @@ -477,7 +477,7 @@ live_buffer (Lisp_Object buffer) | |||
| 477 | /* Internal function to set MARKER in BUFFER at POSITION. Non-zero | 477 | /* Internal function to set MARKER in BUFFER at POSITION. Non-zero |
| 478 | RESTRICTED means limit the POSITION by the visible part of BUFFER. */ | 478 | RESTRICTED means limit the POSITION by the visible part of BUFFER. */ |
| 479 | 479 | ||
| 480 | static inline Lisp_Object | 480 | static Lisp_Object |
| 481 | set_marker_internal (Lisp_Object marker, Lisp_Object position, | 481 | set_marker_internal (Lisp_Object marker, Lisp_Object position, |
| 482 | Lisp_Object buffer, int restricted) | 482 | Lisp_Object buffer, int restricted) |
| 483 | { | 483 | { |
diff --git a/src/nsterm.m b/src/nsterm.m index d41c38f4e40..24a2129d1c3 100644 --- a/src/nsterm.m +++ b/src/nsterm.m | |||
| @@ -2171,7 +2171,7 @@ ns_shift_glyphs_for_insert (struct frame *f, | |||
| 2171 | ========================================================================== */ | 2171 | ========================================================================== */ |
| 2172 | 2172 | ||
| 2173 | 2173 | ||
| 2174 | static inline void | 2174 | static void |
| 2175 | ns_compute_glyph_string_overhangs (struct glyph_string *s) | 2175 | ns_compute_glyph_string_overhangs (struct glyph_string *s) |
| 2176 | /* -------------------------------------------------------------------------- | 2176 | /* -------------------------------------------------------------------------- |
| 2177 | External (RIF); compute left/right overhang of whole string and set in s | 2177 | External (RIF); compute left/right overhang of whole string and set in s |
diff --git a/src/process.c b/src/process.c index ab215766c07..dfc89809fa5 100644 --- a/src/process.c +++ b/src/process.c | |||
| @@ -335,82 +335,82 @@ static struct sockaddr_and_len { | |||
| 335 | static int pty_max_bytes; | 335 | static int pty_max_bytes; |
| 336 | 336 | ||
| 337 | /* These setters are used only in this file, so they can be private. */ | 337 | /* These setters are used only in this file, so they can be private. */ |
| 338 | static inline void | 338 | static void |
| 339 | pset_buffer (struct Lisp_Process *p, Lisp_Object val) | 339 | pset_buffer (struct Lisp_Process *p, Lisp_Object val) |
| 340 | { | 340 | { |
| 341 | p->buffer = val; | 341 | p->buffer = val; |
| 342 | } | 342 | } |
| 343 | static inline void | 343 | static void |
| 344 | pset_command (struct Lisp_Process *p, Lisp_Object val) | 344 | pset_command (struct Lisp_Process *p, Lisp_Object val) |
| 345 | { | 345 | { |
| 346 | p->command = val; | 346 | p->command = val; |
| 347 | } | 347 | } |
| 348 | static inline void | 348 | static void |
| 349 | pset_decode_coding_system (struct Lisp_Process *p, Lisp_Object val) | 349 | pset_decode_coding_system (struct Lisp_Process *p, Lisp_Object val) |
| 350 | { | 350 | { |
| 351 | p->decode_coding_system = val; | 351 | p->decode_coding_system = val; |
| 352 | } | 352 | } |
| 353 | static inline void | 353 | static void |
| 354 | pset_decoding_buf (struct Lisp_Process *p, Lisp_Object val) | 354 | pset_decoding_buf (struct Lisp_Process *p, Lisp_Object val) |
| 355 | { | 355 | { |
| 356 | p->decoding_buf = val; | 356 | p->decoding_buf = val; |
| 357 | } | 357 | } |
| 358 | static inline void | 358 | static void |
| 359 | pset_encode_coding_system (struct Lisp_Process *p, Lisp_Object val) | 359 | pset_encode_coding_system (struct Lisp_Process *p, Lisp_Object val) |
| 360 | { | 360 | { |
| 361 | p->encode_coding_system = val; | 361 | p->encode_coding_system = val; |
| 362 | } | 362 | } |
| 363 | static inline void | 363 | static void |
| 364 | pset_encoding_buf (struct Lisp_Process *p, Lisp_Object val) | 364 | pset_encoding_buf (struct Lisp_Process *p, Lisp_Object val) |
| 365 | { | 365 | { |
| 366 | p->encoding_buf = val; | 366 | p->encoding_buf = val; |
| 367 | } | 367 | } |
| 368 | static inline void | 368 | static void |
| 369 | pset_filter (struct Lisp_Process *p, Lisp_Object val) | 369 | pset_filter (struct Lisp_Process *p, Lisp_Object val) |
| 370 | { | 370 | { |
| 371 | p->filter = val; | 371 | p->filter = val; |
| 372 | } | 372 | } |
| 373 | static inline void | 373 | static void |
| 374 | pset_log (struct Lisp_Process *p, Lisp_Object val) | 374 | pset_log (struct Lisp_Process *p, Lisp_Object val) |
| 375 | { | 375 | { |
| 376 | p->log = val; | 376 | p->log = val; |
| 377 | } | 377 | } |
| 378 | static inline void | 378 | static void |
| 379 | pset_mark (struct Lisp_Process *p, Lisp_Object val) | 379 | pset_mark (struct Lisp_Process *p, Lisp_Object val) |
| 380 | { | 380 | { |
| 381 | p->mark = val; | 381 | p->mark = val; |
| 382 | } | 382 | } |
| 383 | static inline void | 383 | static void |
| 384 | pset_name (struct Lisp_Process *p, Lisp_Object val) | 384 | pset_name (struct Lisp_Process *p, Lisp_Object val) |
| 385 | { | 385 | { |
| 386 | p->name = val; | 386 | p->name = val; |
| 387 | } | 387 | } |
| 388 | static inline void | 388 | static void |
| 389 | pset_plist (struct Lisp_Process *p, Lisp_Object val) | 389 | pset_plist (struct Lisp_Process *p, Lisp_Object val) |
| 390 | { | 390 | { |
| 391 | p->plist = val; | 391 | p->plist = val; |
| 392 | } | 392 | } |
| 393 | static inline void | 393 | static void |
| 394 | pset_sentinel (struct Lisp_Process *p, Lisp_Object val) | 394 | pset_sentinel (struct Lisp_Process *p, Lisp_Object val) |
| 395 | { | 395 | { |
| 396 | p->sentinel = val; | 396 | p->sentinel = val; |
| 397 | } | 397 | } |
| 398 | static inline void | 398 | static void |
| 399 | pset_status (struct Lisp_Process *p, Lisp_Object val) | 399 | pset_status (struct Lisp_Process *p, Lisp_Object val) |
| 400 | { | 400 | { |
| 401 | p->status = val; | 401 | p->status = val; |
| 402 | } | 402 | } |
| 403 | static inline void | 403 | static void |
| 404 | pset_tty_name (struct Lisp_Process *p, Lisp_Object val) | 404 | pset_tty_name (struct Lisp_Process *p, Lisp_Object val) |
| 405 | { | 405 | { |
| 406 | p->tty_name = val; | 406 | p->tty_name = val; |
| 407 | } | 407 | } |
| 408 | static inline void | 408 | static void |
| 409 | pset_type (struct Lisp_Process *p, Lisp_Object val) | 409 | pset_type (struct Lisp_Process *p, Lisp_Object val) |
| 410 | { | 410 | { |
| 411 | p->type = val; | 411 | p->type = val; |
| 412 | } | 412 | } |
| 413 | static inline void | 413 | static void |
| 414 | pset_write_queue (struct Lisp_Process *p, Lisp_Object val) | 414 | pset_write_queue (struct Lisp_Process *p, Lisp_Object val) |
| 415 | { | 415 | { |
| 416 | p->write_queue = val; | 416 | p->write_queue = val; |
diff --git a/src/syntax.c b/src/syntax.c index 91ef4e66663..d3cafcc472e 100644 --- a/src/syntax.c +++ b/src/syntax.c | |||
| @@ -151,7 +151,7 @@ static void scan_sexps_forward (struct lisp_parse_state *, | |||
| 151 | static int in_classes (int, Lisp_Object); | 151 | static int in_classes (int, Lisp_Object); |
| 152 | 152 | ||
| 153 | /* This setter is used only in this file, so it can be private. */ | 153 | /* This setter is used only in this file, so it can be private. */ |
| 154 | static inline void | 154 | static void |
| 155 | bset_syntax_table (struct buffer *b, Lisp_Object val) | 155 | bset_syntax_table (struct buffer *b, Lisp_Object val) |
| 156 | { | 156 | { |
| 157 | b->INTERNAL_FIELD (syntax_table) = val; | 157 | b->INTERNAL_FIELD (syntax_table) = val; |
| @@ -372,7 +372,7 @@ char_quoted (ptrdiff_t charpos, ptrdiff_t bytepos) | |||
| 372 | /* Return the bytepos one character before BYTEPOS. | 372 | /* Return the bytepos one character before BYTEPOS. |
| 373 | We assume that BYTEPOS is not at the start of the buffer. */ | 373 | We assume that BYTEPOS is not at the start of the buffer. */ |
| 374 | 374 | ||
| 375 | static inline ptrdiff_t | 375 | static ptrdiff_t |
| 376 | dec_bytepos (ptrdiff_t bytepos) | 376 | dec_bytepos (ptrdiff_t bytepos) |
| 377 | { | 377 | { |
| 378 | if (NILP (BVAR (current_buffer, enable_multibyte_characters))) | 378 | if (NILP (BVAR (current_buffer, enable_multibyte_characters))) |
diff --git a/src/terminal.c b/src/terminal.c index 719c2a36111..2c0c60e7345 100644 --- a/src/terminal.c +++ b/src/terminal.c | |||
| @@ -42,7 +42,7 @@ struct terminal *initial_terminal; | |||
| 42 | static void delete_initial_terminal (struct terminal *); | 42 | static void delete_initial_terminal (struct terminal *); |
| 43 | 43 | ||
| 44 | /* This setter is used only in this file, so it can be private. */ | 44 | /* This setter is used only in this file, so it can be private. */ |
| 45 | static inline void | 45 | static void |
| 46 | tset_param_alist (struct terminal *t, Lisp_Object val) | 46 | tset_param_alist (struct terminal *t, Lisp_Object val) |
| 47 | { | 47 | { |
| 48 | t->param_alist = val; | 48 | t->param_alist = val; |
diff --git a/src/textprop.c b/src/textprop.c index 872912ea706..379eafb73f7 100644 --- a/src/textprop.c +++ b/src/textprop.c | |||
| @@ -241,7 +241,7 @@ interval_has_all_properties (Lisp_Object plist, INTERVAL i) | |||
| 241 | /* Return nonzero if the plist of interval I has any of the | 241 | /* Return nonzero if the plist of interval I has any of the |
| 242 | properties of PLIST, regardless of their values. */ | 242 | properties of PLIST, regardless of their values. */ |
| 243 | 243 | ||
| 244 | static inline int | 244 | static int |
| 245 | interval_has_some_properties (Lisp_Object plist, INTERVAL i) | 245 | interval_has_some_properties (Lisp_Object plist, INTERVAL i) |
| 246 | { | 246 | { |
| 247 | register Lisp_Object tail1, tail2, sym; | 247 | register Lisp_Object tail1, tail2, sym; |
| @@ -263,7 +263,7 @@ interval_has_some_properties (Lisp_Object plist, INTERVAL i) | |||
| 263 | /* Return nonzero if the plist of interval I has any of the | 263 | /* Return nonzero if the plist of interval I has any of the |
| 264 | property names in LIST, regardless of their values. */ | 264 | property names in LIST, regardless of their values. */ |
| 265 | 265 | ||
| 266 | static inline int | 266 | static int |
| 267 | interval_has_some_properties_list (Lisp_Object list, INTERVAL i) | 267 | interval_has_some_properties_list (Lisp_Object list, INTERVAL i) |
| 268 | { | 268 | { |
| 269 | register Lisp_Object tail1, tail2, sym; | 269 | register Lisp_Object tail1, tail2, sym; |
diff --git a/src/window.c b/src/window.c index bb3b73f9acd..3b974616e38 100644 --- a/src/window.c +++ b/src/window.c | |||
| @@ -133,102 +133,102 @@ static EMACS_INT window_scroll_preserve_hpos; | |||
| 133 | static EMACS_INT window_scroll_preserve_vpos; | 133 | static EMACS_INT window_scroll_preserve_vpos; |
| 134 | 134 | ||
| 135 | /* These setters are used only in this file, so they can be private. */ | 135 | /* These setters are used only in this file, so they can be private. */ |
| 136 | static inline void | 136 | static void |
| 137 | wset_combination_limit (struct window *w, Lisp_Object val) | 137 | wset_combination_limit (struct window *w, Lisp_Object val) |
| 138 | { | 138 | { |
| 139 | w->combination_limit = val; | 139 | w->combination_limit = val; |
| 140 | } | 140 | } |
| 141 | static inline void | 141 | static void |
| 142 | wset_dedicated (struct window *w, Lisp_Object val) | 142 | wset_dedicated (struct window *w, Lisp_Object val) |
| 143 | { | 143 | { |
| 144 | w->dedicated = val; | 144 | w->dedicated = val; |
| 145 | } | 145 | } |
| 146 | static inline void | 146 | static void |
| 147 | wset_display_table (struct window *w, Lisp_Object val) | 147 | wset_display_table (struct window *w, Lisp_Object val) |
| 148 | { | 148 | { |
| 149 | w->display_table = val; | 149 | w->display_table = val; |
| 150 | } | 150 | } |
| 151 | static inline void | 151 | static void |
| 152 | wset_hchild (struct window *w, Lisp_Object val) | 152 | wset_hchild (struct window *w, Lisp_Object val) |
| 153 | { | 153 | { |
| 154 | w->hchild = val; | 154 | w->hchild = val; |
| 155 | } | 155 | } |
| 156 | static inline void | 156 | static void |
| 157 | wset_left_fringe_width (struct window *w, Lisp_Object val) | 157 | wset_left_fringe_width (struct window *w, Lisp_Object val) |
| 158 | { | 158 | { |
| 159 | w->left_fringe_width = val; | 159 | w->left_fringe_width = val; |
| 160 | } | 160 | } |
| 161 | static inline void | 161 | static void |
| 162 | wset_left_margin_cols (struct window *w, Lisp_Object val) | 162 | wset_left_margin_cols (struct window *w, Lisp_Object val) |
| 163 | { | 163 | { |
| 164 | w->left_margin_cols = val; | 164 | w->left_margin_cols = val; |
| 165 | } | 165 | } |
| 166 | static inline void | 166 | static void |
| 167 | wset_new_normal (struct window *w, Lisp_Object val) | 167 | wset_new_normal (struct window *w, Lisp_Object val) |
| 168 | { | 168 | { |
| 169 | w->new_normal = val; | 169 | w->new_normal = val; |
| 170 | } | 170 | } |
| 171 | static inline void | 171 | static void |
| 172 | wset_new_total (struct window *w, Lisp_Object val) | 172 | wset_new_total (struct window *w, Lisp_Object val) |
| 173 | { | 173 | { |
| 174 | w->new_total = val; | 174 | w->new_total = val; |
| 175 | } | 175 | } |
| 176 | static inline void | 176 | static void |
| 177 | wset_normal_cols (struct window *w, Lisp_Object val) | 177 | wset_normal_cols (struct window *w, Lisp_Object val) |
| 178 | { | 178 | { |
| 179 | w->normal_cols = val; | 179 | w->normal_cols = val; |
| 180 | } | 180 | } |
| 181 | static inline void | 181 | static void |
| 182 | wset_normal_lines (struct window *w, Lisp_Object val) | 182 | wset_normal_lines (struct window *w, Lisp_Object val) |
| 183 | { | 183 | { |
| 184 | w->normal_lines = val; | 184 | w->normal_lines = val; |
| 185 | } | 185 | } |
| 186 | static inline void | 186 | static void |
| 187 | wset_parent (struct window *w, Lisp_Object val) | 187 | wset_parent (struct window *w, Lisp_Object val) |
| 188 | { | 188 | { |
| 189 | w->parent = val; | 189 | w->parent = val; |
| 190 | } | 190 | } |
| 191 | static inline void | 191 | static void |
| 192 | wset_pointm (struct window *w, Lisp_Object val) | 192 | wset_pointm (struct window *w, Lisp_Object val) |
| 193 | { | 193 | { |
| 194 | w->pointm = val; | 194 | w->pointm = val; |
| 195 | } | 195 | } |
| 196 | static inline void | 196 | static void |
| 197 | wset_right_fringe_width (struct window *w, Lisp_Object val) | 197 | wset_right_fringe_width (struct window *w, Lisp_Object val) |
| 198 | { | 198 | { |
| 199 | w->right_fringe_width = val; | 199 | w->right_fringe_width = val; |
| 200 | } | 200 | } |
| 201 | static inline void | 201 | static void |
| 202 | wset_right_margin_cols (struct window *w, Lisp_Object val) | 202 | wset_right_margin_cols (struct window *w, Lisp_Object val) |
| 203 | { | 203 | { |
| 204 | w->right_margin_cols = val; | 204 | w->right_margin_cols = val; |
| 205 | } | 205 | } |
| 206 | static inline void | 206 | static void |
| 207 | wset_scroll_bar_width (struct window *w, Lisp_Object val) | 207 | wset_scroll_bar_width (struct window *w, Lisp_Object val) |
| 208 | { | 208 | { |
| 209 | w->scroll_bar_width = val; | 209 | w->scroll_bar_width = val; |
| 210 | } | 210 | } |
| 211 | static inline void | 211 | static void |
| 212 | wset_start (struct window *w, Lisp_Object val) | 212 | wset_start (struct window *w, Lisp_Object val) |
| 213 | { | 213 | { |
| 214 | w->start = val; | 214 | w->start = val; |
| 215 | } | 215 | } |
| 216 | static inline void | 216 | static void |
| 217 | wset_temslot (struct window *w, Lisp_Object val) | 217 | wset_temslot (struct window *w, Lisp_Object val) |
| 218 | { | 218 | { |
| 219 | w->temslot = val; | 219 | w->temslot = val; |
| 220 | } | 220 | } |
| 221 | static inline void | 221 | static void |
| 222 | wset_vchild (struct window *w, Lisp_Object val) | 222 | wset_vchild (struct window *w, Lisp_Object val) |
| 223 | { | 223 | { |
| 224 | w->vchild = val; | 224 | w->vchild = val; |
| 225 | } | 225 | } |
| 226 | static inline void | 226 | static void |
| 227 | wset_vertical_scroll_bar_type (struct window *w, Lisp_Object val) | 227 | wset_vertical_scroll_bar_type (struct window *w, Lisp_Object val) |
| 228 | { | 228 | { |
| 229 | w->vertical_scroll_bar_type = val; | 229 | w->vertical_scroll_bar_type = val; |
| 230 | } | 230 | } |
| 231 | static inline void | 231 | static void |
| 232 | wset_window_parameters (struct window *w, Lisp_Object val) | 232 | wset_window_parameters (struct window *w, Lisp_Object val) |
| 233 | { | 233 | { |
| 234 | w->window_parameters = val; | 234 | w->window_parameters = val; |
diff --git a/src/xdisp.c b/src/xdisp.c index 1d267bd7ded..cdb9fd4e3b5 100644 --- a/src/xdisp.c +++ b/src/xdisp.c | |||
| @@ -367,22 +367,22 @@ static Lisp_Object Qmargin, Qpointer; | |||
| 367 | static Lisp_Object Qline_height; | 367 | static Lisp_Object Qline_height; |
| 368 | 368 | ||
| 369 | /* These setters are used only in this file, so they can be private. */ | 369 | /* These setters are used only in this file, so they can be private. */ |
| 370 | static inline void | 370 | static void |
| 371 | wset_base_line_number (struct window *w, Lisp_Object val) | 371 | wset_base_line_number (struct window *w, Lisp_Object val) |
| 372 | { | 372 | { |
| 373 | w->base_line_number = val; | 373 | w->base_line_number = val; |
| 374 | } | 374 | } |
| 375 | static inline void | 375 | static void |
| 376 | wset_base_line_pos (struct window *w, Lisp_Object val) | 376 | wset_base_line_pos (struct window *w, Lisp_Object val) |
| 377 | { | 377 | { |
| 378 | w->base_line_pos = val; | 378 | w->base_line_pos = val; |
| 379 | } | 379 | } |
| 380 | static inline void | 380 | static void |
| 381 | wset_column_number_displayed (struct window *w, Lisp_Object val) | 381 | wset_column_number_displayed (struct window *w, Lisp_Object val) |
| 382 | { | 382 | { |
| 383 | w->column_number_displayed = val; | 383 | w->column_number_displayed = val; |
| 384 | } | 384 | } |
| 385 | static inline void | 385 | static void |
| 386 | wset_region_showing (struct window *w, Lisp_Object val) | 386 | wset_region_showing (struct window *w, Lisp_Object val) |
| 387 | { | 387 | { |
| 388 | w->region_showing = val; | 388 | w->region_showing = val; |
| @@ -1191,7 +1191,7 @@ window_box (struct window *w, int area, int *box_x, int *box_y, | |||
| 1191 | *BOTTOM_RIGHT_Y the coordinates of the bottom-right corner of the | 1191 | *BOTTOM_RIGHT_Y the coordinates of the bottom-right corner of the |
| 1192 | box. */ | 1192 | box. */ |
| 1193 | 1193 | ||
| 1194 | static inline void | 1194 | static void |
| 1195 | window_box_edges (struct window *w, int area, int *top_left_x, int *top_left_y, | 1195 | window_box_edges (struct window *w, int area, int *top_left_x, int *top_left_y, |
| 1196 | int *bottom_right_x, int *bottom_right_y) | 1196 | int *bottom_right_x, int *bottom_right_y) |
| 1197 | { | 1197 | { |
| @@ -1278,7 +1278,7 @@ string_from_display_spec (Lisp_Object spec) | |||
| 1278 | /* Limit insanely large values of W->hscroll on frame F to the largest | 1278 | /* Limit insanely large values of W->hscroll on frame F to the largest |
| 1279 | value that will still prevent first_visible_x and last_visible_x of | 1279 | value that will still prevent first_visible_x and last_visible_x of |
| 1280 | 'struct it' from overflowing an int. */ | 1280 | 'struct it' from overflowing an int. */ |
| 1281 | static inline int | 1281 | static int |
| 1282 | window_hscroll_limited (struct window *w, struct frame *f) | 1282 | window_hscroll_limited (struct window *w, struct frame *f) |
| 1283 | { | 1283 | { |
| 1284 | ptrdiff_t window_hscroll = w->hscroll; | 1284 | ptrdiff_t window_hscroll = w->hscroll; |
| @@ -1625,7 +1625,7 @@ pos_visible_p (struct window *w, ptrdiff_t charpos, int *x, int *y, | |||
| 1625 | returns an invalid character. If we find one, we return a `?', but | 1625 | returns an invalid character. If we find one, we return a `?', but |
| 1626 | with the length of the invalid character. */ | 1626 | with the length of the invalid character. */ |
| 1627 | 1627 | ||
| 1628 | static inline int | 1628 | static int |
| 1629 | string_char_and_length (const unsigned char *str, int *len) | 1629 | string_char_and_length (const unsigned char *str, int *len) |
| 1630 | { | 1630 | { |
| 1631 | int c; | 1631 | int c; |
| @@ -1673,7 +1673,7 @@ string_pos_nchars_ahead (struct text_pos pos, Lisp_Object string, ptrdiff_t ncha | |||
| 1673 | /* Value is the text position, i.e. character and byte position, | 1673 | /* Value is the text position, i.e. character and byte position, |
| 1674 | for character position CHARPOS in STRING. */ | 1674 | for character position CHARPOS in STRING. */ |
| 1675 | 1675 | ||
| 1676 | static inline struct text_pos | 1676 | static struct text_pos |
| 1677 | string_pos (ptrdiff_t charpos, Lisp_Object string) | 1677 | string_pos (ptrdiff_t charpos, Lisp_Object string) |
| 1678 | { | 1678 | { |
| 1679 | struct text_pos pos; | 1679 | struct text_pos pos; |
| @@ -12577,7 +12577,7 @@ debug_method_add (struct window *w, char const *fmt, ...) | |||
| 12577 | buffer position, END is given as a distance from Z. Used in | 12577 | buffer position, END is given as a distance from Z. Used in |
| 12578 | redisplay_internal for display optimization. */ | 12578 | redisplay_internal for display optimization. */ |
| 12579 | 12579 | ||
| 12580 | static inline int | 12580 | static int |
| 12581 | text_outside_line_unchanged_p (struct window *w, | 12581 | text_outside_line_unchanged_p (struct window *w, |
| 12582 | ptrdiff_t start, ptrdiff_t end) | 12582 | ptrdiff_t start, ptrdiff_t end) |
| 12583 | { | 12583 | { |
| @@ -12838,7 +12838,7 @@ check_point_in_composition (struct buffer *prev_buf, ptrdiff_t prev_pt, | |||
| 12838 | /* Reconsider the setting of B->clip_changed which is displayed | 12838 | /* Reconsider the setting of B->clip_changed which is displayed |
| 12839 | in window W. */ | 12839 | in window W. */ |
| 12840 | 12840 | ||
| 12841 | static inline void | 12841 | static void |
| 12842 | reconsider_clip_changes (struct window *w, struct buffer *b) | 12842 | reconsider_clip_changes (struct window *w, struct buffer *b) |
| 12843 | { | 12843 | { |
| 12844 | if (b->clip_changed | 12844 | if (b->clip_changed |
| @@ -14538,7 +14538,7 @@ set_cursor_from_row (struct window *w, struct glyph_row *row, | |||
| 14538 | 14538 | ||
| 14539 | We assume that the window's buffer is really current. */ | 14539 | We assume that the window's buffer is really current. */ |
| 14540 | 14540 | ||
| 14541 | static inline struct text_pos | 14541 | static struct text_pos |
| 14542 | run_window_scroll_functions (Lisp_Object window, struct text_pos startp) | 14542 | run_window_scroll_functions (Lisp_Object window, struct text_pos startp) |
| 14543 | { | 14543 | { |
| 14544 | struct window *w = XWINDOW (window); | 14544 | struct window *w = XWINDOW (window); |
| @@ -22491,7 +22491,7 @@ init_glyph_string (struct glyph_string *s, | |||
| 22491 | /* Append the list of glyph strings with head H and tail T to the list | 22491 | /* Append the list of glyph strings with head H and tail T to the list |
| 22492 | with head *HEAD and tail *TAIL. Set *HEAD and *TAIL to the result. */ | 22492 | with head *HEAD and tail *TAIL. Set *HEAD and *TAIL to the result. */ |
| 22493 | 22493 | ||
| 22494 | static inline void | 22494 | static void |
| 22495 | append_glyph_string_lists (struct glyph_string **head, struct glyph_string **tail, | 22495 | append_glyph_string_lists (struct glyph_string **head, struct glyph_string **tail, |
| 22496 | struct glyph_string *h, struct glyph_string *t) | 22496 | struct glyph_string *h, struct glyph_string *t) |
| 22497 | { | 22497 | { |
| @@ -22511,7 +22511,7 @@ append_glyph_string_lists (struct glyph_string **head, struct glyph_string **tai | |||
| 22511 | list with head *HEAD and tail *TAIL. Set *HEAD and *TAIL to the | 22511 | list with head *HEAD and tail *TAIL. Set *HEAD and *TAIL to the |
| 22512 | result. */ | 22512 | result. */ |
| 22513 | 22513 | ||
| 22514 | static inline void | 22514 | static void |
| 22515 | prepend_glyph_string_lists (struct glyph_string **head, struct glyph_string **tail, | 22515 | prepend_glyph_string_lists (struct glyph_string **head, struct glyph_string **tail, |
| 22516 | struct glyph_string *h, struct glyph_string *t) | 22516 | struct glyph_string *h, struct glyph_string *t) |
| 22517 | { | 22517 | { |
| @@ -22530,7 +22530,7 @@ prepend_glyph_string_lists (struct glyph_string **head, struct glyph_string **ta | |||
| 22530 | /* Append glyph string S to the list with head *HEAD and tail *TAIL. | 22530 | /* Append glyph string S to the list with head *HEAD and tail *TAIL. |
| 22531 | Set *HEAD and *TAIL to the resulting list. */ | 22531 | Set *HEAD and *TAIL to the resulting list. */ |
| 22532 | 22532 | ||
| 22533 | static inline void | 22533 | static void |
| 22534 | append_glyph_string (struct glyph_string **head, struct glyph_string **tail, | 22534 | append_glyph_string (struct glyph_string **head, struct glyph_string **tail, |
| 22535 | struct glyph_string *s) | 22535 | struct glyph_string *s) |
| 22536 | { | 22536 | { |
| @@ -22545,7 +22545,7 @@ append_glyph_string (struct glyph_string **head, struct glyph_string **tail, | |||
| 22545 | Value is a pointer to a realized face that is ready for display if | 22545 | Value is a pointer to a realized face that is ready for display if |
| 22546 | DISPLAY_P is non-zero. */ | 22546 | DISPLAY_P is non-zero. */ |
| 22547 | 22547 | ||
| 22548 | static inline struct face * | 22548 | static struct face * |
| 22549 | get_char_face_and_encoding (struct frame *f, int c, int face_id, | 22549 | get_char_face_and_encoding (struct frame *f, int c, int face_id, |
| 22550 | XChar2b *char2b, int display_p) | 22550 | XChar2b *char2b, int display_p) |
| 22551 | { | 22551 | { |
| @@ -22578,7 +22578,7 @@ get_char_face_and_encoding (struct frame *f, int c, int face_id, | |||
| 22578 | The encoding of GLYPH->u.ch is returned in *CHAR2B. Value is | 22578 | The encoding of GLYPH->u.ch is returned in *CHAR2B. Value is |
| 22579 | a pointer to a realized face that is ready for display. */ | 22579 | a pointer to a realized face that is ready for display. */ |
| 22580 | 22580 | ||
| 22581 | static inline struct face * | 22581 | static struct face * |
| 22582 | get_glyph_face_and_encoding (struct frame *f, struct glyph *glyph, | 22582 | get_glyph_face_and_encoding (struct frame *f, struct glyph *glyph, |
| 22583 | XChar2b *char2b, int *two_byte_p) | 22583 | XChar2b *char2b, int *two_byte_p) |
| 22584 | { | 22584 | { |
| @@ -22615,7 +22615,7 @@ get_glyph_face_and_encoding (struct frame *f, struct glyph *glyph, | |||
| 22615 | /* Get glyph code of character C in FONT in the two-byte form CHAR2B. | 22615 | /* Get glyph code of character C in FONT in the two-byte form CHAR2B. |
| 22616 | Return 1 if FONT has a glyph for C, otherwise return 0. */ | 22616 | Return 1 if FONT has a glyph for C, otherwise return 0. */ |
| 22617 | 22617 | ||
| 22618 | static inline int | 22618 | static int |
| 22619 | get_char_glyph_code (int c, struct font *font, XChar2b *char2b) | 22619 | get_char_glyph_code (int c, struct font *font, XChar2b *char2b) |
| 22620 | { | 22620 | { |
| 22621 | unsigned code; | 22621 | unsigned code; |
| @@ -23089,7 +23089,7 @@ right_overwriting (struct glyph_string *s) | |||
| 23089 | first glyph following S. LAST_X is the right-most x-position + 1 | 23089 | first glyph following S. LAST_X is the right-most x-position + 1 |
| 23090 | in the drawing area. */ | 23090 | in the drawing area. */ |
| 23091 | 23091 | ||
| 23092 | static inline void | 23092 | static void |
| 23093 | set_glyph_string_background_width (struct glyph_string *s, int start, int last_x) | 23093 | set_glyph_string_background_width (struct glyph_string *s, int start, int last_x) |
| 23094 | { | 23094 | { |
| 23095 | /* If the face of this glyph string has to be drawn to the end of | 23095 | /* If the face of this glyph string has to be drawn to the end of |
| @@ -23650,7 +23650,7 @@ draw_glyphs (struct window *w, int x, struct glyph_row *row, | |||
| 23650 | /* Store one glyph for IT->char_to_display in IT->glyph_row. | 23650 | /* Store one glyph for IT->char_to_display in IT->glyph_row. |
| 23651 | Called from x_produce_glyphs when IT->glyph_row is non-null. */ | 23651 | Called from x_produce_glyphs when IT->glyph_row is non-null. */ |
| 23652 | 23652 | ||
| 23653 | static inline void | 23653 | static void |
| 23654 | append_glyph (struct it *it) | 23654 | append_glyph (struct it *it) |
| 23655 | { | 23655 | { |
| 23656 | struct glyph *glyph; | 23656 | struct glyph *glyph; |
| @@ -23724,7 +23724,7 @@ append_glyph (struct it *it) | |||
| 23724 | IT->glyph_row. Called from x_produce_glyphs when IT->glyph_row is | 23724 | IT->glyph_row. Called from x_produce_glyphs when IT->glyph_row is |
| 23725 | non-null. */ | 23725 | non-null. */ |
| 23726 | 23726 | ||
| 23727 | static inline void | 23727 | static void |
| 23728 | append_composite_glyph (struct it *it) | 23728 | append_composite_glyph (struct it *it) |
| 23729 | { | 23729 | { |
| 23730 | struct glyph *glyph; | 23730 | struct glyph *glyph; |
| @@ -23793,7 +23793,7 @@ append_composite_glyph (struct it *it) | |||
| 23793 | /* Change IT->ascent and IT->height according to the setting of | 23793 | /* Change IT->ascent and IT->height according to the setting of |
| 23794 | IT->voffset. */ | 23794 | IT->voffset. */ |
| 23795 | 23795 | ||
| 23796 | static inline void | 23796 | static void |
| 23797 | take_vertical_position_into_account (struct it *it) | 23797 | take_vertical_position_into_account (struct it *it) |
| 23798 | { | 23798 | { |
| 23799 | if (it->voffset) | 23799 | if (it->voffset) |
diff --git a/src/xfaces.c b/src/xfaces.c index 28be6aaf082..f861dde2d15 100644 --- a/src/xfaces.c +++ b/src/xfaces.c | |||
| @@ -601,7 +601,7 @@ x_free_dpy_colors (Display *dpy, Screen *screen, Colormap cmap, | |||
| 601 | /* Create and return a GC for use on frame F. GC values and mask | 601 | /* Create and return a GC for use on frame F. GC values and mask |
| 602 | are given by XGCV and MASK. */ | 602 | are given by XGCV and MASK. */ |
| 603 | 603 | ||
| 604 | static inline GC | 604 | static GC |
| 605 | x_create_gc (struct frame *f, long unsigned int mask, XGCValues *xgcv) | 605 | x_create_gc (struct frame *f, long unsigned int mask, XGCValues *xgcv) |
| 606 | { | 606 | { |
| 607 | GC gc; | 607 | GC gc; |
| @@ -615,7 +615,7 @@ x_create_gc (struct frame *f, long unsigned int mask, XGCValues *xgcv) | |||
| 615 | 615 | ||
| 616 | /* Free GC which was used on frame F. */ | 616 | /* Free GC which was used on frame F. */ |
| 617 | 617 | ||
| 618 | static inline void | 618 | static void |
| 619 | x_free_gc (struct frame *f, GC gc) | 619 | x_free_gc (struct frame *f, GC gc) |
| 620 | { | 620 | { |
| 621 | eassert (input_blocked_p ()); | 621 | eassert (input_blocked_p ()); |
| @@ -628,7 +628,7 @@ x_free_gc (struct frame *f, GC gc) | |||
| 628 | #ifdef WINDOWSNT | 628 | #ifdef WINDOWSNT |
| 629 | /* W32 emulation of GCs */ | 629 | /* W32 emulation of GCs */ |
| 630 | 630 | ||
| 631 | static inline GC | 631 | static GC |
| 632 | x_create_gc (struct frame *f, unsigned long mask, XGCValues *xgcv) | 632 | x_create_gc (struct frame *f, unsigned long mask, XGCValues *xgcv) |
| 633 | { | 633 | { |
| 634 | GC gc; | 634 | GC gc; |
| @@ -642,7 +642,7 @@ x_create_gc (struct frame *f, unsigned long mask, XGCValues *xgcv) | |||
| 642 | 642 | ||
| 643 | /* Free GC which was used on frame F. */ | 643 | /* Free GC which was used on frame F. */ |
| 644 | 644 | ||
| 645 | static inline void | 645 | static void |
| 646 | x_free_gc (struct frame *f, GC gc) | 646 | x_free_gc (struct frame *f, GC gc) |
| 647 | { | 647 | { |
| 648 | IF_DEBUG (eassert (--ngcs >= 0)); | 648 | IF_DEBUG (eassert (--ngcs >= 0)); |
| @@ -654,7 +654,7 @@ x_free_gc (struct frame *f, GC gc) | |||
| 654 | #ifdef HAVE_NS | 654 | #ifdef HAVE_NS |
| 655 | /* NS emulation of GCs */ | 655 | /* NS emulation of GCs */ |
| 656 | 656 | ||
| 657 | static inline GC | 657 | static GC |
| 658 | x_create_gc (struct frame *f, | 658 | x_create_gc (struct frame *f, |
| 659 | unsigned long mask, | 659 | unsigned long mask, |
| 660 | XGCValues *xgcv) | 660 | XGCValues *xgcv) |
| @@ -664,7 +664,7 @@ x_create_gc (struct frame *f, | |||
| 664 | return gc; | 664 | return gc; |
| 665 | } | 665 | } |
| 666 | 666 | ||
| 667 | static inline void | 667 | static void |
| 668 | x_free_gc (struct frame *f, GC gc) | 668 | x_free_gc (struct frame *f, GC gc) |
| 669 | { | 669 | { |
| 670 | xfree (gc); | 670 | xfree (gc); |
| @@ -677,7 +677,7 @@ x_free_gc (struct frame *f, GC gc) | |||
| 677 | CHECK_LIVE_FRAME. This is here because it's a frequent pattern in | 677 | CHECK_LIVE_FRAME. This is here because it's a frequent pattern in |
| 678 | Lisp function definitions. */ | 678 | Lisp function definitions. */ |
| 679 | 679 | ||
| 680 | static inline struct frame * | 680 | static struct frame * |
| 681 | frame_or_selected_frame (Lisp_Object frame, int nparam) | 681 | frame_or_selected_frame (Lisp_Object frame, int nparam) |
| 682 | { | 682 | { |
| 683 | if (NILP (frame)) | 683 | if (NILP (frame)) |
| @@ -1920,7 +1920,7 @@ struct named_merge_point | |||
| 1920 | FACE_NAME and NAMED_MERGE_POINT_KIND, as the head of the linked list | 1920 | FACE_NAME and NAMED_MERGE_POINT_KIND, as the head of the linked list |
| 1921 | pointed to by NAMED_MERGE_POINTS, and return 1. */ | 1921 | pointed to by NAMED_MERGE_POINTS, and return 1. */ |
| 1922 | 1922 | ||
| 1923 | static inline int | 1923 | static int |
| 1924 | push_named_merge_point (struct named_merge_point *new_named_merge_point, | 1924 | push_named_merge_point (struct named_merge_point *new_named_merge_point, |
| 1925 | Lisp_Object face_name, | 1925 | Lisp_Object face_name, |
| 1926 | enum named_merge_point_kind named_merge_point_kind, | 1926 | enum named_merge_point_kind named_merge_point_kind, |
| @@ -2004,7 +2004,7 @@ resolve_face_name (Lisp_Object face_name, int signal_p) | |||
| 2004 | face text properties; Ediff uses that). If SIGNAL_P is non-zero, | 2004 | face text properties; Ediff uses that). If SIGNAL_P is non-zero, |
| 2005 | signal an error if FACE_NAME is not a valid face name. If SIGNAL_P | 2005 | signal an error if FACE_NAME is not a valid face name. If SIGNAL_P |
| 2006 | is zero, value is nil if FACE_NAME is not a valid face name. */ | 2006 | is zero, value is nil if FACE_NAME is not a valid face name. */ |
| 2007 | static inline Lisp_Object | 2007 | static Lisp_Object |
| 2008 | lface_from_face_name_no_resolve (struct frame *f, Lisp_Object face_name, | 2008 | lface_from_face_name_no_resolve (struct frame *f, Lisp_Object face_name, |
| 2009 | int signal_p) | 2009 | int signal_p) |
| 2010 | { | 2010 | { |
| @@ -2033,7 +2033,7 @@ lface_from_face_name_no_resolve (struct frame *f, Lisp_Object face_name, | |||
| 2033 | non-zero, signal an error if FACE_NAME is not a valid face name. | 2033 | non-zero, signal an error if FACE_NAME is not a valid face name. |
| 2034 | If SIGNAL_P is zero, value is nil if FACE_NAME is not a valid face | 2034 | If SIGNAL_P is zero, value is nil if FACE_NAME is not a valid face |
| 2035 | name. */ | 2035 | name. */ |
| 2036 | static inline Lisp_Object | 2036 | static Lisp_Object |
| 2037 | lface_from_face_name (struct frame *f, Lisp_Object face_name, int signal_p) | 2037 | lface_from_face_name (struct frame *f, Lisp_Object face_name, int signal_p) |
| 2038 | { | 2038 | { |
| 2039 | face_name = resolve_face_name (face_name, signal_p); | 2039 | face_name = resolve_face_name (face_name, signal_p); |
| @@ -2047,7 +2047,7 @@ lface_from_face_name (struct frame *f, Lisp_Object face_name, int signal_p) | |||
| 2047 | is non-zero, signal an error if FACE_NAME does not name a face. | 2047 | is non-zero, signal an error if FACE_NAME does not name a face. |
| 2048 | Otherwise, value is zero if FACE_NAME is not a face. */ | 2048 | Otherwise, value is zero if FACE_NAME is not a face. */ |
| 2049 | 2049 | ||
| 2050 | static inline int | 2050 | static int |
| 2051 | get_lface_attributes_no_remap (struct frame *f, Lisp_Object face_name, | 2051 | get_lface_attributes_no_remap (struct frame *f, Lisp_Object face_name, |
| 2052 | Lisp_Object *attrs, int signal_p) | 2052 | Lisp_Object *attrs, int signal_p) |
| 2053 | { | 2053 | { |
| @@ -2069,7 +2069,7 @@ get_lface_attributes_no_remap (struct frame *f, Lisp_Object face_name, | |||
| 2069 | non-zero, signal an error if FACE_NAME does not name a face. | 2069 | non-zero, signal an error if FACE_NAME does not name a face. |
| 2070 | Otherwise, value is zero if FACE_NAME is not a face. */ | 2070 | Otherwise, value is zero if FACE_NAME is not a face. */ |
| 2071 | 2071 | ||
| 2072 | static inline int | 2072 | static int |
| 2073 | get_lface_attributes (struct frame *f, Lisp_Object face_name, | 2073 | get_lface_attributes (struct frame *f, Lisp_Object face_name, |
| 2074 | Lisp_Object *attrs, int signal_p, | 2074 | Lisp_Object *attrs, int signal_p, |
| 2075 | struct named_merge_point *named_merge_points) | 2075 | struct named_merge_point *named_merge_points) |
| @@ -2234,7 +2234,7 @@ merge_face_heights (Lisp_Object from, Lisp_Object to, Lisp_Object invalid) | |||
| 2234 | loops in face inheritance/remapping; it should be 0 when called from | 2234 | loops in face inheritance/remapping; it should be 0 when called from |
| 2235 | other places. */ | 2235 | other places. */ |
| 2236 | 2236 | ||
| 2237 | static inline void | 2237 | static void |
| 2238 | merge_face_vectors (struct frame *f, Lisp_Object *from, Lisp_Object *to, | 2238 | merge_face_vectors (struct frame *f, Lisp_Object *from, Lisp_Object *to, |
| 2239 | struct named_merge_point *named_merge_points) | 2239 | struct named_merge_point *named_merge_points) |
| 2240 | { | 2240 | { |
| @@ -3906,7 +3906,7 @@ return the font name used for CHARACTER. */) | |||
| 3906 | all attributes are `equal'. Tries to be fast because this function | 3906 | all attributes are `equal'. Tries to be fast because this function |
| 3907 | is called quite often. */ | 3907 | is called quite often. */ |
| 3908 | 3908 | ||
| 3909 | static inline int | 3909 | static int |
| 3910 | face_attr_equal_p (Lisp_Object v1, Lisp_Object v2) | 3910 | face_attr_equal_p (Lisp_Object v1, Lisp_Object v2) |
| 3911 | { | 3911 | { |
| 3912 | /* Type can differ, e.g. when one attribute is unspecified, i.e. nil, | 3912 | /* Type can differ, e.g. when one attribute is unspecified, i.e. nil, |
| @@ -3939,7 +3939,7 @@ face_attr_equal_p (Lisp_Object v1, Lisp_Object v2) | |||
| 3939 | all attributes are `equal'. Tries to be fast because this function | 3939 | all attributes are `equal'. Tries to be fast because this function |
| 3940 | is called quite often. */ | 3940 | is called quite often. */ |
| 3941 | 3941 | ||
| 3942 | static inline int | 3942 | static int |
| 3943 | lface_equal_p (Lisp_Object *v1, Lisp_Object *v2) | 3943 | lface_equal_p (Lisp_Object *v1, Lisp_Object *v2) |
| 3944 | { | 3944 | { |
| 3945 | int i, equal_p = 1; | 3945 | int i, equal_p = 1; |
| @@ -4024,7 +4024,7 @@ For internal use only. */) | |||
| 4024 | /* Return a hash code for Lisp string STRING with case ignored. Used | 4024 | /* Return a hash code for Lisp string STRING with case ignored. Used |
| 4025 | below in computing a hash value for a Lisp face. */ | 4025 | below in computing a hash value for a Lisp face. */ |
| 4026 | 4026 | ||
| 4027 | static inline unsigned | 4027 | static unsigned |
| 4028 | hash_string_case_insensitive (Lisp_Object string) | 4028 | hash_string_case_insensitive (Lisp_Object string) |
| 4029 | { | 4029 | { |
| 4030 | const unsigned char *s; | 4030 | const unsigned char *s; |
| @@ -4038,7 +4038,7 @@ hash_string_case_insensitive (Lisp_Object string) | |||
| 4038 | 4038 | ||
| 4039 | /* Return a hash code for face attribute vector V. */ | 4039 | /* Return a hash code for face attribute vector V. */ |
| 4040 | 4040 | ||
| 4041 | static inline unsigned | 4041 | static unsigned |
| 4042 | lface_hash (Lisp_Object *v) | 4042 | lface_hash (Lisp_Object *v) |
| 4043 | { | 4043 | { |
| 4044 | return (hash_string_case_insensitive (v[LFACE_FAMILY_INDEX]) | 4044 | return (hash_string_case_insensitive (v[LFACE_FAMILY_INDEX]) |
| @@ -4057,7 +4057,7 @@ lface_hash (Lisp_Object *v) | |||
| 4057 | family, point size, weight, width, slant, and font. Both | 4057 | family, point size, weight, width, slant, and font. Both |
| 4058 | LFACE1 and LFACE2 must be fully-specified. */ | 4058 | LFACE1 and LFACE2 must be fully-specified. */ |
| 4059 | 4059 | ||
| 4060 | static inline int | 4060 | static int |
| 4061 | lface_same_font_attributes_p (Lisp_Object *lface1, Lisp_Object *lface2) | 4061 | lface_same_font_attributes_p (Lisp_Object *lface1, Lisp_Object *lface2) |
| 4062 | { | 4062 | { |
| 4063 | eassert (lface_fully_specified_p (lface1) | 4063 | eassert (lface_fully_specified_p (lface1) |
| @@ -4453,7 +4453,7 @@ uncache_face (struct face_cache *c, struct face *face) | |||
| 4453 | Value is the ID of the face found. If no suitable face is found, | 4453 | Value is the ID of the face found. If no suitable face is found, |
| 4454 | realize a new one. */ | 4454 | realize a new one. */ |
| 4455 | 4455 | ||
| 4456 | static inline int | 4456 | static int |
| 4457 | lookup_face (struct frame *f, Lisp_Object *attr) | 4457 | lookup_face (struct frame *f, Lisp_Object *attr) |
| 4458 | { | 4458 | { |
| 4459 | struct face_cache *cache = FRAME_FACE_CACHE (f); | 4459 | struct face_cache *cache = FRAME_FACE_CACHE (f); |
| @@ -73,7 +73,7 @@ libxml2_loaded_p (void) | |||
| 73 | #define fn_xmlCleanupParser xmlCleanupParser | 73 | #define fn_xmlCleanupParser xmlCleanupParser |
| 74 | #define fn_xmlCheckVersion xmlCheckVersion | 74 | #define fn_xmlCheckVersion xmlCheckVersion |
| 75 | 75 | ||
| 76 | static inline int | 76 | static int |
| 77 | libxml2_loaded_p (void) | 77 | libxml2_loaded_p (void) |
| 78 | { | 78 | { |
| 79 | return 1; | 79 | return 1; |
diff --git a/src/xterm.c b/src/xterm.c index 6cd1d583870..a4c3e125d8d 100644 --- a/src/xterm.c +++ b/src/xterm.c | |||
| @@ -1027,7 +1027,7 @@ x_set_mouse_face_gc (struct glyph_string *s) | |||
| 1027 | Faces to use in the mode line have already been computed when the | 1027 | Faces to use in the mode line have already been computed when the |
| 1028 | matrix was built, so there isn't much to do, here. */ | 1028 | matrix was built, so there isn't much to do, here. */ |
| 1029 | 1029 | ||
| 1030 | static inline void | 1030 | static void |
| 1031 | x_set_mode_line_face_gc (struct glyph_string *s) | 1031 | x_set_mode_line_face_gc (struct glyph_string *s) |
| 1032 | { | 1032 | { |
| 1033 | s->gc = s->face->gc; | 1033 | s->gc = s->face->gc; |
| @@ -1038,7 +1038,7 @@ x_set_mode_line_face_gc (struct glyph_string *s) | |||
| 1038 | S->stippled_p to a non-zero value if the face of S has a stipple | 1038 | S->stippled_p to a non-zero value if the face of S has a stipple |
| 1039 | pattern. */ | 1039 | pattern. */ |
| 1040 | 1040 | ||
| 1041 | static inline void | 1041 | static void |
| 1042 | x_set_glyph_string_gc (struct glyph_string *s) | 1042 | x_set_glyph_string_gc (struct glyph_string *s) |
| 1043 | { | 1043 | { |
| 1044 | PREPARE_FACE_FOR_DISPLAY (s->f, s->face); | 1044 | PREPARE_FACE_FOR_DISPLAY (s->f, s->face); |
| @@ -1083,7 +1083,7 @@ x_set_glyph_string_gc (struct glyph_string *s) | |||
| 1083 | /* Set clipping for output of glyph string S. S may be part of a mode | 1083 | /* Set clipping for output of glyph string S. S may be part of a mode |
| 1084 | line or menu if we don't have X toolkit support. */ | 1084 | line or menu if we don't have X toolkit support. */ |
| 1085 | 1085 | ||
| 1086 | static inline void | 1086 | static void |
| 1087 | x_set_glyph_string_clipping (struct glyph_string *s) | 1087 | x_set_glyph_string_clipping (struct glyph_string *s) |
| 1088 | { | 1088 | { |
| 1089 | XRectangle *r = s->clip; | 1089 | XRectangle *r = s->clip; |
| @@ -1156,7 +1156,7 @@ x_compute_glyph_string_overhangs (struct glyph_string *s) | |||
| 1156 | 1156 | ||
| 1157 | /* Fill rectangle X, Y, W, H with background color of glyph string S. */ | 1157 | /* Fill rectangle X, Y, W, H with background color of glyph string S. */ |
| 1158 | 1158 | ||
| 1159 | static inline void | 1159 | static void |
| 1160 | x_clear_glyph_string_rect (struct glyph_string *s, int x, int y, int w, int h) | 1160 | x_clear_glyph_string_rect (struct glyph_string *s, int x, int y, int w, int h) |
| 1161 | { | 1161 | { |
| 1162 | XGCValues xgcv; | 1162 | XGCValues xgcv; |