diff options
| author | Karl Heuer | 1994-10-04 12:05:13 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-10-04 12:05:13 +0000 |
| commit | 46283abed575444204ef9a41bda991034f48aaa6 (patch) | |
| tree | 4445e0ee68b6e122c13498a65981aff3965e8273 /src | |
| parent | d2fd0445cb8a179295daa6d1b7d5dcbedd33eb9a (diff) | |
| download | emacs-46283abed575444204ef9a41bda991034f48aaa6.tar.gz emacs-46283abed575444204ef9a41bda991034f48aaa6.zip | |
(Fdefault_file_modes, Finsert_file_contents, Fdo_auto_save): Use new accessor
macros instead of calling XSET directly.
Diffstat (limited to 'src')
| -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.") | |||
| 2526 | realmask = umask (0); | 2526 | realmask = umask (0); |
| 2527 | umask (realmask); | 2527 | umask (realmask); |
| 2528 | 2528 | ||
| 2529 | XSET (value, Lisp_Int, (~ realmask) & 0777); | 2529 | XSETINT (value, (~ realmask) & 0777); |
| 2530 | return value; | 2530 | return value; |
| 2531 | } | 2531 | } |
| 2532 | 2532 | ||
| @@ -2817,7 +2817,7 @@ and (2) it puts less data in the undo list.") | |||
| 2817 | register Lisp_Object temp; | 2817 | register Lisp_Object temp; |
| 2818 | 2818 | ||
| 2819 | /* Make sure point-max won't overflow after this insertion. */ | 2819 | /* Make sure point-max won't overflow after this insertion. */ |
| 2820 | XSET (temp, Lisp_Int, total); | 2820 | XSETINT (temp, total); |
| 2821 | if (total != XINT (temp)) | 2821 | if (total != XINT (temp)) |
| 2822 | error ("maximum buffer size exceeded"); | 2822 | error ("maximum buffer size exceeded"); |
| 2823 | } | 2823 | } |
| @@ -3699,7 +3699,7 @@ Non-nil second argument means save only current buffer.") | |||
| 3699 | XSTRING (b->name)->data); | 3699 | XSTRING (b->name)->data); |
| 3700 | /* Turn off auto-saving until there's a real save, | 3700 | /* Turn off auto-saving until there's a real save, |
| 3701 | and prevent any more warnings. */ | 3701 | and prevent any more warnings. */ |
| 3702 | XSET (b->save_length, Lisp_Int, -1); | 3702 | XSETINT (b->save_length, -1); |
| 3703 | Fsleep_for (make_number (1), Qnil); | 3703 | Fsleep_for (make_number (1), Qnil); |
| 3704 | continue; | 3704 | continue; |
| 3705 | } | 3705 | } |