diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-10-04 12:05:13 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-10-04 12:05:13 +0000 |
commit | 64b7fc985d42a0dd7a6d7bcd583892c60cb87f02 (patch) | |
tree | e029de4b2b26bb4575edbdc3916526be6682b9e6 /src/fileio.c | |
parent | 5acbb7e064598df47ff8811fe9a47fa18315cbc1 (diff) | |
download | emacs-64b7fc985d42a0dd7a6d7bcd583892c60cb87f02.tar.gz |
(Fdefault_file_modes, Finsert_file_contents, Fdo_auto_save): Use new accessor
macros instead of calling XSET directly.
Diffstat (limited to 'src/fileio.c')
-rw-r--r-- | src/fileio.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/fileio.c b/src/fileio.c index 855e5d41808..c6d4f45ca1a 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -2526,7 +2526,7 @@ The value is an integer.") realmask = umask (0); umask (realmask); - XSET (value, Lisp_Int, (~ realmask) & 0777); + XSETINT (value, (~ realmask) & 0777); return value; } @@ -2817,7 +2817,7 @@ and (2) it puts less data in the undo list.") register Lisp_Object temp; /* Make sure point-max won't overflow after this insertion. */ - XSET (temp, Lisp_Int, total); + XSETINT (temp, total); if (total != XINT (temp)) error ("maximum buffer size exceeded"); } @@ -3699,7 +3699,7 @@ Non-nil second argument means save only current buffer.") XSTRING (b->name)->data); /* Turn off auto-saving until there's a real save, and prevent any more warnings. */ - XSET (b->save_length, Lisp_Int, -1); + XSETINT (b->save_length, -1); Fsleep_for (make_number (1), Qnil); continue; } |