aboutsummaryrefslogtreecommitdiffstats
path: root/src/callint.c
diff options
context:
space:
mode:
authorKarl Heuer1995-03-15 01:49:46 +0000
committerKarl Heuer1995-03-15 01:49:46 +0000
commitcd8b5aa3480af3a66537205762bf0331b2e15615 (patch)
tree69cec2aa35ca36a9d0d163f2c47ea98e1d22ae92 /src/callint.c
parent92b618385eed766d68beb2a6cf579a9977a02b73 (diff)
downloademacs-cd8b5aa3480af3a66537205762bf0331b2e15615.tar.gz
emacs-cd8b5aa3480af3a66537205762bf0331b2e15615.zip
Rename perdisplay to kboard.
Diffstat (limited to 'src/callint.c')
-rw-r--r--src/callint.c70
1 files changed, 35 insertions, 35 deletions
diff --git a/src/callint.c b/src/callint.c
index 84270ff0c29..c0787ce2913 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -55,25 +55,25 @@ clear_prefix_arg ()
55 Vprefix_arg = Qnil; 55 Vprefix_arg = Qnil;
56 if (!current_prefix_partial) 56 if (!current_prefix_partial)
57 { 57 {
58 current_perdisplay->prefix_factor = Qnil; 58 current_kboard->prefix_factor = Qnil;
59 current_perdisplay->prefix_value = Qnil; 59 current_kboard->prefix_value = Qnil;
60 current_perdisplay->prefix_sign = 1; 60 current_kboard->prefix_sign = 1;
61 current_perdisplay->prefix_partial = 0; 61 current_kboard->prefix_partial = 0;
62 } 62 }
63} 63}
64 64
65void 65void
66finalize_prefix_arg () 66finalize_prefix_arg ()
67{ 67{
68 if (!NILP (current_perdisplay->prefix_factor)) 68 if (!NILP (current_kboard->prefix_factor))
69 Vprefix_arg = Fcons (current_perdisplay->prefix_factor, Qnil); 69 Vprefix_arg = Fcons (current_kboard->prefix_factor, Qnil);
70 else if (NILP (current_perdisplay->prefix_value)) 70 else if (NILP (current_kboard->prefix_value))
71 Vprefix_arg = (current_perdisplay->prefix_sign > 0 ? Qnil : Qminus); 71 Vprefix_arg = (current_kboard->prefix_sign > 0 ? Qnil : Qminus);
72 else if (current_perdisplay->prefix_sign > 0) 72 else if (current_kboard->prefix_sign > 0)
73 Vprefix_arg = current_perdisplay->prefix_value; 73 Vprefix_arg = current_kboard->prefix_value;
74 else 74 else
75 XSETINT (Vprefix_arg, -XINT (current_perdisplay->prefix_value)); 75 XSETINT (Vprefix_arg, -XINT (current_kboard->prefix_value));
76 current_perdisplay->prefix_partial = 0; 76 current_kboard->prefix_partial = 0;
77} 77}
78 78
79static void 79static void
@@ -296,8 +296,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
296 } 296 }
297 else if (EQ (funcar, Qmocklisp)) 297 else if (EQ (funcar, Qmocklisp))
298 { 298 {
299#ifdef MULTI_PERDISPLAY 299#ifdef MULTI_KBOARD
300 display_locked = 1; 300 kboard_locked = 1;
301#endif 301#endif
302 return ml_apply (fun, Qinteractive); 302 return ml_apply (fun, Qinteractive);
303 } 303 }
@@ -352,8 +352,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
352 Vcommand_history 352 Vcommand_history
353 = Fcons (Fcons (function, values), Vcommand_history); 353 = Fcons (Fcons (function, values), Vcommand_history);
354 } 354 }
355#ifdef MULTI_PERDISPLAY 355#ifdef MULTI_KBOARD
356 display_locked = 1; 356 kboard_locked = 1;
357#endif 357#endif
358 return apply1 (function, specs); 358 return apply1 (function, specs);
359 } 359 }
@@ -655,8 +655,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
655 if (varies[i] >= 1 && varies[i] <= 4) 655 if (varies[i] >= 1 && varies[i] <= 4)
656 XSETINT (args[i], marker_position (args[i])); 656 XSETINT (args[i], marker_position (args[i]));
657 657
658#ifdef MULTI_PERDISPLAY 658#ifdef MULTI_KBOARD
659 display_locked = 1; 659 kboard_locked = 1;
660#endif 660#endif
661 661
662 { 662 {
@@ -705,17 +705,17 @@ Repeating \\[universal-argument] without digits or minus sign\n\
705 if (!current_prefix_partial) 705 if (!current_prefix_partial)
706 { 706 {
707 /* First C-u */ 707 /* First C-u */
708 XSETFASTINT (current_perdisplay->prefix_factor, 4); 708 XSETFASTINT (current_kboard->prefix_factor, 4);
709 current_perdisplay->prefix_value = Qnil; 709 current_kboard->prefix_value = Qnil;
710 current_perdisplay->prefix_sign = 1; 710 current_kboard->prefix_sign = 1;
711 current_perdisplay->prefix_partial = 1; 711 current_kboard->prefix_partial = 1;
712 } 712 }
713 else if (!NILP (current_perdisplay->prefix_factor)) 713 else if (!NILP (current_kboard->prefix_factor))
714 { 714 {
715 /* Subsequent C-u */ 715 /* Subsequent C-u */
716 XSETINT (current_perdisplay->prefix_factor, 716 XSETINT (current_kboard->prefix_factor,
717 XINT (current_perdisplay->prefix_factor) * 4); 717 XINT (current_kboard->prefix_factor) * 4);
718 current_perdisplay->prefix_partial = 1; 718 current_kboard->prefix_partial = 1;
719 } 719 }
720 else 720 else
721 { 721 {
@@ -730,9 +730,9 @@ DEFUN ("negative-argument", Fnegative_argument, Snegative_argument, 0, 0, "",
730\\[universal-argument] following digits or minus sign ends the argument.") 730\\[universal-argument] following digits or minus sign ends the argument.")
731 () 731 ()
732{ 732{
733 current_perdisplay->prefix_factor = Qnil; 733 current_kboard->prefix_factor = Qnil;
734 current_perdisplay->prefix_sign *= -1; 734 current_kboard->prefix_sign *= -1;
735 current_perdisplay->prefix_partial = 1; 735 current_kboard->prefix_partial = 1;
736} 736}
737 737
738DEFUN ("digit-argument", Fdigit_argument, Sdigit_argument, 0, 0, "", 738DEFUN ("digit-argument", Fdigit_argument, Sdigit_argument, 0, 0, "",
@@ -744,12 +744,12 @@ DEFUN ("digit-argument", Fdigit_argument, Sdigit_argument, 0, 0, "",
744 if (!(INTEGERP (last_command_char) 744 if (!(INTEGERP (last_command_char)
745 && (c = (XINT (last_command_char) & 0177)) >= '0' && c <= '9')) 745 && (c = (XINT (last_command_char) & 0177)) >= '0' && c <= '9'))
746 error("digit-argument must be bound to a digit key"); 746 error("digit-argument must be bound to a digit key");
747 current_perdisplay->prefix_factor = Qnil; 747 current_kboard->prefix_factor = Qnil;
748 if (NILP (current_perdisplay->prefix_value)) 748 if (NILP (current_kboard->prefix_value))
749 XSETFASTINT (current_perdisplay->prefix_value, 0); 749 XSETFASTINT (current_kboard->prefix_value, 0);
750 XSETINT (current_perdisplay->prefix_value, 750 XSETINT (current_kboard->prefix_value,
751 XINT (current_perdisplay->prefix_value) * 10 + (c - '0')); 751 XINT (current_kboard->prefix_value) * 10 + (c - '0'));
752 current_perdisplay->prefix_partial = 1; 752 current_kboard->prefix_partial = 1;
753} 753}
754 754
755syms_of_callint () 755syms_of_callint ()