Mercurial > hg > xemacs-beta

comparison src/EmacsFrame.c @ 5581:56144c8593a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mechanically change INT to FIXNUM in our sources. src/ChangeLog addition: 2011-10-09 Aidan Kehoe <kehoea@parhasard.net> [...] Mechanically change INT (where it refers to non-bignum Lisp integers) to FIXNUM in our sources. Done for the following functions, enums, and macros: Lisp_Type_Int_Even, Lisp_Type_Int_Odd, INT_GCBITS, INT_VALBITS, make_int(), INTP(), XINT(), CHECK_INT(), XREALINT(), INT_PLUS(), INT_MINUS(), EMACS_INT_MAX (to MOST_POSITIVE_FIXNUM), EMACS_INT_MIN (to MOST_NEGATIVE_FIXNUM), NUMBER_FITS_IN_AN_EMACS_INT() to NUMBER_FITS_IN_A_FIXNUM(), XFLOATINT, XCHAR_OR_INT, INT_OR_FLOAT. The EMACS_INT typedef was not changed, it does not describe non-bignum Lisp integers. Script that did the change available in http://mid.gmane.org/20067.17650.181273.12014@parhasard.net . modules/ChangeLog addition: 2011-10-09 Aidan Kehoe <kehoea@parhasard.net> [...] Mechanically change INT to FIXNUM, where the usage describes non-bignum Lisp integers. See the src/ChangeLog entry for more details. man/ChangeLog addition: 2011-10-09 Aidan Kehoe <kehoea@parhasard.net> * internals/internals.texi (How Lisp Objects Are Represented in C): * internals/internals.texi (Integers and Characters): Mechanically change INT to FIXNUM, where the usage describes non-bignum Lisp integers.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 09 Oct 2011 09:51:57 +0100
parents 308d34e9f07d
children
comparison
equal deleted inserted replaced
5580:a0e81357194e 5581:56144c8593a8
394 #ifdef HAVE_SCROLLBARS 394 #ifdef HAVE_SCROLLBARS
395 if (cur->emacs_frame.scrollbar_width != 395 if (cur->emacs_frame.scrollbar_width !=
396 new_->emacs_frame.scrollbar_width) 396 new_->emacs_frame.scrollbar_width)
397 Fadd_spec_to_specifier 397 Fadd_spec_to_specifier
398 (Vscrollbar_width, 398 (Vscrollbar_width,
399 make_int (new_->emacs_frame.scrollbar_width), 399 make_fixnum (new_->emacs_frame.scrollbar_width),
400 wrap_frame (f), Qnil, Qnil); 400 wrap_frame (f), Qnil, Qnil);
401 if (cur->emacs_frame.scrollbar_height != 401 if (cur->emacs_frame.scrollbar_height !=
402 new_->emacs_frame.scrollbar_height) 402 new_->emacs_frame.scrollbar_height)
403 Fadd_spec_to_specifier 403 Fadd_spec_to_specifier
404 (Vscrollbar_height, 404 (Vscrollbar_height,
405 make_int (new_->emacs_frame.scrollbar_height), 405 make_fixnum (new_->emacs_frame.scrollbar_height),
406 wrap_frame (f), Qnil, Qnil); 406 wrap_frame (f), Qnil, Qnil);
407 #endif /* HAVE_SCROLLBARS */ 407 #endif /* HAVE_SCROLLBARS */
408 #ifdef HAVE_TOOLBARS 408 #ifdef HAVE_TOOLBARS
409 if (cur->emacs_frame.top_toolbar_height != 409 if (cur->emacs_frame.top_toolbar_height !=
410 new_->emacs_frame.top_toolbar_height) 410 new_->emacs_frame.top_toolbar_height)
411 Fadd_spec_to_specifier 411 Fadd_spec_to_specifier
412 (Vtoolbar_size[TOP_EDGE], 412 (Vtoolbar_size[TOP_EDGE],
413 make_int (new_->emacs_frame.top_toolbar_height), 413 make_fixnum (new_->emacs_frame.top_toolbar_height),
414 wrap_frame (f), Qnil, Qnil); 414 wrap_frame (f), Qnil, Qnil);
415 if (cur->emacs_frame.bottom_toolbar_height != 415 if (cur->emacs_frame.bottom_toolbar_height !=
416 new_->emacs_frame.bottom_toolbar_height) 416 new_->emacs_frame.bottom_toolbar_height)
417 Fadd_spec_to_specifier 417 Fadd_spec_to_specifier
418 (Vtoolbar_size[BOTTOM_EDGE], 418 (Vtoolbar_size[BOTTOM_EDGE],
419 make_int (new_->emacs_frame.bottom_toolbar_height), 419 make_fixnum (new_->emacs_frame.bottom_toolbar_height),
420 wrap_frame (f), Qnil, Qnil); 420 wrap_frame (f), Qnil, Qnil);
421 if (cur->emacs_frame.left_toolbar_width != 421 if (cur->emacs_frame.left_toolbar_width !=
422 new_->emacs_frame.left_toolbar_width) 422 new_->emacs_frame.left_toolbar_width)
423 Fadd_spec_to_specifier 423 Fadd_spec_to_specifier
424 (Vtoolbar_size[LEFT_EDGE], 424 (Vtoolbar_size[LEFT_EDGE],
425 make_int (new_->emacs_frame.left_toolbar_width), 425 make_fixnum (new_->emacs_frame.left_toolbar_width),
426 wrap_frame (f), Qnil, Qnil); 426 wrap_frame (f), Qnil, Qnil);
427 if (cur->emacs_frame.right_toolbar_width != 427 if (cur->emacs_frame.right_toolbar_width !=
428 new_->emacs_frame.right_toolbar_width) 428 new_->emacs_frame.right_toolbar_width)
429 Fadd_spec_to_specifier 429 Fadd_spec_to_specifier
430 (Vtoolbar_size[RIGHT_EDGE], 430 (Vtoolbar_size[RIGHT_EDGE],
431 make_int (new_->emacs_frame.right_toolbar_width), 431 make_fixnum (new_->emacs_frame.right_toolbar_width),
432 wrap_frame (f), Qnil, Qnil); 432 wrap_frame (f), Qnil, Qnil);
433 if (cur->emacs_frame.top_toolbar_border_width != 433 if (cur->emacs_frame.top_toolbar_border_width !=
434 new_->emacs_frame.top_toolbar_border_width) 434 new_->emacs_frame.top_toolbar_border_width)
435 Fadd_spec_to_specifier 435 Fadd_spec_to_specifier
436 (Vtoolbar_border_width[TOP_EDGE], 436 (Vtoolbar_border_width[TOP_EDGE],
437 make_int (new_->emacs_frame.top_toolbar_border_width), 437 make_fixnum (new_->emacs_frame.top_toolbar_border_width),
438 wrap_frame (f), Qnil, Qnil); 438 wrap_frame (f), Qnil, Qnil);
439 if (cur->emacs_frame.bottom_toolbar_border_width != 439 if (cur->emacs_frame.bottom_toolbar_border_width !=
440 new_->emacs_frame.bottom_toolbar_border_width) 440 new_->emacs_frame.bottom_toolbar_border_width)
441 Fadd_spec_to_specifier 441 Fadd_spec_to_specifier
442 (Vtoolbar_border_width[BOTTOM_EDGE], 442 (Vtoolbar_border_width[BOTTOM_EDGE],
443 make_int (new_->emacs_frame.bottom_toolbar_border_width), 443 make_fixnum (new_->emacs_frame.bottom_toolbar_border_width),
444 wrap_frame (f), Qnil, Qnil); 444 wrap_frame (f), Qnil, Qnil);
445 if (cur->emacs_frame.left_toolbar_border_width != 445 if (cur->emacs_frame.left_toolbar_border_width !=
446 new_->emacs_frame.left_toolbar_border_width) 446 new_->emacs_frame.left_toolbar_border_width)
447 Fadd_spec_to_specifier 447 Fadd_spec_to_specifier
448 (Vtoolbar_border_width[LEFT_EDGE], 448 (Vtoolbar_border_width[LEFT_EDGE],
449 make_int (new_->emacs_frame.left_toolbar_border_width), 449 make_fixnum (new_->emacs_frame.left_toolbar_border_width),
450 wrap_frame (f), Qnil, Qnil); 450 wrap_frame (f), Qnil, Qnil);
451 if (cur->emacs_frame.right_toolbar_border_width != 451 if (cur->emacs_frame.right_toolbar_border_width !=
452 new_->emacs_frame.right_toolbar_border_width) 452 new_->emacs_frame.right_toolbar_border_width)
453 Fadd_spec_to_specifier 453 Fadd_spec_to_specifier
454 (Vtoolbar_border_width[RIGHT_EDGE], 454 (Vtoolbar_border_width[RIGHT_EDGE],
455 make_int (new_->emacs_frame.right_toolbar_border_width), 455 make_fixnum (new_->emacs_frame.right_toolbar_border_width),
456 wrap_frame (f), Qnil, Qnil); 456 wrap_frame (f), Qnil, Qnil);
457 #endif /* HAVE_TOOLBARS */ 457 #endif /* HAVE_TOOLBARS */
458 458
459 in_resource_setting--; 459 in_resource_setting--;
460 460