diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-03-01 03:44:15 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-03-01 03:44:15 +0000 |
| commit | 4a7bcf34e1e2443e7597f520b838145e42a7e6bf (patch) | |
| tree | f9d43039333bff4e6cc219b1b152813ae32fbe01 /src/mocklisp.c | |
| parent | 8c917bf29eda7cebdd442a95071dc30ba03f383e (diff) | |
| download | emacs-4a7bcf34e1e2443e7597f520b838145e42a7e6bf.tar.gz | |
(Fml_provide_prefix_argument, Fml_prefix_argument_loop): Undo Jan 31 change.
Diffstat (limited to 'src/mocklisp.c')
| -rw-r--r-- | src/mocklisp.c | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/mocklisp.c b/src/mocklisp.c index 4359edb0719..f394d9c0840 100644 --- a/src/mocklisp.c +++ b/src/mocklisp.c @@ -140,9 +140,7 @@ DEFUN ("ml-provide-prefix-argument", Fml_provide_prefix_argument, Sml_provide_pr { struct gcpro gcpro1; GCPRO1 (args); - if (!current_perdisplay) - abort (); - current_perdisplay->Vcurrent_prefix_arg = Feval (Fcar (args)); + Vcurrent_prefix_arg = Feval (Fcar (args)); UNGCPRO; return Feval (Fcar (Fcdr (args))); } @@ -158,13 +156,11 @@ DEFUN ("ml-prefix-argument-loop", Fml_prefix_argument_loop, Sml_prefix_argument_ struct gcpro gcpro1; /* Set `arg' in case we call a built-in function that looks at it. Still are a few. */ - if (!current_perdisplay) - abort (); - tem = current_perdisplay->Vcurrent_prefix_arg; - if (NILP (tem)) + if (NILP (Vcurrent_prefix_arg)) i = 1; else { + tem = Vcurrent_prefix_arg; if (CONSP (tem)) tem = Fcar (tem); if (EQ (tem, Qminus)) |