diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-10-04 15:40:22 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-10-04 15:40:22 +0000 |
| commit | acab6442abf91dd888a5c37ef5518507e77df52a (patch) | |
| tree | 9cce09253e3a06422b4b6885b20b4ea7450ebaa7 /src/callint.c | |
| parent | 117360cb36528476f9d9d226d0dc5a8bed1747d2 (diff) | |
| download | emacs-acab6442abf91dd888a5c37ef5518507e77df52a.tar.gz | |
(Fcall_interactively, Fprefix_numeric_value): Don't use XFASTINT as an lvalue.
Diffstat (limited to 'src/callint.c')
| -rw-r--r-- | src/callint.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/callint.c b/src/callint.c index 337ea0e0242..c0ddea88a14 100644 --- a/src/callint.c +++ b/src/callint.c @@ -435,7 +435,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.") 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 @@ Otherwise, this is done only if an arg is read using the minibuffer.") 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 @@ Otherwise, this is done only if an arg is read using the minibuffer.") /* 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 @@ Its numeric meaning is what you would get from `(interactive \"p\")'.") 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 @@ Its numeric meaning is what you would get from `(interactive \"p\")'.") else if (INTEGERP (raw)) val = raw; else - XFASTINT (val) = 1; + XSETFASTINT (val, 1); return val; } |