Mercurial > emacs

changeset 10618:e6c31b26a1b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fml_provide_prefix_argument, Fml_prefix_argument_loop): Use perdisplay.
author Karl Heuer <kwzh@gnu.org>
date Wed, 01 Feb 1995 02:30:43 +0000
parents 733088348c66
children 285e0e1463d6
files src/mocklisp.c
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/mocklisp.c	Wed Feb 01 02:27:46 1995 +0000
+++ b/src/mocklisp.c	Wed Feb 01 02:30:43 1995 +0000
@@ -1,5 +1,5 @@
 /* Mocklisp compatibility functions for GNU Emacs Lisp interpreter.
-   Copyright (C) 1985, 1986 Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1995 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -140,7 +140,9 @@
 {
   struct gcpro gcpro1;
   GCPRO1 (args);
-  Vcurrent_prefix_arg = Feval (Fcar (args));
+  if (!current_perdisplay)
+    abort ();
+  current_perdisplay->Vcurrent_prefix_arg = Feval (Fcar (args));
   UNGCPRO;
   return Feval (Fcar (Fcdr (args)));
 }
@@ -156,11 +158,13 @@
   struct gcpro gcpro1;
 
   /* Set `arg' in case we call a built-in function that looks at it.  Still are a few. */
-  if (NILP (Vcurrent_prefix_arg))
+  if (!current_perdisplay)
+    abort ();
+  tem = current_perdisplay->Vcurrent_prefix_arg;
+  if (NILP (tem))
     i = 1;
   else
     {
-      tem = Vcurrent_prefix_arg;
       if (CONSP (tem))
 	tem = Fcar (tem);
       if (EQ (tem, Qminus))