(iso-transl-dead-key-alist): Fix syntax for ?^.
[emacs.git] / src / callint.c
bloba874053d2299e9fd6f01c9254723074f32ca9c4b
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)
9 any later version.
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. */
22 #include <config.h>
23 #include "lisp.h"
24 #include "buffer.h"
25 #include "commands.h"
26 #include "keyboard.h"
27 #include "window.h"
28 #include "mocklisp.h"
30 extern char *index ();
32 Lisp_Object 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;
45 Lisp_Object Qlist, Qlet, Qletx, Qsave_excursion;
46 static Lisp_Object preserved_fns;
48 /* Marker used within call-interactively to refer to point. */
49 static Lisp_Object point_marker;
51 /* Buffer for the prompt text used in Fcall_interactively. */
52 static char *callint_message;
54 /* Allocated length of that buffer. */
55 static int callint_message_size;
57 /* This comment supplies the doc string for interactive,
58 for make-docfile to see. We cannot put this in the real DEFUN
59 due to limits in the Unix cpp.
61 DEFUN ("interactive", Ffoo, Sfoo, 0, 0, 0,
62 "Specify a way of parsing arguments for interactive use of a function.\n\
63 For example, write\n\
64 (defun foo (arg) \"Doc string\" (interactive \"p\") ...use arg...)\n\
65 to make ARG be the prefix argument when `foo' is called as a command.\n\
66 The \"call\" to `interactive' is actually a declaration rather than a function;\n\
67 it tells `call-interactively' how to read arguments\n\
68 to pass to the function.\n\
69 When actually called, `interactive' just returns nil.\n\
70 \n\
71 The argument of `interactive' is usually a string containing a code letter\n\
72 followed by a prompt. (Some code letters do not use I/O to get\n\
73 the argument and do not need prompts.) To prompt for multiple arguments,\n\
74 give a code letter, its prompt, a newline, and another code letter, etc.\n\
75 Prompts are passed to format, and may use % escapes to print the\n\
76 arguments that have already been read.\n\
77 If the argument is not a string, it is evaluated to get a list of\n\
78 arguments to pass to the function.\n\
79 Just `(interactive)' means pass no args when calling interactively.\n\
80 \nCode letters available are:\n\
81 a -- Function name: symbol with a function definition.\n\
82 b -- Name of existing buffer.\n\
83 B -- Name of buffer, possibly nonexistent.\n\
84 c -- Character.\n\
85 C -- Command name: symbol with interactive function definition.\n\
86 d -- Value of point as number. Does not do I/O.\n\
87 D -- Directory name.\n\
88 e -- Parametrized event (i.e., one that's a list) that invoked this command.\n\
89 If used more than once, the Nth `e' returns the Nth parameterized event.\n\
90 This skips events that are integers or symbols.\n\
91 f -- Existing file name.\n\
92 F -- Possibly nonexistent file name.\n\
93 k -- Key sequence (downcase the last event if needed to get a definition).\n\
94 K -- Key sequence to be redefined (do not downcase the last event).\n\
95 m -- Value of mark as number. Does not do I/O.\n\
96 n -- Number read using minibuffer.\n\
97 N -- Raw prefix arg, or if none, do like code `n'.\n\
98 p -- Prefix arg converted to number. Does not do I/O.\n\
99 P -- Prefix arg in raw form. Does not do I/O.\n\
100 r -- Region: point and mark as 2 numeric args, smallest first. Does no I/O.\n\
101 s -- Any string.\n\
102 S -- Any symbol.\n\
103 v -- Variable name: symbol that is user-variable-p.\n\
104 x -- Lisp expression read but not evaluated.\n\
105 X -- Lisp expression read and evaluated.\n\
106 In addition, if the string begins with `*'\n\
107 then an error is signaled if the buffer is read-only.\n\
108 This happens before reading any arguments.\n\
109 If the string begins with `@', then Emacs searches the key sequence\n\
110 which invoked the command for its first mouse click (or any other\n\
111 event which specifies a window), and selects that window before\n\
112 reading any arguments. You may use both `@' and `*'; they are\n\
113 processed in the order that they appear." */
115 /* ARGSUSED */
116 DEFUN ("interactive", Finteractive, Sinteractive, 0, UNEVALLED, 0,
117 0 /* See immediately above */)
118 (args)
119 Lisp_Object args;
121 return Qnil;
124 /* Quotify EXP: if EXP is constant, return it.
125 If EXP is not constant, return (quote EXP). */
126 Lisp_Object
127 quotify_arg (exp)
128 register Lisp_Object exp;
130 if (!INTEGERP (exp) && !STRINGP (exp)
131 && !NILP (exp) && !EQ (exp, Qt))
132 return Fcons (Qquote, Fcons (exp, Qnil));
134 return exp;
137 /* Modify EXP by quotifying each element (except the first). */
138 Lisp_Object
139 quotify_args (exp)
140 Lisp_Object exp;
142 register Lisp_Object tail;
143 register struct Lisp_Cons *ptr;
144 for (tail = exp; CONSP (tail); tail = ptr->cdr)
146 ptr = XCONS (tail);
147 ptr->car = quotify_arg (ptr->car);
149 return exp;
152 char *callint_argfuns[]
153 = {"", "point", "mark", "region-beginning", "region-end"};
155 static void
156 check_mark ()
158 Lisp_Object tem;
159 tem = Fmarker_buffer (current_buffer->mark);
160 if (NILP (tem) || (XBUFFER (tem) != current_buffer))
161 error ("The mark is not set now");
162 if (!NILP (Vtransient_mark_mode) && NILP (Vmark_even_if_inactive)
163 && NILP (current_buffer->mark_active))
164 Fsignal (Qmark_inactive, Qnil);
168 DEFUN ("call-interactively", Fcall_interactively, Scall_interactively, 1, 3, 0,
169 "Call FUNCTION, reading args according to its interactive calling specs.\n\
170 Return the value FUNCTION returns.\n\
171 The function contains a specification of how to do the argument reading.\n\
172 In the case of user-defined functions, this is specified by placing a call\n\
173 to the function `interactive' at the top level of the function body.\n\
174 See `interactive'.\n\
176 Optional second arg RECORD-FLAG non-nil\n\
177 means unconditionally put this command in the command-history.\n\
178 Otherwise, this is done only if an arg is read using the minibuffer.")
179 (function, record_flag, keys)
180 Lisp_Object function, record_flag, keys;
182 Lisp_Object *args, *visargs;
183 unsigned char **argstrings;
184 Lisp_Object fun;
185 Lisp_Object funcar;
186 Lisp_Object specs;
187 Lisp_Object teml;
188 Lisp_Object enable;
189 int speccount = specpdl_ptr - specpdl;
191 /* The index of the next element of this_command_keys to examine for
192 the 'e' interactive code. */
193 int next_event;
195 Lisp_Object prefix_arg;
196 unsigned char *string;
197 unsigned char *tem;
199 /* If varies[i] > 0, the i'th argument shouldn't just have its value
200 in this call quoted in the command history. It should be
201 recorded as a call to the function named callint_argfuns[varies[i]]. */
202 int *varies;
204 register int i, j;
205 int count, foo;
206 char prompt1[100];
207 char *tem1;
208 int arg_from_tty = 0;
209 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
210 int key_count;
212 if (NILP (keys))
213 keys = this_command_keys, key_count = this_command_key_count;
214 else
216 CHECK_VECTOR (keys, 3);
217 key_count = XVECTOR (keys)->size;
220 /* Save this now, since use of minibuffer will clobber it. */
221 prefix_arg = Vcurrent_prefix_arg;
223 retry:
225 if (SYMBOLP (function))
226 enable = Fget (function, Qenable_recursive_minibuffers);
228 fun = indirect_function (function);
230 specs = Qnil;
231 string = 0;
233 /* Decode the kind of function. Either handle it and return,
234 or go to `lose' if not interactive, or go to `retry'
235 to specify a different function, or set either STRING or SPECS. */
237 if (SUBRP (fun))
239 string = (unsigned char *) XSUBR (fun)->prompt;
240 if (!string)
242 lose:
243 function = wrong_type_argument (Qcommandp, function);
244 goto retry;
246 if ((EMACS_INT) string == 1)
247 /* Let SPECS (which is nil) be used as the args. */
248 string = 0;
250 else if (COMPILEDP (fun))
252 if ((XVECTOR (fun)->size & PSEUDOVECTOR_SIZE_MASK) <= COMPILED_INTERACTIVE)
253 goto lose;
254 specs = XVECTOR (fun)->contents[COMPILED_INTERACTIVE];
256 else if (!CONSP (fun))
257 goto lose;
258 else if (funcar = Fcar (fun), EQ (funcar, Qautoload))
260 GCPRO2 (function, prefix_arg);
261 do_autoload (fun, function);
262 UNGCPRO;
263 goto retry;
265 else if (EQ (funcar, Qlambda))
267 specs = Fassq (Qinteractive, Fcdr (Fcdr (fun)));
268 if (NILP (specs))
269 goto lose;
270 specs = Fcar (Fcdr (specs));
272 else if (EQ (funcar, Qmocklisp))
274 single_kboard_state ();
275 return ml_apply (fun, Qinteractive);
277 else
278 goto lose;
280 /* If either specs or string is set to a string, use it. */
281 if (STRINGP (specs))
283 /* Make a copy of string so that if a GC relocates specs,
284 `string' will still be valid. */
285 string = (unsigned char *) alloca (XSTRING (specs)->size + 1);
286 bcopy (XSTRING (specs)->data, string, XSTRING (specs)->size + 1);
288 else if (string == 0)
290 Lisp_Object input;
291 i = num_input_chars;
292 input = specs;
293 /* Compute the arg values using the user's expression. */
294 specs = Feval (specs);
295 if (i != num_input_chars || !NILP (record_flag))
297 /* We should record this command on the command history. */
298 Lisp_Object values, car;
299 /* Make a copy of the list of values, for the command history,
300 and turn them into things we can eval. */
301 values = quotify_args (Fcopy_sequence (specs));
302 /* If the list of args was produced with an explicit call to `list',
303 look for elements that were computed with (region-beginning)
304 or (region-end), and put those expressions into VALUES
305 instead of the present values. */
306 if (CONSP (input))
308 car = XCONS (input)->car;
309 /* Skip through certain special forms. */
310 while (EQ (car, Qlet) || EQ (car, Qletx)
311 || EQ (car, Qsave_excursion))
313 while (CONSP (XCONS (input)->cdr))
314 input = XCONS (input)->cdr;
315 input = XCONS (input)->car;
316 if (!CONSP (input))
317 break;
318 car = XCONS (input)->car;
320 if (EQ (car, Qlist))
322 Lisp_Object intail, valtail;
323 for (intail = Fcdr (input), valtail = values;
324 CONSP (valtail);
325 intail = Fcdr (intail), valtail = Fcdr (valtail))
327 Lisp_Object elt;
328 elt = Fcar (intail);
329 if (CONSP (elt))
331 Lisp_Object presflag;
332 presflag = Fmemq (Fcar (elt), preserved_fns);
333 if (!NILP (presflag))
334 Fsetcar (valtail, Fcar (intail));
339 Vcommand_history
340 = Fcons (Fcons (function, values), Vcommand_history);
342 single_kboard_state ();
343 return apply1 (function, specs);
346 /* Here if function specifies a string to control parsing the defaults */
348 /* Set next_event to point to the first event with parameters. */
349 for (next_event = 0; next_event < key_count; next_event++)
350 if (EVENT_HAS_PARAMETERS (XVECTOR (keys)->contents[next_event]))
351 break;
353 /* Handle special starting chars `*' and `@'. Also `-'. */
354 /* Note that `+' is reserved for user extensions. */
355 while (1)
357 if (*string == '+')
358 error ("`+' is not used in `interactive' for ordinary commands");
359 else if (*string == '*')
361 string++;
362 if (!NILP (current_buffer->read_only))
363 Fbarf_if_buffer_read_only ();
365 /* Ignore this for semi-compatibility with Lucid. */
366 else if (*string == '-')
367 string++;
368 else if (*string == '@')
370 Lisp_Object event;
372 event = XVECTOR (keys)->contents[next_event];
373 if (EVENT_HAS_PARAMETERS (event)
374 && (event = XCONS (event)->cdr, CONSP (event))
375 && (event = XCONS (event)->car, CONSP (event))
376 && (event = XCONS (event)->car, WINDOWP (event)))
378 if (MINI_WINDOW_P (XWINDOW (event))
379 && ! (minibuf_level > 0 && EQ (event, minibuf_window)))
380 error ("Attempt to select inactive minibuffer window");
382 /* If the current buffer wants to clean up, let it. */
383 if (!NILP (Vmouse_leave_buffer_hook))
384 call1 (Vrun_hooks, Qmouse_leave_buffer_hook);
386 Fselect_window (event);
388 string++;
390 else break;
393 /* Count the number of arguments the interactive spec would have
394 us give to the function. */
395 tem = string;
396 for (j = 0; *tem; j++)
398 /* 'r' specifications ("point and mark as 2 numeric args")
399 produce *two* arguments. */
400 if (*tem == 'r') j++;
401 tem = (unsigned char *) index (tem, '\n');
402 if (tem)
403 tem++;
404 else
405 tem = (unsigned char *) "";
407 count = j;
409 args = (Lisp_Object *) alloca ((count + 1) * sizeof (Lisp_Object));
410 visargs = (Lisp_Object *) alloca ((count + 1) * sizeof (Lisp_Object));
411 argstrings = (unsigned char **) alloca ((count + 1) * sizeof (char *));
412 varies = (int *) alloca ((count + 1) * sizeof (int));
414 for (i = 0; i < (count + 1); i++)
416 args[i] = Qnil;
417 visargs[i] = Qnil;
418 varies[i] = 0;
421 GCPRO4 (prefix_arg, function, *args, *visargs);
422 gcpro3.nvars = (count + 1);
423 gcpro4.nvars = (count + 1);
425 if (!NILP (enable))
426 specbind (Qenable_recursive_minibuffers, Qt);
428 tem = string;
429 for (i = 1; *tem; i++)
431 strncpy (prompt1, tem + 1, sizeof prompt1 - 1);
432 prompt1[sizeof prompt1 - 1] = 0;
433 tem1 = index (prompt1, '\n');
434 if (tem1) *tem1 = 0;
435 /* Fill argstrings with a vector of C strings
436 corresponding to the Lisp strings in visargs. */
437 for (j = 1; j < i; j++)
438 argstrings[j]
439 = EQ (visargs[j], Qnil)
440 ? (unsigned char *) ""
441 : XSTRING (visargs[j])->data;
443 /* Process the format-string in prompt1, putting the output
444 into callint_message. Make callint_message bigger if necessary.
445 We don't use a buffer on the stack, because the contents
446 need to stay stable for a while. */
447 while (1)
449 int nchars = doprnt (callint_message, callint_message_size,
450 prompt1, (char *)0,
451 j - 1, argstrings + 1);
452 if (nchars < callint_message_size)
453 break;
454 callint_message_size *= 2;
455 callint_message
456 = (char *) xrealloc (callint_message, callint_message_size);
459 switch (*tem)
461 case 'a': /* Symbol defined as a function */
462 visargs[i] = Fcompleting_read (build_string (callint_message),
463 Vobarray, Qfboundp, Qt, Qnil, Qnil);
464 /* Passing args[i] directly stimulates compiler bug */
465 teml = visargs[i];
466 args[i] = Fintern (teml, Qnil);
467 break;
469 case 'b': /* Name of existing buffer */
470 args[i] = Fcurrent_buffer ();
471 if (EQ (selected_window, minibuf_window))
472 args[i] = Fother_buffer (args[i], Qnil);
473 args[i] = Fread_buffer (build_string (callint_message), args[i], Qt);
474 break;
476 case 'B': /* Name of buffer, possibly nonexistent */
477 args[i] = Fread_buffer (build_string (callint_message),
478 Fother_buffer (Fcurrent_buffer (), Qnil),
479 Qnil);
480 break;
482 case 'c': /* Character */
483 message1_nolog (callint_message);
484 args[i] = Fread_char ();
485 message1_nolog ((char *) 0);
486 /* Passing args[i] directly stimulates compiler bug */
487 teml = args[i];
488 visargs[i] = Fchar_to_string (teml);
489 break;
491 case 'C': /* Command: symbol with interactive function */
492 visargs[i] = Fcompleting_read (build_string (callint_message),
493 Vobarray, Qcommandp, Qt, Qnil, Qnil);
494 /* Passing args[i] directly stimulates compiler bug */
495 teml = visargs[i];
496 args[i] = Fintern (teml, Qnil);
497 break;
499 case 'd': /* Value of point. Does not do I/O. */
500 Fset_marker (point_marker, make_number (PT), Qnil);
501 args[i] = point_marker;
502 /* visargs[i] = Qnil; */
503 varies[i] = 1;
504 break;
506 case 'D': /* Directory name. */
507 args[i] = Fread_file_name (build_string (callint_message), Qnil,
508 current_buffer->directory, Qlambda, Qnil);
509 break;
511 case 'f': /* Existing file name. */
512 args[i] = Fread_file_name (build_string (callint_message),
513 Qnil, Qnil, Qlambda, Qnil);
514 break;
516 case 'F': /* Possibly nonexistent file name. */
517 args[i] = Fread_file_name (build_string (callint_message),
518 Qnil, Qnil, Qnil, Qnil);
519 break;
521 case 'k': /* Key sequence. */
522 args[i] = Fread_key_sequence (build_string (callint_message),
523 Qnil, Qnil, Qnil);
524 teml = args[i];
525 visargs[i] = Fkey_description (teml);
526 break;
528 case 'K': /* Key sequence to be defined. */
529 args[i] = Fread_key_sequence (build_string (callint_message),
530 Qnil, Qt, Qnil);
531 teml = args[i];
532 visargs[i] = Fkey_description (teml);
533 break;
535 case 'e': /* The invoking event. */
536 if (next_event >= key_count)
537 error ("%s must be bound to an event with parameters",
538 (SYMBOLP (function)
539 ? (char *) XSYMBOL (function)->name->data
540 : "command"));
541 args[i] = XVECTOR (keys)->contents[next_event++];
542 varies[i] = -1;
544 /* Find the next parameterized event. */
545 while (next_event < key_count
546 && ! (EVENT_HAS_PARAMETERS
547 (XVECTOR (keys)->contents[next_event])))
548 next_event++;
550 break;
552 case 'm': /* Value of mark. Does not do I/O. */
553 check_mark ();
554 /* visargs[i] = Qnil; */
555 args[i] = current_buffer->mark;
556 varies[i] = 2;
557 break;
559 case 'N': /* Prefix arg, else number from minibuffer */
560 if (!NILP (prefix_arg))
561 goto have_prefix_arg;
562 case 'n': /* Read number from minibuffer. */
564 args[i] = Fread_minibuffer (build_string (callint_message), Qnil);
565 while (! NUMBERP (args[i]));
566 visargs[i] = last_minibuf_string;
567 break;
569 case 'P': /* Prefix arg in raw form. Does no I/O. */
570 args[i] = prefix_arg;
571 /* visargs[i] = Qnil; */
572 varies[i] = -1;
573 break;
575 case 'p': /* Prefix arg converted to number. No I/O. */
576 have_prefix_arg:
577 args[i] = Fprefix_numeric_value (prefix_arg);
578 /* visargs[i] = Qnil; */
579 varies[i] = -1;
580 break;
582 case 'r': /* Region, point and mark as 2 args. */
583 check_mark ();
584 Fset_marker (point_marker, make_number (PT), Qnil);
585 /* visargs[i+1] = Qnil; */
586 foo = marker_position (current_buffer->mark);
587 /* visargs[i] = Qnil; */
588 args[i] = point < foo ? point_marker : current_buffer->mark;
589 varies[i] = 3;
590 args[++i] = point > foo ? point_marker : current_buffer->mark;
591 varies[i] = 4;
592 break;
594 case 's': /* String read via minibuffer. */
595 args[i] = Fread_string (build_string (callint_message), Qnil, Qnil);
596 break;
598 case 'S': /* Any symbol. */
599 visargs[i] = Fread_string (build_string (callint_message),
600 Qnil, Qnil);
601 /* Passing args[i] directly stimulates compiler bug */
602 teml = visargs[i];
603 args[i] = Fintern (teml, Qnil);
604 break;
606 case 'v': /* Variable name: symbol that is
607 user-variable-p. */
608 args[i] = Fread_variable (build_string (callint_message));
609 visargs[i] = last_minibuf_string;
610 break;
612 case 'x': /* Lisp expression read but not evaluated */
613 args[i] = Fread_minibuffer (build_string (callint_message), Qnil);
614 visargs[i] = last_minibuf_string;
615 break;
617 case 'X': /* Lisp expression read and evaluated */
618 args[i] = Feval_minibuffer (build_string (callint_message), Qnil);
619 visargs[i] = last_minibuf_string;
620 break;
622 /* We have a case for `+' so we get an error
623 if anyone tries to define one here. */
624 case '+':
625 default:
626 error ("Invalid control letter `%c' (%03o) in interactive calling string",
627 *tem, *tem);
630 if (varies[i] == 0)
631 arg_from_tty = 1;
633 if (NILP (visargs[i]) && STRINGP (args[i]))
634 visargs[i] = args[i];
636 tem = (unsigned char *) index (tem, '\n');
637 if (tem) tem++;
638 else tem = (unsigned char *) "";
640 unbind_to (speccount, Qnil);
642 QUIT;
644 args[0] = function;
646 if (arg_from_tty || !NILP (record_flag))
648 visargs[0] = function;
649 for (i = 1; i < count + 1; i++)
651 if (varies[i] > 0)
652 visargs[i] = Fcons (intern (callint_argfuns[varies[i]]), Qnil);
653 else
654 visargs[i] = quotify_arg (args[i]);
656 Vcommand_history = Fcons (Flist (count + 1, visargs),
657 Vcommand_history);
660 /* If we used a marker to hold point, mark, or an end of the region,
661 temporarily, convert it to an integer now. */
662 for (i = 1; i <= count; i++)
663 if (varies[i] >= 1 && varies[i] <= 4)
664 XSETINT (args[i], marker_position (args[i]));
666 single_kboard_state ();
669 Lisp_Object val;
670 specbind (Qcommand_debug_status, Qnil);
672 val = Ffuncall (count + 1, args);
673 UNGCPRO;
674 return unbind_to (speccount, val);
678 DEFUN ("prefix-numeric-value", Fprefix_numeric_value, Sprefix_numeric_value,
679 1, 1, 0,
680 "Return numeric meaning of raw prefix argument RAW.\n\
681 A raw prefix argument is what you get from `(interactive \"P\")'.\n\
682 Its numeric meaning is what you would get from `(interactive \"p\")'.")
683 (raw)
684 Lisp_Object raw;
686 Lisp_Object val;
688 if (NILP (raw))
689 XSETFASTINT (val, 1);
690 else if (EQ (raw, Qminus))
691 XSETINT (val, -1);
692 else if (CONSP (raw) && INTEGERP (XCONS (raw)->car))
693 XSETINT (val, XINT (XCONS (raw)->car));
694 else if (INTEGERP (raw))
695 val = raw;
696 else
697 XSETFASTINT (val, 1);
699 return val;
702 syms_of_callint ()
704 point_marker = Fmake_marker ();
705 staticpro (&point_marker);
707 preserved_fns = Fcons (intern ("region-beginning"),
708 Fcons (intern ("region-end"),
709 Fcons (intern ("point"),
710 Fcons (intern ("mark"), Qnil))));
711 staticpro (&preserved_fns);
713 Qlist = intern ("list");
714 staticpro (&Qlist);
715 Qlet = intern ("let");
716 staticpro (&Qlet);
717 Qletx = intern ("let*");
718 staticpro (&Qletx);
719 Qsave_excursion = intern ("save-excursion");
720 staticpro (&Qsave_excursion);
722 Qminus = intern ("-");
723 staticpro (&Qminus);
725 Qplus = intern ("+");
726 staticpro (&Qplus);
728 Qcall_interactively = intern ("call-interactively");
729 staticpro (&Qcall_interactively);
731 Qcommand_debug_status = intern ("command-debug-status");
732 staticpro (&Qcommand_debug_status);
734 Qenable_recursive_minibuffers = intern ("enable-recursive-minibuffers");
735 staticpro (&Qenable_recursive_minibuffers);
737 Qmouse_leave_buffer_hook = intern ("mouse-leave-buffer-hook");
738 staticpro (&Qmouse_leave_buffer_hook);
740 callint_message_size = 100;
741 callint_message = (char *) xmalloc (callint_message_size);
744 DEFVAR_KBOARD ("prefix-arg", Vprefix_arg,
745 "The value of the prefix argument for the next editing command.\n\
746 It may be a number, or the symbol `-' for just a minus sign as arg,\n\
747 or a list whose car is a number for just one or more C-U's\n\
748 or nil if no argument has been specified.\n\
750 You cannot examine this variable to find the argument for this command\n\
751 since it has been set to nil by the time you can look.\n\
752 Instead, you should use the variable `current-prefix-arg', although\n\
753 normally commands can get this prefix argument with (interactive \"P\").");
755 DEFVAR_LISP ("current-prefix-arg", &Vcurrent_prefix_arg,
756 "The value of the prefix argument for this editing command.\n\
757 It may be a number, or the symbol `-' for just a minus sign as arg,\n\
758 or a list whose car is a number for just one or more C-U's\n\
759 or nil if no argument has been specified.\n\
760 This is what `(interactive \"P\")' returns.");
761 Vcurrent_prefix_arg = Qnil;
763 DEFVAR_LISP ("command-history", &Vcommand_history,
764 "List of recent commands that read arguments from terminal.\n\
765 Each command is represented as a form to evaluate.");
766 Vcommand_history = Qnil;
768 DEFVAR_LISP ("command-debug-status", &Vcommand_debug_status,
769 "Debugging status of current interactive command.\n\
770 Bound each time `call-interactively' is called;\n\
771 may be set by the debugger as a reminder for itself.");
772 Vcommand_debug_status = Qnil;
774 DEFVAR_LISP ("mark-even-if-inactive", &Vmark_even_if_inactive,
775 "*Non-nil means you can use the mark even when inactive.\n\
776 This option makes a difference in Transient Mark mode.\n\
777 When the option is non-nil, deactivation of the mark\n\
778 turns off region highlighting, but commands that use the mark\n\
779 behave as if the mark were still active.");
780 Vmark_even_if_inactive = Qnil;
782 DEFVAR_LISP ("mouse-leave-buffer-hook", &Vmouse_leave_buffer_hook,
783 "Hook to run when about to switch windows with a mouse command.\n\
784 Its purpose is to give temporary modes such as Isearch mode\n\
785 a way to turn themselves off when a mouse command switches windows.");
786 Vmouse_leave_buffer_hook = Qnil;
788 defsubr (&Sinteractive);
789 defsubr (&Scall_interactively);
790 defsubr (&Sprefix_numeric_value);