Mercurial > emacs
changeset 9298:6e3aea54fc01
(Fcall_interactively, Fprefix_numeric_value): Don't use XFASTINT as an lvalue.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 04 Oct 1994 15:40:22 +0000 |
| parents | 5151ce5ab25a |
| children | e8c880f2723e |
| files | src/callint.c |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/callint.c Tue Oct 04 15:38:56 1994 +0000 +++ b/src/callint.c Tue Oct 04 15:40:22 1994 +0000 @@ -435,7 +435,7 @@ break; case 'd': /* Value of point. Does not do I/O. */ - XFASTINT (args[i]) = point; + XSETFASTINT (args[i], point); /* visargs[i] = Qnil; */ varies[i] = 1; break; @@ -481,7 +481,7 @@ case 'm': /* Value of mark. Does not do I/O. */ check_mark (); /* visargs[i] = Qnil; */ - XFASTINT (args[i]) = marker_position (current_buffer->mark); + XSETFASTINT (args[i], marker_position (current_buffer->mark)); varies[i] = 2; break; @@ -513,9 +513,9 @@ /* visargs[i+1] = Qnil; */ foo = marker_position (current_buffer->mark); /* visargs[i] = Qnil; */ - XFASTINT (args[i]) = point < foo ? point : foo; + XSETFASTINT (args[i], point < foo ? point : foo); varies[i] = 3; - XFASTINT (args[++i]) = point > foo ? point : foo; + XSETFASTINT (args[++i], point > foo ? point : foo); varies[i] = 4; break; @@ -600,7 +600,7 @@ Lisp_Object val; if (NILP (raw)) - XFASTINT (val) = 1; + XSETFASTINT (val, 1); else if (EQ (raw, Qminus)) XSETINT (val, -1); else if (CONSP (raw)) @@ -608,7 +608,7 @@ else if (INTEGERP (raw)) val = raw; else - XFASTINT (val) = 1; + XSETFASTINT (val, 1); return val; }