From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 1 Mar 1995 03:44:15 +0000 (+0000)
Subject: (Fml_provide_prefix_argument, Fml_prefix_argument_loop): Undo Jan 31 change.
X-Git-Tag: emacs-19.34~5000
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a7bcf34e1e2443e7597f520b838145e42a7e6bf;p=emacs.git

(Fml_provide_prefix_argument, Fml_prefix_argument_loop): Undo Jan 31 change.
---

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))