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, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
30 extern char *index ();
32 extern Lisp_Object Qcursor_in_echo_area
;
34 Lisp_Object Vcurrent_prefix_arg
, Qminus
, Qplus
;
35 Lisp_Object Qcall_interactively
;
36 Lisp_Object Vcommand_history
;
38 Lisp_Object Vcommand_debug_status
, Qcommand_debug_status
;
39 Lisp_Object Qenable_recursive_minibuffers
;
41 /* Non-nil means treat the mark as active
42 even if mark_active is 0. */
43 Lisp_Object Vmark_even_if_inactive
;
45 Lisp_Object Vmouse_leave_buffer_hook
, Qmouse_leave_buffer_hook
;
47 Lisp_Object Qlist
, Qlet
, Qletx
, Qsave_excursion
;
48 static Lisp_Object preserved_fns
;
50 /* Marker used within call-interactively to refer to point. */
51 static Lisp_Object point_marker
;
53 /* Buffer for the prompt text used in Fcall_interactively. */
54 static char *callint_message
;
56 /* Allocated length of that buffer. */
57 static int callint_message_size
;
59 /* This comment supplies the doc string for interactive,
60 for make-docfile to see. We cannot put this in the real DEFUN
61 due to limits in the Unix cpp.
63 DEFUN ("interactive", Ffoo, Sfoo, 0, 0, 0,
64 "Specify a way of parsing arguments for interactive use of a function.\n\
66 (defun foo (arg) \"Doc string\" (interactive \"p\") ...use arg...)\n\
67 to make ARG be the prefix argument when `foo' is called as a command.\n\
68 The \"call\" to `interactive' is actually a declaration rather than a function;\n\
69 it tells `call-interactively' how to read arguments\n\
70 to pass to the function.\n\
71 When actually called, `interactive' just returns nil.\n\
73 The argument of `interactive' is usually a string containing a code letter\n\
74 followed by a prompt. (Some code letters do not use I/O to get\n\
75 the argument and do not need prompts.) To prompt for multiple arguments,\n\
76 give a code letter, its prompt, a newline, and another code letter, etc.\n\
77 Prompts are passed to format, and may use % escapes to print the\n\
78 arguments that have already been read.\n\
79 If the argument is not a string, it is evaluated to get a list of\n\
80 arguments to pass to the function.\n\
81 Just `(interactive)' means pass no args when calling interactively.\n\
82 \nCode letters available are:\n\
83 a -- Function name: symbol with a function definition.\n\
84 b -- Name of existing buffer.\n\
85 B -- Name of buffer, possibly nonexistent.\n\
87 C -- Command name: symbol with interactive function definition.\n\
88 d -- Value of point as number. Does not do I/O.\n\
89 D -- Directory name.\n\
90 e -- Parametrized event (i.e., one that's a list) that invoked this command.\n\
91 If used more than once, the Nth `e' returns the Nth parameterized event.\n\
92 This skips events that are integers or symbols.\n\
93 f -- Existing file name.\n\
94 F -- Possibly nonexistent file name.\n\
95 i -- Ignored, i.e. always nil. Does not do I/O.\n\
96 k -- Key sequence (downcase the last event if needed to get a definition).\n\
97 K -- Key sequence to be redefined (do not downcase the last event).\n\
98 m -- Value of mark as number. Does not do I/O.\n\
99 n -- Number read using minibuffer.\n\
100 N -- Raw prefix arg, or if none, do like code `n'.\n\
101 p -- Prefix arg converted to number. Does not do I/O.\n\
102 P -- Prefix arg in raw form. Does not do I/O.\n\
103 r -- Region: point and mark as 2 numeric args, smallest first. Does no I/O.\n\
106 v -- Variable name: symbol that is user-variable-p.\n\
107 x -- Lisp expression read but not evaluated.\n\
108 X -- Lisp expression read and evaluated.\n\
109 z -- Coding system.\n\
110 Z -- Coding system, nil if no prefix arg.\n\
111 In addition, if the string begins with `*'\n\
112 then an error is signaled if the buffer is read-only.\n\
113 This happens before reading any arguments.\n\
114 If the string begins with `@', then Emacs searches the key sequence\n\
115 which invoked the command for its first mouse click (or any other\n\
116 event which specifies a window), and selects that window before\n\
117 reading any arguments. You may use both `@' and `*'; they are\n\
118 processed in the order that they appear." */
121 DEFUN ("interactive", Finteractive
, Sinteractive
, 0, UNEVALLED
, 0,
122 0 /* See immediately above */)
129 /* Quotify EXP: if EXP is constant, return it.
130 If EXP is not constant, return (quote EXP). */
133 register Lisp_Object exp
;
135 if (!INTEGERP (exp
) && !STRINGP (exp
)
136 && !NILP (exp
) && !EQ (exp
, Qt
))
137 return Fcons (Qquote
, Fcons (exp
, Qnil
));
142 /* Modify EXP by quotifying each element (except the first). */
147 register Lisp_Object tail
;
148 register struct Lisp_Cons
*ptr
;
149 for (tail
= exp
; CONSP (tail
); tail
= ptr
->cdr
)
152 ptr
->car
= quotify_arg (ptr
->car
);
157 char *callint_argfuns
[]
158 = {"", "point", "mark", "region-beginning", "region-end"};
164 tem
= Fmarker_buffer (current_buffer
->mark
);
165 if (NILP (tem
) || (XBUFFER (tem
) != current_buffer
))
166 error ("The mark is not set now");
167 if (!NILP (Vtransient_mark_mode
) && NILP (Vmark_even_if_inactive
)
168 && NILP (current_buffer
->mark_active
))
169 Fsignal (Qmark_inactive
, Qnil
);
173 DEFUN ("call-interactively", Fcall_interactively
, Scall_interactively
, 1, 3, 0,
174 "Call FUNCTION, reading args according to its interactive calling specs.\n\
175 Return the value FUNCTION returns.\n\
176 The function contains a specification of how to do the argument reading.\n\
177 In the case of user-defined functions, this is specified by placing a call\n\
178 to the function `interactive' at the top level of the function body.\n\
179 See `interactive'.\n\
181 Optional second arg RECORD-FLAG non-nil\n\
182 means unconditionally put this command in the command-history.\n\
183 Otherwise, this is done only if an arg is read using the minibuffer.")
184 (function
, record_flag
, keys
)
185 Lisp_Object function
, record_flag
, keys
;
187 Lisp_Object
*args
, *visargs
;
188 unsigned char **argstrings
;
194 int speccount
= specpdl_ptr
- specpdl
;
196 /* The index of the next element of this_command_keys to examine for
197 the 'e' interactive code. */
200 Lisp_Object prefix_arg
;
201 unsigned char *string
;
204 /* If varies[i] > 0, the i'th argument shouldn't just have its value
205 in this call quoted in the command history. It should be
206 recorded as a call to the function named callint_argfuns[varies[i]]. */
213 int arg_from_tty
= 0;
214 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
218 keys
= this_command_keys
, key_count
= this_command_key_count
;
221 CHECK_VECTOR (keys
, 3);
222 key_count
= XVECTOR (keys
)->size
;
225 /* Save this now, since use of minibuffer will clobber it. */
226 prefix_arg
= Vcurrent_prefix_arg
;
230 if (SYMBOLP (function
))
231 enable
= Fget (function
, Qenable_recursive_minibuffers
);
233 fun
= indirect_function (function
);
238 /* Decode the kind of function. Either handle it and return,
239 or go to `lose' if not interactive, or go to `retry'
240 to specify a different function, or set either STRING or SPECS. */
244 string
= (unsigned char *) XSUBR (fun
)->prompt
;
248 function
= wrong_type_argument (Qcommandp
, function
);
251 if ((EMACS_INT
) string
== 1)
252 /* Let SPECS (which is nil) be used as the args. */
255 else if (COMPILEDP (fun
))
257 if ((XVECTOR (fun
)->size
& PSEUDOVECTOR_SIZE_MASK
) <= COMPILED_INTERACTIVE
)
259 specs
= XVECTOR (fun
)->contents
[COMPILED_INTERACTIVE
];
261 else if (!CONSP (fun
))
263 else if (funcar
= Fcar (fun
), EQ (funcar
, Qautoload
))
265 GCPRO2 (function
, prefix_arg
);
266 do_autoload (fun
, function
);
270 else if (EQ (funcar
, Qlambda
))
272 specs
= Fassq (Qinteractive
, Fcdr (Fcdr (fun
)));
275 specs
= Fcar (Fcdr (specs
));
277 else if (EQ (funcar
, Qmocklisp
))
279 single_kboard_state ();
280 return ml_apply (fun
, Qinteractive
);
285 /* If either specs or string is set to a string, use it. */
288 /* Make a copy of string so that if a GC relocates specs,
289 `string' will still be valid. */
290 string
= (unsigned char *) alloca (XSTRING (specs
)->size
+ 1);
291 bcopy (XSTRING (specs
)->data
, string
, XSTRING (specs
)->size
+ 1);
293 else if (string
== 0)
298 /* Compute the arg values using the user's expression. */
299 specs
= Feval (specs
);
300 if (i
!= num_input_chars
|| !NILP (record_flag
))
302 /* We should record this command on the command history. */
303 Lisp_Object values
, car
;
304 /* Make a copy of the list of values, for the command history,
305 and turn them into things we can eval. */
306 values
= quotify_args (Fcopy_sequence (specs
));
307 /* If the list of args was produced with an explicit call to `list',
308 look for elements that were computed with (region-beginning)
309 or (region-end), and put those expressions into VALUES
310 instead of the present values. */
313 car
= XCONS (input
)->car
;
314 /* Skip through certain special forms. */
315 while (EQ (car
, Qlet
) || EQ (car
, Qletx
)
316 || EQ (car
, Qsave_excursion
))
318 while (CONSP (XCONS (input
)->cdr
))
319 input
= XCONS (input
)->cdr
;
320 input
= XCONS (input
)->car
;
323 car
= XCONS (input
)->car
;
327 Lisp_Object intail
, valtail
;
328 for (intail
= Fcdr (input
), valtail
= values
;
330 intail
= Fcdr (intail
), valtail
= Fcdr (valtail
))
336 Lisp_Object presflag
;
337 presflag
= Fmemq (Fcar (elt
), preserved_fns
);
338 if (!NILP (presflag
))
339 Fsetcar (valtail
, Fcar (intail
));
345 = Fcons (Fcons (function
, values
), Vcommand_history
);
347 single_kboard_state ();
348 return apply1 (function
, specs
);
351 /* Here if function specifies a string to control parsing the defaults */
353 /* Set next_event to point to the first event with parameters. */
354 for (next_event
= 0; next_event
< key_count
; next_event
++)
355 if (EVENT_HAS_PARAMETERS (XVECTOR (keys
)->contents
[next_event
]))
358 /* Handle special starting chars `*' and `@'. Also `-'. */
359 /* Note that `+' is reserved for user extensions. */
363 error ("`+' is not used in `interactive' for ordinary commands");
364 else if (*string
== '*')
367 if (!NILP (current_buffer
->read_only
))
368 Fbarf_if_buffer_read_only ();
370 /* Ignore this for semi-compatibility with Lucid. */
371 else if (*string
== '-')
373 else if (*string
== '@')
377 event
= XVECTOR (keys
)->contents
[next_event
];
378 if (EVENT_HAS_PARAMETERS (event
)
379 && (event
= XCONS (event
)->cdr
, CONSP (event
))
380 && (event
= XCONS (event
)->car
, CONSP (event
))
381 && (event
= XCONS (event
)->car
, WINDOWP (event
)))
383 if (MINI_WINDOW_P (XWINDOW (event
))
384 && ! (minibuf_level
> 0 && EQ (event
, minibuf_window
)))
385 error ("Attempt to select inactive minibuffer window");
387 /* If the current buffer wants to clean up, let it. */
388 if (!NILP (Vmouse_leave_buffer_hook
))
389 call1 (Vrun_hooks
, Qmouse_leave_buffer_hook
);
391 Fselect_window (event
);
398 /* Count the number of arguments the interactive spec would have
399 us give to the function. */
401 for (j
= 0; *tem
; j
++)
403 /* 'r' specifications ("point and mark as 2 numeric args")
404 produce *two* arguments. */
405 if (*tem
== 'r') j
++;
406 tem
= (unsigned char *) index (tem
, '\n');
410 tem
= (unsigned char *) "";
414 args
= (Lisp_Object
*) alloca ((count
+ 1) * sizeof (Lisp_Object
));
415 visargs
= (Lisp_Object
*) alloca ((count
+ 1) * sizeof (Lisp_Object
));
416 argstrings
= (unsigned char **) alloca ((count
+ 1) * sizeof (char *));
417 varies
= (int *) alloca ((count
+ 1) * sizeof (int));
419 for (i
= 0; i
< (count
+ 1); i
++)
426 GCPRO4 (prefix_arg
, function
, *args
, *visargs
);
427 gcpro3
.nvars
= (count
+ 1);
428 gcpro4
.nvars
= (count
+ 1);
431 specbind (Qenable_recursive_minibuffers
, Qt
);
434 for (i
= 1; *tem
; i
++)
436 strncpy (prompt1
, tem
+ 1, sizeof prompt1
- 1);
437 prompt1
[sizeof prompt1
- 1] = 0;
438 tem1
= index (prompt1
, '\n');
440 /* Fill argstrings with a vector of C strings
441 corresponding to the Lisp strings in visargs. */
442 for (j
= 1; j
< i
; j
++)
444 = EQ (visargs
[j
], Qnil
)
445 ? (unsigned char *) ""
446 : XSTRING (visargs
[j
])->data
;
448 /* Process the format-string in prompt1, putting the output
449 into callint_message. Make callint_message bigger if necessary.
450 We don't use a buffer on the stack, because the contents
451 need to stay stable for a while. */
454 int nchars
= doprnt (callint_message
, callint_message_size
,
456 j
- 1, argstrings
+ 1);
457 if (nchars
< callint_message_size
)
459 callint_message_size
*= 2;
461 = (char *) xrealloc (callint_message
, callint_message_size
);
466 case 'a': /* Symbol defined as a function */
467 visargs
[i
] = Fcompleting_read (build_string (callint_message
),
468 Vobarray
, Qfboundp
, Qt
, Qnil
, Qnil
);
469 /* Passing args[i] directly stimulates compiler bug */
471 args
[i
] = Fintern (teml
, Qnil
);
474 case 'b': /* Name of existing buffer */
475 args
[i
] = Fcurrent_buffer ();
476 if (EQ (selected_window
, minibuf_window
))
477 args
[i
] = Fother_buffer (args
[i
], Qnil
);
478 args
[i
] = Fread_buffer (build_string (callint_message
), args
[i
], Qt
);
481 case 'B': /* Name of buffer, possibly nonexistent */
482 args
[i
] = Fread_buffer (build_string (callint_message
),
483 Fother_buffer (Fcurrent_buffer (), Qnil
),
487 case 'c': /* Character */
488 /* Use message_nolog rather than message1_nolog here,
489 so that nothing bad happens if callint_message is changed
490 within Fread_char (by a timer, for example). */
491 message_nolog ("%s", callint_message
);
492 args
[i
] = Fread_char ();
493 message1_nolog ((char *) 0);
494 /* Passing args[i] directly stimulates compiler bug */
496 visargs
[i
] = Fchar_to_string (teml
);
499 case 'C': /* Command: symbol with interactive function */
500 visargs
[i
] = Fcompleting_read (build_string (callint_message
),
501 Vobarray
, Qcommandp
, Qt
, Qnil
, Qnil
);
502 /* Passing args[i] directly stimulates compiler bug */
504 args
[i
] = Fintern (teml
, Qnil
);
507 case 'd': /* Value of point. Does not do I/O. */
508 Fset_marker (point_marker
, make_number (PT
), Qnil
);
509 args
[i
] = point_marker
;
510 /* visargs[i] = Qnil; */
514 case 'D': /* Directory name. */
515 args
[i
] = Fread_file_name (build_string (callint_message
), Qnil
,
516 current_buffer
->directory
, Qlambda
, Qnil
);
519 case 'f': /* Existing file name. */
520 args
[i
] = Fread_file_name (build_string (callint_message
),
521 Qnil
, Qnil
, Qlambda
, Qnil
);
524 case 'F': /* Possibly nonexistent file name. */
525 args
[i
] = Fread_file_name (build_string (callint_message
),
526 Qnil
, Qnil
, Qnil
, Qnil
);
529 case 'i': /* Ignore an argument -- Does not do I/O */
533 case 'k': /* Key sequence. */
535 int speccount1
= specpdl_ptr
- specpdl
;
536 specbind (Qcursor_in_echo_area
, Qt
);
537 args
[i
] = Fread_key_sequence (build_string (callint_message
),
539 unbind_to (speccount1
, Qnil
);
541 visargs
[i
] = Fkey_description (teml
);
545 case 'K': /* Key sequence to be defined. */
547 int speccount1
= specpdl_ptr
- specpdl
;
548 specbind (Qcursor_in_echo_area
, Qt
);
549 args
[i
] = Fread_key_sequence (build_string (callint_message
),
552 visargs
[i
] = Fkey_description (teml
);
553 unbind_to (speccount1
, Qnil
);
557 case 'e': /* The invoking event. */
558 if (next_event
>= key_count
)
559 error ("%s must be bound to an event with parameters",
561 ? (char *) XSYMBOL (function
)->name
->data
563 args
[i
] = XVECTOR (keys
)->contents
[next_event
++];
566 /* Find the next parameterized event. */
567 while (next_event
< key_count
568 && ! (EVENT_HAS_PARAMETERS
569 (XVECTOR (keys
)->contents
[next_event
])))
574 case 'm': /* Value of mark. Does not do I/O. */
576 /* visargs[i] = Qnil; */
577 args
[i
] = current_buffer
->mark
;
581 case 'N': /* Prefix arg, else number from minibuffer */
582 if (!NILP (prefix_arg
))
583 goto have_prefix_arg
;
584 case 'n': /* Read number from minibuffer. */
592 message ("Please enter a number.");
593 sit_for (1, 0, 0, 0);
597 tem
= Fread_from_minibuffer (build_string (callint_message
),
598 Qnil
, Qnil
, Qnil
, Qnil
);
599 if (! STRINGP (tem
) || XSTRING (tem
)->size
== 0)
602 args
[i
] = Fread (tem
);
604 while (! NUMBERP (args
[i
]));
606 visargs
[i
] = last_minibuf_string
;
609 case 'P': /* Prefix arg in raw form. Does no I/O. */
610 args
[i
] = prefix_arg
;
611 /* visargs[i] = Qnil; */
615 case 'p': /* Prefix arg converted to number. No I/O. */
617 args
[i
] = Fprefix_numeric_value (prefix_arg
);
618 /* visargs[i] = Qnil; */
622 case 'r': /* Region, point and mark as 2 args. */
624 Fset_marker (point_marker
, make_number (PT
), Qnil
);
625 /* visargs[i+1] = Qnil; */
626 foo
= marker_position (current_buffer
->mark
);
627 /* visargs[i] = Qnil; */
628 args
[i
] = PT
< foo
? point_marker
: current_buffer
->mark
;
630 args
[++i
] = PT
> foo
? point_marker
: current_buffer
->mark
;
634 case 's': /* String read via minibuffer. */
635 args
[i
] = Fread_string (build_string (callint_message
), Qnil
, Qnil
);
638 case 'S': /* Any symbol. */
639 visargs
[i
] = Fread_string (build_string (callint_message
),
641 /* Passing args[i] directly stimulates compiler bug */
643 args
[i
] = Fintern (teml
, Qnil
);
646 case 'v': /* Variable name: symbol that is
648 args
[i
] = Fread_variable (build_string (callint_message
));
649 visargs
[i
] = last_minibuf_string
;
652 case 'x': /* Lisp expression read but not evaluated */
653 args
[i
] = Fread_minibuffer (build_string (callint_message
), Qnil
);
654 visargs
[i
] = last_minibuf_string
;
657 case 'X': /* Lisp expression read and evaluated */
658 args
[i
] = Feval_minibuffer (build_string (callint_message
), Qnil
);
659 visargs
[i
] = last_minibuf_string
;
662 case 'Z': /* Coding-system symbol, or ignore the
663 argument if no prefix */
664 if (NILP (prefix_arg
))
672 = Fread_non_nil_coding_system (build_string (callint_message
));
673 visargs
[i
] = last_minibuf_string
;
677 case 'z': /* Coding-system symbol or nil */
678 args
[i
] = Fread_coding_system (build_string (callint_message
));
679 visargs
[i
] = last_minibuf_string
;
682 /* We have a case for `+' so we get an error
683 if anyone tries to define one here. */
686 error ("Invalid control letter `%c' (%03o) in interactive calling string",
693 if (NILP (visargs
[i
]) && STRINGP (args
[i
]))
694 visargs
[i
] = args
[i
];
696 tem
= (unsigned char *) index (tem
, '\n');
698 else tem
= (unsigned char *) "";
700 unbind_to (speccount
, Qnil
);
706 if (arg_from_tty
|| !NILP (record_flag
))
708 visargs
[0] = function
;
709 for (i
= 1; i
< count
+ 1; i
++)
712 visargs
[i
] = Fcons (intern (callint_argfuns
[varies
[i
]]), Qnil
);
714 visargs
[i
] = quotify_arg (args
[i
]);
716 Vcommand_history
= Fcons (Flist (count
+ 1, visargs
),
720 /* If we used a marker to hold point, mark, or an end of the region,
721 temporarily, convert it to an integer now. */
722 for (i
= 1; i
<= count
; i
++)
723 if (varies
[i
] >= 1 && varies
[i
] <= 4)
724 XSETINT (args
[i
], marker_position (args
[i
]));
726 single_kboard_state ();
730 specbind (Qcommand_debug_status
, Qnil
);
732 val
= Ffuncall (count
+ 1, args
);
734 return unbind_to (speccount
, val
);
738 DEFUN ("prefix-numeric-value", Fprefix_numeric_value
, Sprefix_numeric_value
,
740 "Return numeric meaning of raw prefix argument RAW.\n\
741 A raw prefix argument is what you get from `(interactive \"P\")'.\n\
742 Its numeric meaning is what you would get from `(interactive \"p\")'.")
749 XSETFASTINT (val
, 1);
750 else if (EQ (raw
, Qminus
))
752 else if (CONSP (raw
) && INTEGERP (XCONS (raw
)->car
))
753 XSETINT (val
, XINT (XCONS (raw
)->car
));
754 else if (INTEGERP (raw
))
757 XSETFASTINT (val
, 1);
764 point_marker
= Fmake_marker ();
765 staticpro (&point_marker
);
767 preserved_fns
= Fcons (intern ("region-beginning"),
768 Fcons (intern ("region-end"),
769 Fcons (intern ("point"),
770 Fcons (intern ("mark"), Qnil
))));
771 staticpro (&preserved_fns
);
773 Qlist
= intern ("list");
775 Qlet
= intern ("let");
777 Qletx
= intern ("let*");
779 Qsave_excursion
= intern ("save-excursion");
780 staticpro (&Qsave_excursion
);
782 Qminus
= intern ("-");
785 Qplus
= intern ("+");
788 Qcall_interactively
= intern ("call-interactively");
789 staticpro (&Qcall_interactively
);
791 Qcommand_debug_status
= intern ("command-debug-status");
792 staticpro (&Qcommand_debug_status
);
794 Qenable_recursive_minibuffers
= intern ("enable-recursive-minibuffers");
795 staticpro (&Qenable_recursive_minibuffers
);
797 Qmouse_leave_buffer_hook
= intern ("mouse-leave-buffer-hook");
798 staticpro (&Qmouse_leave_buffer_hook
);
800 callint_message_size
= 100;
801 callint_message
= (char *) xmalloc (callint_message_size
);
804 DEFVAR_KBOARD ("prefix-arg", Vprefix_arg
,
805 "The value of the prefix argument for the next editing command.\n\
806 It may be a number, or the symbol `-' for just a minus sign as arg,\n\
807 or a list whose car is a number for just one or more C-U's\n\
808 or nil if no argument has been specified.\n\
810 You cannot examine this variable to find the argument for this command\n\
811 since it has been set to nil by the time you can look.\n\
812 Instead, you should use the variable `current-prefix-arg', although\n\
813 normally commands can get this prefix argument with (interactive \"P\").");
815 DEFVAR_LISP ("current-prefix-arg", &Vcurrent_prefix_arg
,
816 "The value of the prefix argument for this editing command.\n\
817 It may be a number, or the symbol `-' for just a minus sign as arg,\n\
818 or a list whose car is a number for just one or more C-U's\n\
819 or nil if no argument has been specified.\n\
820 This is what `(interactive \"P\")' returns.");
821 Vcurrent_prefix_arg
= Qnil
;
823 DEFVAR_LISP ("command-history", &Vcommand_history
,
824 "List of recent commands that read arguments from terminal.\n\
825 Each command is represented as a form to evaluate.");
826 Vcommand_history
= Qnil
;
828 DEFVAR_LISP ("command-debug-status", &Vcommand_debug_status
,
829 "Debugging status of current interactive command.\n\
830 Bound each time `call-interactively' is called;\n\
831 may be set by the debugger as a reminder for itself.");
832 Vcommand_debug_status
= Qnil
;
834 DEFVAR_LISP ("mark-even-if-inactive", &Vmark_even_if_inactive
,
835 "*Non-nil means you can use the mark even when inactive.\n\
836 This option makes a difference in Transient Mark mode.\n\
837 When the option is non-nil, deactivation of the mark\n\
838 turns off region highlighting, but commands that use the mark\n\
839 behave as if the mark were still active.");
840 Vmark_even_if_inactive
= Qnil
;
842 DEFVAR_LISP ("mouse-leave-buffer-hook", &Vmouse_leave_buffer_hook
,
843 "Hook to run when about to switch windows with a mouse command.\n\
844 Its purpose is to give temporary modes such as Isearch mode\n\
845 a way to turn themselves off when a mouse command switches windows.");
846 Vmouse_leave_buffer_hook
= Qnil
;
848 defsubr (&Sinteractive
);
849 defsubr (&Scall_interactively
);
850 defsubr (&Sprefix_numeric_value
);