1 /* Call a Lisp function interactively.
2 Copyright (C) 1985, 1986, 1993, 1994, 1995 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
29 extern char *index ();
31 int current_prefix_partial
;
32 Lisp_Object Vprefix_arg
, Vcurrent_prefix_arg
, Qminus
, Qplus
;
33 Lisp_Object Qcall_interactively
;
34 Lisp_Object Vcommand_history
;
36 Lisp_Object Vcommand_debug_status
, Qcommand_debug_status
;
37 Lisp_Object Qenable_recursive_minibuffers
;
39 /* Non-nil means treat the mark as active
40 even if mark_active is 0. */
41 Lisp_Object Vmark_even_if_inactive
;
43 Lisp_Object Vmouse_leave_buffer_hook
, Qmouse_leave_buffer_hook
;
46 static Lisp_Object preserved_fns
;
48 /* Marker used within call-interactively to refer to point. */
49 static Lisp_Object point_marker
;
56 if (!current_prefix_partial
)
58 current_perdisplay
->prefix_factor
= Qnil
;
59 current_perdisplay
->prefix_value
= Qnil
;
60 current_perdisplay
->prefix_sign
= 1;
61 current_perdisplay
->prefix_partial
= 0;
66 finalize_prefix_arg ()
68 if (!NILP (current_perdisplay
->prefix_factor
))
69 Vprefix_arg
= Fcons (current_perdisplay
->prefix_factor
, Qnil
);
70 else if (NILP (current_perdisplay
->prefix_value
))
71 Vprefix_arg
= (current_perdisplay
->prefix_sign
> 0 ? Qnil
: Qminus
);
72 else if (current_perdisplay
->prefix_sign
> 0)
73 Vprefix_arg
= current_perdisplay
->prefix_value
;
75 XSETINT (Vprefix_arg
, -XINT (current_perdisplay
->prefix_value
));
76 current_perdisplay
->prefix_partial
= 0;
80 describe_prefix_arg ()
82 if (INTEGERP (Vprefix_arg
))
83 message ("Arg: %d", Vprefix_arg
);
84 else if (CONSP (Vprefix_arg
))
85 message ("Arg: [%d]", XCONS (Vprefix_arg
)->car
);
86 else if (EQ (Vprefix_arg
, Qminus
))
91 /* This comment supplies the doc string for interactive,
92 for make-docfile to see. We cannot put this in the real DEFUN
93 due to limits in the Unix cpp.
95 DEFUN ("interactive", Ffoo, Sfoo, 0, 0, 0,
96 "Specify a way of parsing arguments for interactive use of a function.\n\
98 (defun foo (arg) \"Doc string\" (interactive \"p\") ...use arg...)\n\
99 to make ARG be the prefix argument when `foo' is called as a command.\n\
100 The \"call\" to `interactive' is actually a declaration rather than a function;\n\
101 it tells `call-interactively' how to read arguments\n\
102 to pass to the function.\n\
103 When actually called, `interactive' just returns nil.\n\
105 The argument of `interactive' is usually a string containing a code letter\n\
106 followed by a prompt. (Some code letters do not use I/O to get\n\
107 the argument and do not need prompts.) To prompt for multiple arguments,\n\
108 give a code letter, its prompt, a newline, and another code letter, etc.\n\
109 Prompts are passed to format, and may use % escapes to print the\n\
110 arguments that have already been read.\n\
111 If the argument is not a string, it is evaluated to get a list of\n\
112 arguments to pass to the function.\n\
113 Just `(interactive)' means pass no args when calling interactively.\n\
114 \nCode letters available are:\n\
115 a -- Function name: symbol with a function definition.\n\
116 b -- Name of existing buffer.\n\
117 B -- Name of buffer, possibly nonexistent.\n\
119 C -- Command name: symbol with interactive function definition.\n\
120 d -- Value of point as number. Does not do I/O.\n\
121 D -- Directory name.\n\
122 e -- Parametrized event (i.e., one that's a list) that invoked this command.\n\
123 If used more than once, the Nth `e' returns the Nth parameterized event.\n\
124 This skips events that are integers or symbols.\n\
125 f -- Existing file name.\n\
126 F -- Possibly nonexistent file name.\n\
127 k -- Key sequence (downcase the last event if needed to get a definition).\n\
128 K -- Key sequence to be redefined (do not downcase the last event).\n\
129 m -- Value of mark as number. Does not do I/O.\n\
130 n -- Number read using minibuffer.\n\
131 N -- Raw prefix arg, or if none, do like code `n'.\n\
132 p -- Prefix arg converted to number. Does not do I/O.\n\
133 P -- Prefix arg in raw form. Does not do I/O.\n\
134 r -- Region: point and mark as 2 numeric args, smallest first. Does no I/O.\n\
137 v -- Variable name: symbol that is user-variable-p.\n\
138 x -- Lisp expression read but not evaluated.\n\
139 X -- Lisp expression read and evaluated.\n\
140 In addition, if the string begins with `*'\n\
141 then an error is signaled if the buffer is read-only.\n\
142 This happens before reading any arguments.\n\
143 If the string begins with `@', then Emacs searches the key sequence\n\
144 which invoked the command for its first mouse click (or any other\n\
145 event which specifies a window), and selects that window before\n\
146 reading any arguments. You may use both `@' and `*'; they are\n\
147 processed in the order that they appear." */
150 DEFUN ("interactive", Finteractive
, Sinteractive
, 0, UNEVALLED
, 0,
151 0 /* See immediately above */)
158 /* Quotify EXP: if EXP is constant, return it.
159 If EXP is not constant, return (quote EXP). */
162 register Lisp_Object exp
;
164 if (!INTEGERP (exp
) && !STRINGP (exp
)
165 && !NILP (exp
) && !EQ (exp
, Qt
))
166 return Fcons (Qquote
, Fcons (exp
, Qnil
));
171 /* Modify EXP by quotifying each element (except the first). */
176 register Lisp_Object tail
;
177 register struct Lisp_Cons
*ptr
;
178 for (tail
= exp
; CONSP (tail
); tail
= ptr
->cdr
)
181 ptr
->car
= quotify_arg (ptr
->car
);
186 char *callint_argfuns
[]
187 = {"", "point", "mark", "region-beginning", "region-end"};
193 tem
= Fmarker_buffer (current_buffer
->mark
);
194 if (NILP (tem
) || (XBUFFER (tem
) != current_buffer
))
195 error ("The mark is not set now");
196 if (!NILP (Vtransient_mark_mode
) && NILP (Vmark_even_if_inactive
)
197 && NILP (current_buffer
->mark_active
))
198 Fsignal (Qmark_inactive
, Qnil
);
202 DEFUN ("call-interactively", Fcall_interactively
, Scall_interactively
, 1, 2, 0,
203 "Call FUNCTION, reading args according to its interactive calling specs.\n\
204 The function contains a specification of how to do the argument reading.\n\
205 In the case of user-defined functions, this is specified by placing a call\n\
206 to the function `interactive' at the top level of the function body.\n\
207 See `interactive'.\n\
209 Optional second arg RECORD-FLAG non-nil\n\
210 means unconditionally put this command in the command-history.\n\
211 Otherwise, this is done only if an arg is read using the minibuffer.")
213 Lisp_Object function
, record
;
215 Lisp_Object
*args
, *visargs
;
216 unsigned char **argstrings
;
222 int speccount
= specpdl_ptr
- specpdl
;
224 /* The index of the next element of this_command_keys to examine for
225 the 'e' interactive code. */
228 Lisp_Object prefix_arg
;
229 unsigned char *string
;
232 /* If varies[i] > 0, the i'th argument shouldn't just have its value
233 in this call quoted in the command history. It should be
234 recorded as a call to the function named callint_argfuns[varies[i]]. */
242 int arg_from_tty
= 0;
243 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
245 /* Save this now, since use of minibuffer will clobber it. */
246 prefix_arg
= Vcurrent_prefix_arg
;
250 if (SYMBOLP (function
))
251 enable
= Fget (function
, Qenable_recursive_minibuffers
);
253 fun
= indirect_function (function
);
258 /* Decode the kind of function. Either handle it and return,
259 or go to `lose' if not interactive, or go to `retry'
260 to specify a different function, or set either STRING or SPECS. */
264 string
= (unsigned char *) XSUBR (fun
)->prompt
;
268 function
= wrong_type_argument (Qcommandp
, function
);
271 if ((EMACS_INT
) string
== 1)
272 /* Let SPECS (which is nil) be used as the args. */
275 else if (COMPILEDP (fun
))
277 if ((XVECTOR (fun
)->size
& PSEUDOVECTOR_SIZE_MASK
) <= COMPILED_INTERACTIVE
)
279 specs
= XVECTOR (fun
)->contents
[COMPILED_INTERACTIVE
];
281 else if (!CONSP (fun
))
283 else if (funcar
= Fcar (fun
), EQ (funcar
, Qautoload
))
285 GCPRO2 (function
, prefix_arg
);
286 do_autoload (fun
, function
);
290 else if (EQ (funcar
, Qlambda
))
292 specs
= Fassq (Qinteractive
, Fcdr (Fcdr (fun
)));
295 specs
= Fcar (Fcdr (specs
));
297 else if (EQ (funcar
, Qmocklisp
))
299 #ifdef MULTI_PERDISPLAY
302 return ml_apply (fun
, Qinteractive
);
307 /* If either specs or string is set to a string, use it. */
310 /* Make a copy of string so that if a GC relocates specs,
311 `string' will still be valid. */
312 string
= (unsigned char *) alloca (XSTRING (specs
)->size
+ 1);
313 bcopy (XSTRING (specs
)->data
, string
, XSTRING (specs
)->size
+ 1);
315 else if (string
== 0)
320 /* Compute the arg values using the user's expression. */
321 specs
= Feval (specs
);
322 if (i
!= num_input_chars
|| !NILP (record
))
324 /* We should record this command on the command history. */
325 Lisp_Object values
, car
;
326 /* Make a copy of the list of values, for the command history,
327 and turn them into things we can eval. */
328 values
= quotify_args (Fcopy_sequence (specs
));
329 /* If the list of args was produced with an explicit call to `list',
330 look for elements that were computed with (region-beginning)
331 or (region-end), and put those expressions into VALUES
332 instead of the present values. */
336 Lisp_Object intail
, valtail
;
337 for (intail
= Fcdr (input
), valtail
= values
;
339 intail
= Fcdr (intail
), valtail
= Fcdr (valtail
))
345 Lisp_Object presflag
;
346 presflag
= Fmemq (Fcar (elt
), preserved_fns
);
347 if (!NILP (presflag
))
348 Fsetcar (valtail
, Fcar (intail
));
353 = Fcons (Fcons (function
, values
), Vcommand_history
);
355 #ifdef MULTI_PERDISPLAY
358 return apply1 (function
, specs
);
361 /* Here if function specifies a string to control parsing the defaults */
363 /* Set next_event to point to the first event with parameters. */
364 for (next_event
= 0; next_event
< this_command_key_count
; next_event
++)
365 if (EVENT_HAS_PARAMETERS
366 (XVECTOR (this_command_keys
)->contents
[next_event
]))
369 /* Handle special starting chars `*' and `@'. Also `-'. */
375 if (!NILP (current_buffer
->read_only
))
376 Fbarf_if_buffer_read_only ();
378 /* Ignore this for semi-compatibility with Lucid. */
379 else if (*string
== '-')
381 else if (*string
== '@')
385 event
= XVECTOR (this_command_keys
)->contents
[next_event
];
386 if (EVENT_HAS_PARAMETERS (event
)
387 && (event
= XCONS (event
)->car
, CONSP (event
))
388 && (event
= XCONS (event
)->car
, CONSP (event
))
389 && (event
= XCONS (event
)->car
), WINDOWP (event
))
391 if (MINI_WINDOW_P (XWINDOW (event
))
392 && ! (minibuf_level
> 0 && EQ (event
, minibuf_window
)))
393 error ("Attempt to select inactive minibuffer window");
395 /* If the current buffer wants to clean up, let it. */
396 if (!NILP (Vmouse_leave_buffer_hook
))
397 call1 (Vrun_hooks
, Qmouse_leave_buffer_hook
);
399 Fselect_window (event
);
406 /* Count the number of arguments the interactive spec would have
407 us give to the function. */
409 for (j
= 0; *tem
; j
++)
411 /* 'r' specifications ("point and mark as 2 numeric args")
412 produce *two* arguments. */
413 if (*tem
== 'r') j
++;
414 tem
= (unsigned char *) index (tem
, '\n');
418 tem
= (unsigned char *) "";
422 args
= (Lisp_Object
*) alloca ((count
+ 1) * sizeof (Lisp_Object
));
423 visargs
= (Lisp_Object
*) alloca ((count
+ 1) * sizeof (Lisp_Object
));
424 argstrings
= (unsigned char **) alloca ((count
+ 1) * sizeof (char *));
425 varies
= (int *) alloca ((count
+ 1) * sizeof (int));
427 for (i
= 0; i
< (count
+ 1); i
++)
434 GCPRO4 (prefix_arg
, function
, *args
, *visargs
);
435 gcpro3
.nvars
= (count
+ 1);
436 gcpro4
.nvars
= (count
+ 1);
439 specbind (Qenable_recursive_minibuffers
, Qt
);
442 for (i
= 1; *tem
; i
++)
444 strncpy (prompt1
, tem
+ 1, sizeof prompt1
- 1);
445 prompt1
[sizeof prompt1
- 1] = 0;
446 tem1
= index (prompt1
, '\n');
448 /* Fill argstrings with a vector of C strings
449 corresponding to the Lisp strings in visargs. */
450 for (j
= 1; j
< i
; j
++)
452 = EQ (visargs
[j
], Qnil
)
453 ? (unsigned char *) ""
454 : XSTRING (visargs
[j
])->data
;
456 doprnt (prompt
, sizeof prompt
, prompt1
, 0, j
- 1, argstrings
+ 1);
460 case 'a': /* Symbol defined as a function */
461 visargs
[i
] = Fcompleting_read (build_string (prompt
),
462 Vobarray
, Qfboundp
, Qt
, Qnil
, Qnil
);
463 /* Passing args[i] directly stimulates compiler bug */
465 args
[i
] = Fintern (teml
, Qnil
);
468 case 'b': /* Name of existing buffer */
469 args
[i
] = Fcurrent_buffer ();
470 if (EQ (selected_window
, minibuf_window
))
471 args
[i
] = Fother_buffer (args
[i
], Qnil
);
472 args
[i
] = Fread_buffer (build_string (prompt
), args
[i
], Qt
);
475 case 'B': /* Name of buffer, possibly nonexistent */
476 args
[i
] = Fread_buffer (build_string (prompt
),
477 Fother_buffer (Fcurrent_buffer (), Qnil
),
481 case 'c': /* Character */
483 args
[i
] = Fread_char ();
484 /* Passing args[i] directly stimulates compiler bug */
486 visargs
[i
] = Fchar_to_string (teml
);
489 case 'C': /* Command: symbol with interactive function */
490 visargs
[i
] = Fcompleting_read (build_string (prompt
),
491 Vobarray
, Qcommandp
, Qt
, Qnil
, Qnil
);
492 /* Passing args[i] directly stimulates compiler bug */
494 args
[i
] = Fintern (teml
, Qnil
);
497 case 'd': /* Value of point. Does not do I/O. */
498 Fset_marker (point_marker
, make_number (PT
), Qnil
);
499 args
[i
] = point_marker
;
500 /* visargs[i] = Qnil; */
504 case 'D': /* Directory name. */
505 args
[i
] = Fread_file_name (build_string (prompt
), Qnil
,
506 current_buffer
->directory
, Qlambda
, Qnil
);
509 case 'f': /* Existing file name. */
510 args
[i
] = Fread_file_name (build_string (prompt
),
511 Qnil
, Qnil
, Qlambda
, Qnil
);
514 case 'F': /* Possibly nonexistent file name. */
515 args
[i
] = Fread_file_name (build_string (prompt
),
516 Qnil
, Qnil
, Qnil
, Qnil
);
519 case 'k': /* Key sequence. */
520 args
[i
] = Fread_key_sequence (build_string (prompt
), Qnil
, Qnil
, Qnil
);
522 visargs
[i
] = Fkey_description (teml
);
525 case 'K': /* Key sequence to be defined. */
526 args
[i
] = Fread_key_sequence (build_string (prompt
), Qnil
, Qt
, Qnil
);
528 visargs
[i
] = Fkey_description (teml
);
531 case 'e': /* The invoking event. */
532 if (next_event
>= this_command_key_count
)
533 error ("%s must be bound to an event with parameters",
535 ? (char *) XSYMBOL (function
)->name
->data
537 args
[i
] = XVECTOR (this_command_keys
)->contents
[next_event
++];
540 /* Find the next parameterized event. */
541 while (next_event
< this_command_key_count
542 && ! (EVENT_HAS_PARAMETERS
543 (XVECTOR (this_command_keys
)->contents
[next_event
])))
548 case 'm': /* Value of mark. Does not do I/O. */
550 /* visargs[i] = Qnil; */
551 args
[i
] = current_buffer
->mark
;
555 case 'N': /* Prefix arg, else number from minibuffer */
556 if (!NILP (prefix_arg
))
557 goto have_prefix_arg
;
558 case 'n': /* Read number from minibuffer. */
560 args
[i
] = Fread_minibuffer (build_string (prompt
), Qnil
);
561 while (! NUMBERP (args
[i
]));
562 visargs
[i
] = last_minibuf_string
;
565 case 'P': /* Prefix arg in raw form. Does no I/O. */
567 args
[i
] = prefix_arg
;
568 /* visargs[i] = Qnil; */
572 case 'p': /* Prefix arg converted to number. No I/O. */
573 args
[i
] = Fprefix_numeric_value (prefix_arg
);
574 /* visargs[i] = Qnil; */
578 case 'r': /* Region, point and mark as 2 args. */
580 Fset_marker (point_marker
, make_number (PT
), Qnil
);
581 /* visargs[i+1] = Qnil; */
582 foo
= marker_position (current_buffer
->mark
);
583 /* visargs[i] = Qnil; */
584 args
[i
] = point
< foo
? point_marker
: current_buffer
->mark
;
586 args
[++i
] = point
> foo
? point_marker
: current_buffer
->mark
;
590 case 's': /* String read via minibuffer. */
591 args
[i
] = Fread_string (build_string (prompt
), Qnil
, Qnil
);
594 case 'S': /* Any symbol. */
595 visargs
[i
] = Fread_string (build_string (prompt
), Qnil
, Qnil
);
596 /* Passing args[i] directly stimulates compiler bug */
598 args
[i
] = Fintern (teml
, Qnil
);
601 case 'v': /* Variable name: symbol that is
603 args
[i
] = Fread_variable (build_string (prompt
));
604 visargs
[i
] = last_minibuf_string
;
607 case 'x': /* Lisp expression read but not evaluated */
608 args
[i
] = Fread_minibuffer (build_string (prompt
), Qnil
);
609 visargs
[i
] = last_minibuf_string
;
612 case 'X': /* Lisp expression read and evaluated */
613 args
[i
] = Feval_minibuffer (build_string (prompt
), Qnil
);
614 visargs
[i
] = last_minibuf_string
;
618 error ("Invalid control letter \"%c\" (%03o) in interactive calling string",
625 if (NILP (visargs
[i
]) && STRINGP (args
[i
]))
626 visargs
[i
] = args
[i
];
628 tem
= (unsigned char *) index (tem
, '\n');
630 else tem
= (unsigned char *) "";
632 unbind_to (speccount
, Qnil
);
638 if (arg_from_tty
|| !NILP (record
))
640 visargs
[0] = function
;
641 for (i
= 1; i
< count
+ 1; i
++)
644 visargs
[i
] = Fcons (intern (callint_argfuns
[varies
[i
]]), Qnil
);
646 visargs
[i
] = quotify_arg (args
[i
]);
648 Vcommand_history
= Fcons (Flist (count
+ 1, visargs
),
652 /* If we used a marker to hold point, mark, or an end of the region,
653 temporarily, convert it to an integer now. */
654 for (i
= 1; i
<= count
; i
++)
655 if (varies
[i
] >= 1 && varies
[i
] <= 4)
656 XSETINT (args
[i
], marker_position (args
[i
]));
658 #ifdef MULTI_PERDISPLAY
664 specbind (Qcommand_debug_status
, Qnil
);
666 val
= Ffuncall (count
+ 1, args
);
668 return unbind_to (speccount
, val
);
672 DEFUN ("prefix-numeric-value", Fprefix_numeric_value
, Sprefix_numeric_value
,
674 "Return numeric meaning of raw prefix argument ARG.\n\
675 A raw prefix argument is what you get from `(interactive \"P\")'.\n\
676 Its numeric meaning is what you would get from `(interactive \"p\")'.")
683 XSETFASTINT (val
, 1);
684 else if (EQ (raw
, Qminus
))
686 else if (CONSP (raw
))
687 XSETINT (val
, XINT (XCONS (raw
)->car
));
688 else if (INTEGERP (raw
))
691 XSETFASTINT (val
, 1);
696 DEFUN ("universal-argument", Funiversal_argument
, Suniversal_argument
, 0, 0, "",
697 "Begin a numeric argument for the following command.\n\
698 Digits or minus sign following \\[universal-argument] make up the numeric argument.\n\
699 \\[universal-argument] following the digits or minus sign ends the argument.\n\
700 \\[universal-argument] without digits or minus sign provides 4 as argument.\n\
701 Repeating \\[universal-argument] without digits or minus sign\n\
702 multiplies the argument by 4 each time.")
705 if (!current_prefix_partial
)
708 XSETFASTINT (current_perdisplay
->prefix_factor
, 4);
709 current_perdisplay
->prefix_value
= Qnil
;
710 current_perdisplay
->prefix_sign
= 1;
711 current_perdisplay
->prefix_partial
= 1;
713 else if (!NILP (current_perdisplay
->prefix_factor
))
716 XSETINT (current_perdisplay
->prefix_factor
,
717 XINT (current_perdisplay
->prefix_factor
) * 4);
718 current_perdisplay
->prefix_partial
= 1;
722 /* Terminating C-u */
723 finalize_prefix_arg ();
724 describe_prefix_arg ();
728 DEFUN ("negative-argument", Fnegative_argument
, Snegative_argument
, 0, 0, "",
729 "Begin a negative numeric argument for the next command.\n\
730 \\[universal-argument] following digits or minus sign ends the argument.")
733 current_perdisplay
->prefix_factor
= Qnil
;
734 current_perdisplay
->prefix_sign
*= -1;
735 current_perdisplay
->prefix_partial
= 1;
738 DEFUN ("digit-argument", Fdigit_argument
, Sdigit_argument
, 0, 0, "",
739 "Part of the numeric argument for the next command.\n\
740 \\[universal-argument] following digits or minus sign ends the argument.")
744 if (!(INTEGERP (last_command_char
)
745 && (c
= (XINT (last_command_char
) & 0177)) >= '0' && c
<= '9'))
746 error("digit-argument must be bound to a digit key");
747 current_perdisplay
->prefix_factor
= Qnil
;
748 if (NILP (current_perdisplay
->prefix_value
))
749 XSETFASTINT (current_perdisplay
->prefix_value
, 0);
750 XSETINT (current_perdisplay
->prefix_value
,
751 XINT (current_perdisplay
->prefix_value
) * 10 + (c
- '0'));
752 current_perdisplay
->prefix_partial
= 1;
757 point_marker
= Fmake_marker ();
758 staticpro (&point_marker
);
760 preserved_fns
= Fcons (intern ("region-beginning"),
761 Fcons (intern ("region-end"),
762 Fcons (intern ("point"),
763 Fcons (intern ("mark"), Qnil
))));
764 staticpro (&preserved_fns
);
766 Qlist
= intern ("list");
769 Qminus
= intern ("-");
772 Qplus
= intern ("+");
775 Qcall_interactively
= intern ("call-interactively");
776 staticpro (&Qcall_interactively
);
778 Qcommand_debug_status
= intern ("command-debug-status");
779 staticpro (&Qcommand_debug_status
);
781 Qenable_recursive_minibuffers
= intern ("enable-recursive-minibuffers");
782 staticpro (&Qenable_recursive_minibuffers
);
784 Qmouse_leave_buffer_hook
= intern ("mouse-leave-buffer-hook");
785 staticpro (&Qmouse_leave_buffer_hook
);
787 DEFVAR_LISP ("prefix-arg", &Vprefix_arg
,
788 "The value of the prefix argument for the next editing command.\n\
789 It may be a number, or the symbol `-' for just a minus sign as arg,\n\
790 or a list whose car is a number for just one or more C-U's\n\
791 or nil if no argument has been specified.\n\
793 You cannot examine this variable to find the argument for this command\n\
794 since it has been set to nil by the time you can look.\n\
795 Instead, you should use the variable `current-prefix-arg', although\n\
796 normally commands can get this prefix argument with (interactive \"P\").");
799 DEFVAR_LISP ("current-prefix-arg", &Vcurrent_prefix_arg
,
800 "The value of the prefix argument for this editing command.\n\
801 It may be a number, or the symbol `-' for just a minus sign as arg,\n\
802 or a list whose car is a number for just one or more C-U's\n\
803 or nil if no argument has been specified.\n\
804 This is what `(interactive \"P\")' returns.");
805 Vcurrent_prefix_arg
= Qnil
;
807 DEFVAR_LISP ("command-history", &Vcommand_history
,
808 "List of recent commands that read arguments from terminal.\n\
809 Each command is represented as a form to evaluate.");
810 Vcommand_history
= Qnil
;
812 DEFVAR_LISP ("command-debug-status", &Vcommand_debug_status
,
813 "Debugging status of current interactive command.\n\
814 Bound each time `call-interactively' is called;\n\
815 may be set by the debugger as a reminder for itself.");
816 Vcommand_debug_status
= Qnil
;
818 DEFVAR_LISP ("mark-even-if-inactive", &Vmark_even_if_inactive
,
819 "*Non-nil means you can use the mark even when inactive.\n\
820 This option makes a difference in Transient Mark mode.\n\
821 When the option is non-nil, deactivation of the mark\n\
822 turns off region highlighting, but commands that use the mark\n\
823 behave as if the mark were still active.");
824 Vmark_even_if_inactive
= Qnil
;
826 DEFVAR_LISP ("mouse-leave-buffer-hook", &Vmouse_leave_buffer_hook
,
827 "Hook to run when about to switch windows with a mouse command.\n\
828 Its purpose is to give temporary modes such as Isearch mode\n\
829 a way to turn themselves off when a mouse command switches windows.");
830 Vmouse_leave_buffer_hook
= Qnil
;
832 defsubr (&Sinteractive
);
833 defsubr (&Scall_interactively
);
834 defsubr (&Sprefix_numeric_value
);
835 defsubr (&Suniversal_argument
);
836 defsubr (&Snegative_argument
);
837 defsubr (&Sdigit_argument
);