diff options
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 92 |
1 files changed, 46 insertions, 46 deletions
diff --git a/src/buffer.c b/src/buffer.c index 7312d160e3c..b09676c438d 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -134,227 +134,227 @@ CHECK_OVERLAY (Lisp_Object x) | |||
| 134 | static void | 134 | static void |
| 135 | bset_abbrev_mode (struct buffer *b, Lisp_Object val) | 135 | bset_abbrev_mode (struct buffer *b, Lisp_Object val) |
| 136 | { | 136 | { |
| 137 | b->abbrev_mode = val; | 137 | b->abbrev_mode_ = val; |
| 138 | } | 138 | } |
| 139 | static void | 139 | static void |
| 140 | bset_abbrev_table (struct buffer *b, Lisp_Object val) | 140 | bset_abbrev_table (struct buffer *b, Lisp_Object val) |
| 141 | { | 141 | { |
| 142 | b->abbrev_table = val; | 142 | b->abbrev_table_ = val; |
| 143 | } | 143 | } |
| 144 | static void | 144 | static void |
| 145 | bset_auto_fill_function (struct buffer *b, Lisp_Object val) | 145 | bset_auto_fill_function (struct buffer *b, Lisp_Object val) |
| 146 | { | 146 | { |
| 147 | b->auto_fill_function = val; | 147 | b->auto_fill_function_ = val; |
| 148 | } | 148 | } |
| 149 | static void | 149 | static void |
| 150 | bset_auto_save_file_format (struct buffer *b, Lisp_Object val) | 150 | bset_auto_save_file_format (struct buffer *b, Lisp_Object val) |
| 151 | { | 151 | { |
| 152 | b->auto_save_file_format = val; | 152 | b->auto_save_file_format_ = val; |
| 153 | } | 153 | } |
| 154 | static void | 154 | static void |
| 155 | bset_auto_save_file_name (struct buffer *b, Lisp_Object val) | 155 | bset_auto_save_file_name (struct buffer *b, Lisp_Object val) |
| 156 | { | 156 | { |
| 157 | b->auto_save_file_name = val; | 157 | b->auto_save_file_name_ = val; |
| 158 | } | 158 | } |
| 159 | static void | 159 | static void |
| 160 | bset_backed_up (struct buffer *b, Lisp_Object val) | 160 | bset_backed_up (struct buffer *b, Lisp_Object val) |
| 161 | { | 161 | { |
| 162 | b->backed_up = val; | 162 | b->backed_up_ = val; |
| 163 | } | 163 | } |
| 164 | static void | 164 | static void |
| 165 | bset_begv_marker (struct buffer *b, Lisp_Object val) | 165 | bset_begv_marker (struct buffer *b, Lisp_Object val) |
| 166 | { | 166 | { |
| 167 | b->begv_marker = val; | 167 | b->begv_marker_ = val; |
| 168 | } | 168 | } |
| 169 | static void | 169 | static void |
| 170 | bset_bidi_display_reordering (struct buffer *b, Lisp_Object val) | 170 | bset_bidi_display_reordering (struct buffer *b, Lisp_Object val) |
| 171 | { | 171 | { |
| 172 | b->bidi_display_reordering = val; | 172 | b->bidi_display_reordering_ = val; |
| 173 | } | 173 | } |
| 174 | static void | 174 | static void |
| 175 | bset_buffer_file_coding_system (struct buffer *b, Lisp_Object val) | 175 | bset_buffer_file_coding_system (struct buffer *b, Lisp_Object val) |
| 176 | { | 176 | { |
| 177 | b->buffer_file_coding_system = val; | 177 | b->buffer_file_coding_system_ = val; |
| 178 | } | 178 | } |
| 179 | static void | 179 | static void |
| 180 | bset_case_fold_search (struct buffer *b, Lisp_Object val) | 180 | bset_case_fold_search (struct buffer *b, Lisp_Object val) |
| 181 | { | 181 | { |
| 182 | b->case_fold_search = val; | 182 | b->case_fold_search_ = val; |
| 183 | } | 183 | } |
| 184 | static void | 184 | static void |
| 185 | bset_ctl_arrow (struct buffer *b, Lisp_Object val) | 185 | bset_ctl_arrow (struct buffer *b, Lisp_Object val) |
| 186 | { | 186 | { |
| 187 | b->ctl_arrow = val; | 187 | b->ctl_arrow_ = val; |
| 188 | } | 188 | } |
| 189 | static void | 189 | static void |
| 190 | bset_cursor_in_non_selected_windows (struct buffer *b, Lisp_Object val) | 190 | bset_cursor_in_non_selected_windows (struct buffer *b, Lisp_Object val) |
| 191 | { | 191 | { |
| 192 | b->cursor_in_non_selected_windows = val; | 192 | b->cursor_in_non_selected_windows_ = val; |
| 193 | } | 193 | } |
| 194 | static void | 194 | static void |
| 195 | bset_cursor_type (struct buffer *b, Lisp_Object val) | 195 | bset_cursor_type (struct buffer *b, Lisp_Object val) |
| 196 | { | 196 | { |
| 197 | b->cursor_type = val; | 197 | b->cursor_type_ = val; |
| 198 | } | 198 | } |
| 199 | static void | 199 | static void |
| 200 | bset_display_table (struct buffer *b, Lisp_Object val) | 200 | bset_display_table (struct buffer *b, Lisp_Object val) |
| 201 | { | 201 | { |
| 202 | b->display_table = val; | 202 | b->display_table_ = val; |
| 203 | } | 203 | } |
| 204 | static void | 204 | static void |
| 205 | bset_extra_line_spacing (struct buffer *b, Lisp_Object val) | 205 | bset_extra_line_spacing (struct buffer *b, Lisp_Object val) |
| 206 | { | 206 | { |
| 207 | b->extra_line_spacing = val; | 207 | b->extra_line_spacing_ = val; |
| 208 | } | 208 | } |
| 209 | static void | 209 | static void |
| 210 | bset_file_format (struct buffer *b, Lisp_Object val) | 210 | bset_file_format (struct buffer *b, Lisp_Object val) |
| 211 | { | 211 | { |
| 212 | b->file_format = val; | 212 | b->file_format_ = val; |
| 213 | } | 213 | } |
| 214 | static void | 214 | static void |
| 215 | bset_file_truename (struct buffer *b, Lisp_Object val) | 215 | bset_file_truename (struct buffer *b, Lisp_Object val) |
| 216 | { | 216 | { |
| 217 | b->file_truename = val; | 217 | b->file_truename_ = val; |
| 218 | } | 218 | } |
| 219 | static void | 219 | static void |
| 220 | bset_fringe_cursor_alist (struct buffer *b, Lisp_Object val) | 220 | bset_fringe_cursor_alist (struct buffer *b, Lisp_Object val) |
| 221 | { | 221 | { |
| 222 | b->fringe_cursor_alist = val; | 222 | b->fringe_cursor_alist_ = val; |
| 223 | } | 223 | } |
| 224 | static void | 224 | static void |
| 225 | bset_fringe_indicator_alist (struct buffer *b, Lisp_Object val) | 225 | bset_fringe_indicator_alist (struct buffer *b, Lisp_Object val) |
| 226 | { | 226 | { |
| 227 | b->fringe_indicator_alist = val; | 227 | b->fringe_indicator_alist_ = val; |
| 228 | } | 228 | } |
| 229 | static void | 229 | static void |
| 230 | bset_fringes_outside_margins (struct buffer *b, Lisp_Object val) | 230 | bset_fringes_outside_margins (struct buffer *b, Lisp_Object val) |
| 231 | { | 231 | { |
| 232 | b->fringes_outside_margins = val; | 232 | b->fringes_outside_margins_ = val; |
| 233 | } | 233 | } |
| 234 | static void | 234 | static void |
| 235 | bset_header_line_format (struct buffer *b, Lisp_Object val) | 235 | bset_header_line_format (struct buffer *b, Lisp_Object val) |
| 236 | { | 236 | { |
| 237 | b->header_line_format = val; | 237 | b->header_line_format_ = val; |
| 238 | } | 238 | } |
| 239 | static void | 239 | static void |
| 240 | bset_indicate_buffer_boundaries (struct buffer *b, Lisp_Object val) | 240 | bset_indicate_buffer_boundaries (struct buffer *b, Lisp_Object val) |
| 241 | { | 241 | { |
| 242 | b->indicate_buffer_boundaries = val; | 242 | b->indicate_buffer_boundaries_ = val; |
| 243 | } | 243 | } |
| 244 | static void | 244 | static void |
| 245 | bset_indicate_empty_lines (struct buffer *b, Lisp_Object val) | 245 | bset_indicate_empty_lines (struct buffer *b, Lisp_Object val) |
| 246 | { | 246 | { |
| 247 | b->indicate_empty_lines = val; | 247 | b->indicate_empty_lines_ = val; |
| 248 | } | 248 | } |
| 249 | static void | 249 | static void |
| 250 | bset_invisibility_spec (struct buffer *b, Lisp_Object val) | 250 | bset_invisibility_spec (struct buffer *b, Lisp_Object val) |
| 251 | { | 251 | { |
| 252 | b->invisibility_spec = val; | 252 | b->invisibility_spec_ = val; |
| 253 | } | 253 | } |
| 254 | static void | 254 | static void |
| 255 | bset_left_fringe_width (struct buffer *b, Lisp_Object val) | 255 | bset_left_fringe_width (struct buffer *b, Lisp_Object val) |
| 256 | { | 256 | { |
| 257 | b->left_fringe_width = val; | 257 | b->left_fringe_width_ = val; |
| 258 | } | 258 | } |
| 259 | static void | 259 | static void |
| 260 | bset_major_mode (struct buffer *b, Lisp_Object val) | 260 | bset_major_mode (struct buffer *b, Lisp_Object val) |
| 261 | { | 261 | { |
| 262 | b->major_mode = val; | 262 | b->major_mode_ = val; |
| 263 | } | 263 | } |
| 264 | static void | 264 | static void |
| 265 | bset_mark (struct buffer *b, Lisp_Object val) | 265 | bset_mark (struct buffer *b, Lisp_Object val) |
| 266 | { | 266 | { |
| 267 | b->mark = val; | 267 | b->mark_ = val; |
| 268 | } | 268 | } |
| 269 | static void | 269 | static void |
| 270 | bset_minor_modes (struct buffer *b, Lisp_Object val) | 270 | bset_minor_modes (struct buffer *b, Lisp_Object val) |
| 271 | { | 271 | { |
| 272 | b->minor_modes = val; | 272 | b->minor_modes_ = val; |
| 273 | } | 273 | } |
| 274 | static void | 274 | static void |
| 275 | bset_mode_line_format (struct buffer *b, Lisp_Object val) | 275 | bset_mode_line_format (struct buffer *b, Lisp_Object val) |
| 276 | { | 276 | { |
| 277 | b->mode_line_format = val; | 277 | b->mode_line_format_ = val; |
| 278 | } | 278 | } |
| 279 | static void | 279 | static void |
| 280 | bset_mode_name (struct buffer *b, Lisp_Object val) | 280 | bset_mode_name (struct buffer *b, Lisp_Object val) |
| 281 | { | 281 | { |
| 282 | b->mode_name = val; | 282 | b->mode_name_ = val; |
| 283 | } | 283 | } |
| 284 | static void | 284 | static void |
| 285 | bset_name (struct buffer *b, Lisp_Object val) | 285 | bset_name (struct buffer *b, Lisp_Object val) |
| 286 | { | 286 | { |
| 287 | b->name = val; | 287 | b->name_ = val; |
| 288 | } | 288 | } |
| 289 | static void | 289 | static void |
| 290 | bset_overwrite_mode (struct buffer *b, Lisp_Object val) | 290 | bset_overwrite_mode (struct buffer *b, Lisp_Object val) |
| 291 | { | 291 | { |
| 292 | b->overwrite_mode = val; | 292 | b->overwrite_mode_ = val; |
| 293 | } | 293 | } |
| 294 | static void | 294 | static void |
| 295 | bset_pt_marker (struct buffer *b, Lisp_Object val) | 295 | bset_pt_marker (struct buffer *b, Lisp_Object val) |
| 296 | { | 296 | { |
| 297 | b->pt_marker = val; | 297 | b->pt_marker_ = val; |
| 298 | } | 298 | } |
| 299 | static void | 299 | static void |
| 300 | bset_right_fringe_width (struct buffer *b, Lisp_Object val) | 300 | bset_right_fringe_width (struct buffer *b, Lisp_Object val) |
| 301 | { | 301 | { |
| 302 | b->right_fringe_width = val; | 302 | b->right_fringe_width_ = val; |
| 303 | } | 303 | } |
| 304 | static void | 304 | static void |
| 305 | bset_save_length (struct buffer *b, Lisp_Object val) | 305 | bset_save_length (struct buffer *b, Lisp_Object val) |
| 306 | { | 306 | { |
| 307 | b->save_length = val; | 307 | b->save_length_ = val; |
| 308 | } | 308 | } |
| 309 | static void | 309 | static void |
| 310 | bset_scroll_bar_width (struct buffer *b, Lisp_Object val) | 310 | bset_scroll_bar_width (struct buffer *b, Lisp_Object val) |
| 311 | { | 311 | { |
| 312 | b->scroll_bar_width = val; | 312 | b->scroll_bar_width_ = val; |
| 313 | } | 313 | } |
| 314 | static void | 314 | static void |
| 315 | bset_scroll_bar_height (struct buffer *b, Lisp_Object val) | 315 | bset_scroll_bar_height (struct buffer *b, Lisp_Object val) |
| 316 | { | 316 | { |
| 317 | b->scroll_bar_height = val; | 317 | b->scroll_bar_height_ = val; |
| 318 | } | 318 | } |
| 319 | static void | 319 | static void |
| 320 | bset_scroll_down_aggressively (struct buffer *b, Lisp_Object val) | 320 | bset_scroll_down_aggressively (struct buffer *b, Lisp_Object val) |
| 321 | { | 321 | { |
| 322 | b->scroll_down_aggressively = val; | 322 | b->scroll_down_aggressively_ = val; |
| 323 | } | 323 | } |
| 324 | static void | 324 | static void |
| 325 | bset_scroll_up_aggressively (struct buffer *b, Lisp_Object val) | 325 | bset_scroll_up_aggressively (struct buffer *b, Lisp_Object val) |
| 326 | { | 326 | { |
| 327 | b->scroll_up_aggressively = val; | 327 | b->scroll_up_aggressively_ = val; |
| 328 | } | 328 | } |
| 329 | static void | 329 | static void |
| 330 | bset_selective_display (struct buffer *b, Lisp_Object val) | 330 | bset_selective_display (struct buffer *b, Lisp_Object val) |
| 331 | { | 331 | { |
| 332 | b->selective_display = val; | 332 | b->selective_display_ = val; |
| 333 | } | 333 | } |
| 334 | static void | 334 | static void |
| 335 | bset_selective_display_ellipses (struct buffer *b, Lisp_Object val) | 335 | bset_selective_display_ellipses (struct buffer *b, Lisp_Object val) |
| 336 | { | 336 | { |
| 337 | b->selective_display_ellipses = val; | 337 | b->selective_display_ellipses_ = val; |
| 338 | } | 338 | } |
| 339 | static void | 339 | static void |
| 340 | bset_vertical_scroll_bar_type (struct buffer *b, Lisp_Object val) | 340 | bset_vertical_scroll_bar_type (struct buffer *b, Lisp_Object val) |
| 341 | { | 341 | { |
| 342 | b->vertical_scroll_bar_type = val; | 342 | b->vertical_scroll_bar_type_ = val; |
| 343 | } | 343 | } |
| 344 | static void | 344 | static void |
| 345 | bset_horizontal_scroll_bar_type (struct buffer *b, Lisp_Object val) | 345 | bset_horizontal_scroll_bar_type (struct buffer *b, Lisp_Object val) |
| 346 | { | 346 | { |
| 347 | b->horizontal_scroll_bar_type = val; | 347 | b->horizontal_scroll_bar_type_ = val; |
| 348 | } | 348 | } |
| 349 | static void | 349 | static void |
| 350 | bset_word_wrap (struct buffer *b, Lisp_Object val) | 350 | bset_word_wrap (struct buffer *b, Lisp_Object val) |
| 351 | { | 351 | { |
| 352 | b->word_wrap = val; | 352 | b->word_wrap_ = val; |
| 353 | } | 353 | } |
| 354 | static void | 354 | static void |
| 355 | bset_zv_marker (struct buffer *b, Lisp_Object val) | 355 | bset_zv_marker (struct buffer *b, Lisp_Object val) |
| 356 | { | 356 | { |
| 357 | b->zv_marker = val; | 357 | b->zv_marker_ = val; |
| 358 | } | 358 | } |
| 359 | 359 | ||
| 360 | void | 360 | void |
| @@ -1591,7 +1591,7 @@ compact_buffer (struct buffer *buffer) | |||
| 1591 | turned off in that buffer. Calling truncate_undo_list on | 1591 | turned off in that buffer. Calling truncate_undo_list on |
| 1592 | Qt tends to return NULL, which effectively turns undo back on. | 1592 | Qt tends to return NULL, which effectively turns undo back on. |
| 1593 | So don't call truncate_undo_list if undo_list is Qt. */ | 1593 | So don't call truncate_undo_list if undo_list is Qt. */ |
| 1594 | if (!EQ (buffer->undo_list, Qt)) | 1594 | if (!EQ (BVAR(buffer, undo_list), Qt)) |
| 1595 | truncate_undo_list (buffer); | 1595 | truncate_undo_list (buffer); |
| 1596 | 1596 | ||
| 1597 | /* Shrink buffer gaps. */ | 1597 | /* Shrink buffer gaps. */ |