diff options
| author | Tom Tromey | 2018-08-07 18:08:53 -0600 |
|---|---|---|
| committer | Tom Tromey | 2018-08-07 18:08:53 -0600 |
| commit | d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8 (patch) | |
| tree | 04c920acf142f686d3cac11080b17a2fb0dfc9af /src/casefiddle.c | |
| parent | 68ebff23f7057090da260830500cb278f7b886a5 (diff) | |
| download | emacs-d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8.tar.gz emacs-d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8.zip | |
More macro renamings for bignum
* src/alloc.c, src/bidi.c, src/buffer.c, src/buffer.h, src/bytecode.c,
src/callint.c, src/callproc.c, src/casefiddle.c, src/casetab.c,
src/category.c, src/ccl.c, src/character.c, src/character.h,
src/charset.c, src/charset.h, src/chartab.c, src/cmds.c, src/coding.c,
src/composite.c, src/composite.h, src/data.c, src/dbusbind.c,
src/decompress.c, src/dired.c, src/dispextern.h, src/dispnew.c,
src/disptab.h, src/doc.c, src/dosfns.c, src/editfns.c,
src/emacs-module.c, src/emacs.c, src/eval.c, src/fileio.c,
src/floatfns.c, src/fns.c, src/font.c, src/font.h, src/fontset.c,
src/frame.c, src/frame.h, src/fringe.c, src/ftcrfont.c, src/ftfont.c,
src/gfilenotify.c, src/gnutls.c, src/gtkutil.c, src/image.c,
src/indent.c, src/insdel.c, src/intervals.c, src/json.c,
src/keyboard.c, src/keymap.c, src/kqueue.c, src/lcms.c, src/lisp.h,
src/lread.c, src/macros.c, src/marker.c, src/menu.c, src/minibuf.c,
src/msdos.c, src/print.c, src/process.c, src/profiler.c, src/search.c,
src/sound.c, src/syntax.c, src/syntax.h, src/sysdep.c, src/term.c,
src/termhooks.h, src/textprop.c, src/undo.c, src/w32.c,
src/w32console.c, src/w32fns.c, src/w32font.c, src/w32inevt.c,
src/w32proc.c, src/w32select.c, src/w32term.c, src/w32term.h,
src/w32uniscribe.c, src/window.c, src/xdisp.c, src/xfaces.c,
src/xfns.c, src/xfont.c, src/xftfont.c, src/xmenu.c, src/xml.c,
src/xrdb.c, src/xselect.c, src/xsettings.c, src/xterm.c, src/xwidget.c
Rename XINT->XFIXNUM, XFASTINT->XFIXNAT, XUINT->XUFIXNUM.
Diffstat (limited to 'src/casefiddle.c')
| -rw-r--r-- | src/casefiddle.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/casefiddle.c b/src/casefiddle.c index a6656b1e683..95857d6f361 100644 --- a/src/casefiddle.c +++ b/src/casefiddle.c | |||
| @@ -152,7 +152,7 @@ case_character_impl (struct casing_str_buf *buf, | |||
| 152 | prop = CHAR_TABLE_REF (ctx->titlecase_char_table, ch); | 152 | prop = CHAR_TABLE_REF (ctx->titlecase_char_table, ch); |
| 153 | if (CHARACTERP (prop)) | 153 | if (CHARACTERP (prop)) |
| 154 | { | 154 | { |
| 155 | cased = XFASTINT (prop); | 155 | cased = XFIXNAT (prop); |
| 156 | cased_is_set = true; | 156 | cased_is_set = true; |
| 157 | } | 157 | } |
| 158 | } | 158 | } |
| @@ -225,7 +225,7 @@ do_casify_natnum (struct casing_context *ctx, Lisp_Object obj) | |||
| 225 | { | 225 | { |
| 226 | int flagbits = (CHAR_ALT | CHAR_SUPER | CHAR_HYPER | 226 | int flagbits = (CHAR_ALT | CHAR_SUPER | CHAR_HYPER |
| 227 | | CHAR_SHIFT | CHAR_CTL | CHAR_META); | 227 | | CHAR_SHIFT | CHAR_CTL | CHAR_META); |
| 228 | int ch = XFASTINT (obj); | 228 | int ch = XFIXNAT (obj); |
| 229 | 229 | ||
| 230 | /* If the character has higher bits set above the flags, return it unchanged. | 230 | /* If the character has higher bits set above the flags, return it unchanged. |
| 231 | It is not a real character. */ | 231 | It is not a real character. */ |
| @@ -485,8 +485,8 @@ casify_region (enum case_action flag, Lisp_Object b, Lisp_Object e) | |||
| 485 | struct casing_context ctx; | 485 | struct casing_context ctx; |
| 486 | 486 | ||
| 487 | validate_region (&b, &e); | 487 | validate_region (&b, &e); |
| 488 | ptrdiff_t start = XFASTINT (b); | 488 | ptrdiff_t start = XFIXNAT (b); |
| 489 | ptrdiff_t end = XFASTINT (e); | 489 | ptrdiff_t end = XFIXNAT (e); |
| 490 | if (start == end) | 490 | if (start == end) |
| 491 | /* Not modifying because nothing marked. */ | 491 | /* Not modifying because nothing marked. */ |
| 492 | return end; | 492 | return end; |
| @@ -602,9 +602,9 @@ static Lisp_Object | |||
| 602 | casify_word (enum case_action flag, Lisp_Object arg) | 602 | casify_word (enum case_action flag, Lisp_Object arg) |
| 603 | { | 603 | { |
| 604 | CHECK_FIXNUM (arg); | 604 | CHECK_FIXNUM (arg); |
| 605 | ptrdiff_t farend = scan_words (PT, XINT (arg)); | 605 | ptrdiff_t farend = scan_words (PT, XFIXNUM (arg)); |
| 606 | if (!farend) | 606 | if (!farend) |
| 607 | farend = XINT (arg) <= 0 ? BEGV : ZV; | 607 | farend = XFIXNUM (arg) <= 0 ? BEGV : ZV; |
| 608 | SET_PT (casify_region (flag, make_fixnum (PT), make_fixnum (farend))); | 608 | SET_PT (casify_region (flag, make_fixnum (PT), make_fixnum (farend))); |
| 609 | return Qnil; | 609 | return Qnil; |
| 610 | } | 610 | } |