1 /* Call a Lisp function interactively.
2 Copyright (C) 1985, 86, 93, 94, 95, 1997 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 extern Lisp_Object Vhistory_length
;
40 Lisp_Object Vcommand_debug_status
, Qcommand_debug_status
;
41 Lisp_Object Qenable_recursive_minibuffers
;
43 /* Non-nil means treat the mark as active
44 even if mark_active is 0. */
45 Lisp_Object Vmark_even_if_inactive
;
47 Lisp_Object Vmouse_leave_buffer_hook
, Qmouse_leave_buffer_hook
;
49 Lisp_Object Qlist
, Qlet
, Qletx
, Qsave_excursion
;
50 static Lisp_Object preserved_fns
;
52 /* Marker used within call-interactively to refer to point. */
53 static Lisp_Object point_marker
;
55 /* Buffer for the prompt text used in Fcall_interactively. */
56 static char *callint_message
;
58 /* Allocated length of that buffer. */
59 static int callint_message_size
;
61 /* This comment supplies the doc string for interactive,
62 for make-docfile to see. We cannot put this in the real DEFUN
63 due to limits in the Unix cpp.
65 DEFUN ("interactive", Ffoo, Sfoo, 0, 0, 0,
66 "Specify a way of parsing arguments for interactive use of a function.\n\
68 (defun foo (arg) \"Doc string\" (interactive \"p\") ...use arg...)\n\
69 to make ARG be the prefix argument when `foo' is called as a command.\n\
70 The \"call\" to `interactive' is actually a declaration rather than a function;\n\
71 it tells `call-interactively' how to read arguments\n\
72 to pass to the function.\n\
73 When actually called, `interactive' just returns nil.\n\
75 The argument of `interactive' is usually a string containing a code letter\n\
76 followed by a prompt. (Some code letters do not use I/O to get\n\
77 the argument and do not need prompts.) To prompt for multiple arguments,\n\
78 give a code letter, its prompt, a newline, and another code letter, etc.\n\
79 Prompts are passed to format, and may use % escapes to print the\n\
80 arguments that have already been read.\n\
81 If the argument is not a string, it is evaluated to get a list of\n\
82 arguments to pass to the function.\n\
83 Just `(interactive)' means pass no args when calling interactively.\n\
84 \nCode letters available are:\n\
85 a -- Function name: symbol with a function definition.\n\
86 b -- Name of existing buffer.\n\
87 B -- Name of buffer, possibly nonexistent.\n\
89 C -- Command name: symbol with interactive function definition.\n\
90 d -- Value of point as number. Does not do I/O.\n\
91 D -- Directory name.\n\
92 e -- Parametrized event (i.e., one that's a list) that invoked this command.\n\
93 If used more than once, the Nth `e' returns the Nth parameterized event.\n\
94 This skips events that are integers or symbols.\n\
95 f -- Existing file name.\n\
96 F -- Possibly nonexistent file name.\n\
97 i -- Ignored, i.e. always nil. Does not do I/O.\n\
98 k -- Key sequence (downcase the last event if needed to get a definition).\n\
99 K -- Key sequence to be redefined (do not downcase the last event).\n\
100 m -- Value of mark as number. Does not do I/O.\n\
101 M -- Any string. Inherits the current input method.\n\
102 n -- Number read using minibuffer.\n\
103 N -- Raw prefix arg, or if none, do like code `n'.\n\
104 p -- Prefix arg converted to number. Does not do I/O.\n\
105 P -- Prefix arg in raw form. Does not do I/O.\n\
106 r -- Region: point and mark as 2 numeric args, smallest first. Does no I/O.\n\
107 s -- Any string. Does not inherit the current input method.\n\
109 v -- Variable name: symbol that is user-variable-p.\n\
110 x -- Lisp expression read but not evaluated.\n\
111 X -- Lisp expression read and evaluated.\n\
112 z -- Coding system.\n\
113 Z -- Coding system, nil if no prefix arg.\n\
114 In addition, if the string begins with `*'\n\
115 then an error is signaled if the buffer is read-only.\n\
116 This happens before reading any arguments.\n\
117 If the string begins with `@', then Emacs searches the key sequence\n\
118 which invoked the command for its first mouse click (or any other\n\
119 event which specifies a window), and selects that window before\n\
120 reading any arguments. You may use both `@' and `*'; they are\n\
121 processed in the order that they appear." */
124 DEFUN ("interactive", Finteractive
, Sinteractive
, 0, UNEVALLED
, 0,
125 0 /* See immediately above */)
132 /* Quotify EXP: if EXP is constant, return it.
133 If EXP is not constant, return (quote EXP). */
136 register Lisp_Object exp
;
138 if (!INTEGERP (exp
) && !STRINGP (exp
)
139 && !NILP (exp
) && !EQ (exp
, Qt
))
140 return Fcons (Qquote
, Fcons (exp
, Qnil
));
145 /* Modify EXP by quotifying each element (except the first). */
150 register Lisp_Object tail
;
151 register struct Lisp_Cons
*ptr
;
152 for (tail
= exp
; CONSP (tail
); tail
= ptr
->cdr
)
155 ptr
->car
= quotify_arg (ptr
->car
);
160 char *callint_argfuns
[]
161 = {"", "point", "mark", "region-beginning", "region-end"};
167 tem
= Fmarker_buffer (current_buffer
->mark
);
168 if (NILP (tem
) || (XBUFFER (tem
) != current_buffer
))
169 error ("The mark is not set now");
170 if (!NILP (Vtransient_mark_mode
) && NILP (Vmark_even_if_inactive
)
171 && NILP (current_buffer
->mark_active
))
172 Fsignal (Qmark_inactive
, Qnil
);
176 DEFUN ("call-interactively", Fcall_interactively
, Scall_interactively
, 1, 3, 0,
177 "Call FUNCTION, reading args according to its interactive calling specs.\n\
178 Return the value FUNCTION returns.\n\
179 The function contains a specification of how to do the argument reading.\n\
180 In the case of user-defined functions, this is specified by placing a call\n\
181 to the function `interactive' at the top level of the function body.\n\
182 See `interactive'.\n\
184 Optional second arg RECORD-FLAG non-nil\n\
185 means unconditionally put this command in the command-history.\n\
186 Otherwise, this is done only if an arg is read using the minibuffer.")
187 (function
, record_flag
, keys
)
188 Lisp_Object function
, record_flag
, keys
;
190 Lisp_Object
*args
, *visargs
;
191 unsigned char **argstrings
;
197 int speccount
= specpdl_ptr
- specpdl
;
199 /* The index of the next element of this_command_keys to examine for
200 the 'e' interactive code. */
203 Lisp_Object prefix_arg
;
204 unsigned char *string
;
207 /* If varies[i] > 0, the i'th argument shouldn't just have its value
208 in this call quoted in the command history. It should be
209 recorded as a call to the function named callint_argfuns[varies[i]]. */
216 int arg_from_tty
= 0;
217 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
221 keys
= this_command_keys
, key_count
= this_command_key_count
;
224 CHECK_VECTOR (keys
, 3);
225 key_count
= XVECTOR (keys
)->size
;
228 /* Save this now, since use of minibuffer will clobber it. */
229 prefix_arg
= Vcurrent_prefix_arg
;
233 if (SYMBOLP (function
))
234 enable
= Fget (function
, Qenable_recursive_minibuffers
);
236 fun
= indirect_function (function
);
241 /* Decode the kind of function. Either handle it and return,
242 or go to `lose' if not interactive, or go to `retry'
243 to specify a different function, or set either STRING or SPECS. */
247 string
= (unsigned char *) XSUBR (fun
)->prompt
;
251 function
= wrong_type_argument (Qcommandp
, function
);
254 if ((EMACS_INT
) string
== 1)
255 /* Let SPECS (which is nil) be used as the args. */
258 else if (COMPILEDP (fun
))
260 if ((XVECTOR (fun
)->size
& PSEUDOVECTOR_SIZE_MASK
) <= COMPILED_INTERACTIVE
)
262 specs
= XVECTOR (fun
)->contents
[COMPILED_INTERACTIVE
];
264 else if (!CONSP (fun
))
266 else if (funcar
= Fcar (fun
), EQ (funcar
, Qautoload
))
268 GCPRO2 (function
, prefix_arg
);
269 do_autoload (fun
, function
);
273 else if (EQ (funcar
, Qlambda
))
275 specs
= Fassq (Qinteractive
, Fcdr (Fcdr (fun
)));
278 specs
= Fcar (Fcdr (specs
));
280 else if (EQ (funcar
, Qmocklisp
))
282 single_kboard_state ();
283 return ml_apply (fun
, Qinteractive
);
288 /* If either specs or string is set to a string, use it. */
291 /* Make a copy of string so that if a GC relocates specs,
292 `string' will still be valid. */
293 string
= (unsigned char *) alloca (STRING_BYTES (XSTRING (specs
)) + 1);
294 bcopy (XSTRING (specs
)->data
, string
,
295 STRING_BYTES (XSTRING (specs
)) + 1);
297 else if (string
== 0)
300 i
= num_input_events
;
302 /* Compute the arg values using the user's expression. */
303 specs
= Feval (specs
);
304 if (i
!= num_input_events
|| !NILP (record_flag
))
306 /* We should record this command on the command history. */
307 Lisp_Object values
, car
;
308 /* Make a copy of the list of values, for the command history,
309 and turn them into things we can eval. */
310 values
= quotify_args (Fcopy_sequence (specs
));
311 /* If the list of args was produced with an explicit call to `list',
312 look for elements that were computed with (region-beginning)
313 or (region-end), and put those expressions into VALUES
314 instead of the present values. */
317 car
= XCONS (input
)->car
;
318 /* Skip through certain special forms. */
319 while (EQ (car
, Qlet
) || EQ (car
, Qletx
)
320 || EQ (car
, Qsave_excursion
))
322 while (CONSP (XCONS (input
)->cdr
))
323 input
= XCONS (input
)->cdr
;
324 input
= XCONS (input
)->car
;
327 car
= XCONS (input
)->car
;
331 Lisp_Object intail
, valtail
;
332 for (intail
= Fcdr (input
), valtail
= values
;
334 intail
= Fcdr (intail
), valtail
= Fcdr (valtail
))
340 Lisp_Object presflag
;
341 presflag
= Fmemq (Fcar (elt
), preserved_fns
);
342 if (!NILP (presflag
))
343 Fsetcar (valtail
, Fcar (intail
));
349 = Fcons (Fcons (function
, values
), Vcommand_history
);
351 /* Don't keep command history around forever. */
352 if (NUMBERP (Vhistory_length
) && XINT (Vhistory_length
) > 0)
354 teml
= Fnthcdr (Vhistory_length
, Vcommand_history
);
356 XCONS (teml
)->cdr
= Qnil
;
359 single_kboard_state ();
360 return apply1 (function
, specs
);
363 /* Here if function specifies a string to control parsing the defaults */
365 /* Set next_event to point to the first event with parameters. */
366 for (next_event
= 0; next_event
< key_count
; next_event
++)
367 if (EVENT_HAS_PARAMETERS (XVECTOR (keys
)->contents
[next_event
]))
370 /* Handle special starting chars `*' and `@'. Also `-'. */
371 /* Note that `+' is reserved for user extensions. */
375 error ("`+' is not used in `interactive' for ordinary commands");
376 else if (*string
== '*')
379 if (!NILP (current_buffer
->read_only
))
380 Fbarf_if_buffer_read_only ();
382 /* Ignore this for semi-compatibility with Lucid. */
383 else if (*string
== '-')
385 else if (*string
== '@')
389 event
= XVECTOR (keys
)->contents
[next_event
];
390 if (EVENT_HAS_PARAMETERS (event
)
391 && (event
= XCONS (event
)->cdr
, CONSP (event
))
392 && (event
= XCONS (event
)->car
, CONSP (event
))
393 && (event
= XCONS (event
)->car
, WINDOWP (event
)))
395 if (MINI_WINDOW_P (XWINDOW (event
))
396 && ! (minibuf_level
> 0 && EQ (event
, minibuf_window
)))
397 error ("Attempt to select inactive minibuffer window");
399 /* If the current buffer wants to clean up, let it. */
400 if (!NILP (Vmouse_leave_buffer_hook
))
401 call1 (Vrun_hooks
, Qmouse_leave_buffer_hook
);
403 Fselect_window (event
);
410 /* Count the number of arguments the interactive spec would have
411 us give to the function. */
413 for (j
= 0; *tem
; j
++)
415 /* 'r' specifications ("point and mark as 2 numeric args")
416 produce *two* arguments. */
417 if (*tem
== 'r') j
++;
418 tem
= (unsigned char *) index (tem
, '\n');
422 tem
= (unsigned char *) "";
426 args
= (Lisp_Object
*) alloca ((count
+ 1) * sizeof (Lisp_Object
));
427 visargs
= (Lisp_Object
*) alloca ((count
+ 1) * sizeof (Lisp_Object
));
428 argstrings
= (unsigned char **) alloca ((count
+ 1) * sizeof (char *));
429 varies
= (int *) alloca ((count
+ 1) * sizeof (int));
431 for (i
= 0; i
< (count
+ 1); i
++)
438 GCPRO4 (prefix_arg
, function
, *args
, *visargs
);
439 gcpro3
.nvars
= (count
+ 1);
440 gcpro4
.nvars
= (count
+ 1);
443 specbind (Qenable_recursive_minibuffers
, Qt
);
446 for (i
= 1; *tem
; i
++)
448 strncpy (prompt1
, tem
+ 1, sizeof prompt1
- 1);
449 prompt1
[sizeof prompt1
- 1] = 0;
450 tem1
= index (prompt1
, '\n');
452 /* Fill argstrings with a vector of C strings
453 corresponding to the Lisp strings in visargs. */
454 for (j
= 1; j
< i
; j
++)
456 = (EQ (visargs
[j
], Qnil
)
457 ? (unsigned char *) ""
458 : XSTRING (visargs
[j
])->data
);
460 /* Process the format-string in prompt1, putting the output
461 into callint_message. Make callint_message bigger if necessary.
462 We don't use a buffer on the stack, because the contents
463 need to stay stable for a while. */
466 int nchars
= doprnt (callint_message
, callint_message_size
,
468 j
- 1, (char **) argstrings
+ 1);
469 if (nchars
< callint_message_size
)
471 callint_message_size
*= 2;
473 = (char *) xrealloc (callint_message
, callint_message_size
);
478 case 'a': /* Symbol defined as a function */
479 visargs
[i
] = Fcompleting_read (build_string (callint_message
),
480 Vobarray
, Qfboundp
, Qt
,
481 Qnil
, Qnil
, Qnil
, Qnil
);
482 /* Passing args[i] directly stimulates compiler bug */
484 args
[i
] = Fintern (teml
, Qnil
);
487 case 'b': /* Name of existing buffer */
488 args
[i
] = Fcurrent_buffer ();
489 if (EQ (selected_window
, minibuf_window
))
490 args
[i
] = Fother_buffer (args
[i
], Qnil
, Qnil
);
491 args
[i
] = Fread_buffer (build_string (callint_message
), args
[i
], Qt
);
494 case 'B': /* Name of buffer, possibly nonexistent */
495 args
[i
] = Fread_buffer (build_string (callint_message
),
496 Fother_buffer (Fcurrent_buffer (), Qnil
, Qnil
),
500 case 'c': /* Character */
501 args
[i
] = Fread_char (build_string (callint_message
), Qnil
);
502 message1_nolog ((char *) 0);
503 /* Passing args[i] directly stimulates compiler bug */
505 visargs
[i
] = Fchar_to_string (teml
);
508 case 'C': /* Command: symbol with interactive function */
509 visargs
[i
] = Fcompleting_read (build_string (callint_message
),
511 Qt
, Qnil
, Qnil
, Qnil
, Qnil
);
512 /* Passing args[i] directly stimulates compiler bug */
514 args
[i
] = Fintern (teml
, Qnil
);
517 case 'd': /* Value of point. Does not do I/O. */
518 set_marker_both (point_marker
, Qnil
, PT
, PT_BYTE
);
519 args
[i
] = point_marker
;
520 /* visargs[i] = Qnil; */
524 case 'D': /* Directory name. */
525 args
[i
] = Fread_file_name (build_string (callint_message
), Qnil
,
526 current_buffer
->directory
, Qlambda
, Qnil
);
529 case 'f': /* Existing file name. */
530 args
[i
] = Fread_file_name (build_string (callint_message
),
531 Qnil
, Qnil
, Qlambda
, Qnil
);
534 case 'F': /* Possibly nonexistent file name. */
535 args
[i
] = Fread_file_name (build_string (callint_message
),
536 Qnil
, Qnil
, Qnil
, Qnil
);
539 case 'i': /* Ignore an argument -- Does not do I/O */
543 case 'k': /* Key sequence. */
545 int speccount1
= specpdl_ptr
- specpdl
;
546 specbind (Qcursor_in_echo_area
, Qt
);
547 args
[i
] = Fread_key_sequence (build_string (callint_message
),
548 Qnil
, Qnil
, Qnil
, Qnil
);
549 unbind_to (speccount1
, Qnil
);
551 visargs
[i
] = Fkey_description (teml
);
553 /* If the key sequence ends with a down-event,
554 discard the following up-event. */
555 teml
= Faref (args
[i
], make_number (XINT (Flength (args
[i
])) - 1));
557 teml
= XCONS (teml
)->car
;
562 teml
= Fget (teml
, intern ("event-symbol-elements"));
563 tem2
= Fmemq (intern ("down"), teml
);
565 Fread_event (Qnil
, Qnil
);
570 case 'K': /* Key sequence to be defined. */
572 int speccount1
= specpdl_ptr
- specpdl
;
573 specbind (Qcursor_in_echo_area
, Qt
);
574 args
[i
] = Fread_key_sequence (build_string (callint_message
),
575 Qnil
, Qt
, Qnil
, Qnil
);
577 visargs
[i
] = Fkey_description (teml
);
578 unbind_to (speccount1
, Qnil
);
580 /* If the key sequence ends with a down-event,
581 discard the following up-event. */
582 teml
= Faref (args
[i
], make_number (XINT (Flength (args
[i
])) - 1));
584 teml
= XCONS (teml
)->car
;
589 teml
= Fget (teml
, intern ("event-symbol-elements"));
590 tem2
= Fmemq (intern ("down"), teml
);
592 Fread_event (Qnil
, Qnil
);
597 case 'e': /* The invoking event. */
598 if (next_event
>= key_count
)
599 error ("%s must be bound to an event with parameters",
601 ? (char *) XSYMBOL (function
)->name
->data
603 args
[i
] = XVECTOR (keys
)->contents
[next_event
++];
606 /* Find the next parameterized event. */
607 while (next_event
< key_count
608 && ! (EVENT_HAS_PARAMETERS
609 (XVECTOR (keys
)->contents
[next_event
])))
614 case 'm': /* Value of mark. Does not do I/O. */
616 /* visargs[i] = Qnil; */
617 args
[i
] = current_buffer
->mark
;
621 case 'M': /* String read via minibuffer with
622 inheriting the current input method. */
623 args
[i
] = Fread_string (build_string (callint_message
),
624 Qnil
, Qnil
, Qnil
, Qt
);
627 case 'N': /* Prefix arg, else number from minibuffer */
628 if (!NILP (prefix_arg
))
629 goto have_prefix_arg
;
630 case 'n': /* Read number from minibuffer. */
638 message ("Please enter a number.");
639 sit_for (1, 0, 0, 0, 0);
643 tem
= Fread_from_minibuffer (build_string (callint_message
),
644 Qnil
, Qnil
, Qnil
, Qnil
, Qnil
,
646 if (! STRINGP (tem
) || XSTRING (tem
)->size
== 0)
649 args
[i
] = Fread (tem
);
651 while (! NUMBERP (args
[i
]));
653 visargs
[i
] = last_minibuf_string
;
656 case 'P': /* Prefix arg in raw form. Does no I/O. */
657 args
[i
] = prefix_arg
;
658 /* visargs[i] = Qnil; */
662 case 'p': /* Prefix arg converted to number. No I/O. */
664 args
[i
] = Fprefix_numeric_value (prefix_arg
);
665 /* visargs[i] = Qnil; */
669 case 'r': /* Region, point and mark as 2 args. */
671 set_marker_both (point_marker
, Qnil
, PT
, PT_BYTE
);
672 /* visargs[i+1] = Qnil; */
673 foo
= marker_position (current_buffer
->mark
);
674 /* visargs[i] = Qnil; */
675 args
[i
] = PT
< foo
? point_marker
: current_buffer
->mark
;
677 args
[++i
] = PT
> foo
? point_marker
: current_buffer
->mark
;
681 case 's': /* String read via minibuffer without
682 inheriting the current input method. */
683 args
[i
] = Fread_string (build_string (callint_message
),
684 Qnil
, Qnil
, Qnil
, Qnil
);
687 case 'S': /* Any symbol. */
688 visargs
[i
] = Fread_string (build_string (callint_message
),
689 Qnil
, Qnil
, Qnil
, Qnil
);
690 /* Passing args[i] directly stimulates compiler bug */
692 args
[i
] = Fintern (teml
, Qnil
);
695 case 'v': /* Variable name: symbol that is
697 args
[i
] = Fread_variable (build_string (callint_message
), Qnil
);
698 visargs
[i
] = last_minibuf_string
;
701 case 'x': /* Lisp expression read but not evaluated */
702 args
[i
] = Fread_minibuffer (build_string (callint_message
), Qnil
);
703 visargs
[i
] = last_minibuf_string
;
706 case 'X': /* Lisp expression read and evaluated */
707 args
[i
] = Feval_minibuffer (build_string (callint_message
), Qnil
);
708 visargs
[i
] = last_minibuf_string
;
711 case 'Z': /* Coding-system symbol, or ignore the
712 argument if no prefix */
713 if (NILP (prefix_arg
))
721 = Fread_non_nil_coding_system (build_string (callint_message
));
722 visargs
[i
] = last_minibuf_string
;
726 case 'z': /* Coding-system symbol or nil */
727 args
[i
] = Fread_coding_system (build_string (callint_message
), Qnil
);
728 visargs
[i
] = last_minibuf_string
;
731 /* We have a case for `+' so we get an error
732 if anyone tries to define one here. */
735 error ("Invalid control letter `%c' (%03o) in interactive calling string",
742 if (NILP (visargs
[i
]) && STRINGP (args
[i
]))
743 visargs
[i
] = args
[i
];
745 tem
= (unsigned char *) index (tem
, '\n');
747 else tem
= (unsigned char *) "";
749 unbind_to (speccount
, Qnil
);
755 if (arg_from_tty
|| !NILP (record_flag
))
757 visargs
[0] = function
;
758 for (i
= 1; i
< count
+ 1; i
++)
761 visargs
[i
] = Fcons (intern (callint_argfuns
[varies
[i
]]), Qnil
);
763 visargs
[i
] = quotify_arg (args
[i
]);
765 Vcommand_history
= Fcons (Flist (count
+ 1, visargs
),
767 /* Don't keep command history around forever. */
768 if (NUMBERP (Vhistory_length
) && XINT (Vhistory_length
) > 0)
770 teml
= Fnthcdr (Vhistory_length
, Vcommand_history
);
772 XCONS (teml
)->cdr
= Qnil
;
776 /* If we used a marker to hold point, mark, or an end of the region,
777 temporarily, convert it to an integer now. */
778 for (i
= 1; i
<= count
; i
++)
779 if (varies
[i
] >= 1 && varies
[i
] <= 4)
780 XSETINT (args
[i
], marker_position (args
[i
]));
782 single_kboard_state ();
786 specbind (Qcommand_debug_status
, Qnil
);
788 val
= Ffuncall (count
+ 1, args
);
790 return unbind_to (speccount
, val
);
794 DEFUN ("prefix-numeric-value", Fprefix_numeric_value
, Sprefix_numeric_value
,
796 "Return numeric meaning of raw prefix argument RAW.\n\
797 A raw prefix argument is what you get from `(interactive \"P\")'.\n\
798 Its numeric meaning is what you would get from `(interactive \"p\")'.")
805 XSETFASTINT (val
, 1);
806 else if (EQ (raw
, Qminus
))
808 else if (CONSP (raw
) && INTEGERP (XCONS (raw
)->car
))
809 XSETINT (val
, XINT (XCONS (raw
)->car
));
810 else if (INTEGERP (raw
))
813 XSETFASTINT (val
, 1);
821 point_marker
= Fmake_marker ();
822 staticpro (&point_marker
);
824 preserved_fns
= Fcons (intern ("region-beginning"),
825 Fcons (intern ("region-end"),
826 Fcons (intern ("point"),
827 Fcons (intern ("mark"), Qnil
))));
828 staticpro (&preserved_fns
);
830 Qlist
= intern ("list");
832 Qlet
= intern ("let");
834 Qletx
= intern ("let*");
836 Qsave_excursion
= intern ("save-excursion");
837 staticpro (&Qsave_excursion
);
839 Qminus
= intern ("-");
842 Qplus
= intern ("+");
845 Qcall_interactively
= intern ("call-interactively");
846 staticpro (&Qcall_interactively
);
848 Qcommand_debug_status
= intern ("command-debug-status");
849 staticpro (&Qcommand_debug_status
);
851 Qenable_recursive_minibuffers
= intern ("enable-recursive-minibuffers");
852 staticpro (&Qenable_recursive_minibuffers
);
854 Qmouse_leave_buffer_hook
= intern ("mouse-leave-buffer-hook");
855 staticpro (&Qmouse_leave_buffer_hook
);
857 callint_message_size
= 100;
858 callint_message
= (char *) xmalloc (callint_message_size
);
861 DEFVAR_KBOARD ("prefix-arg", Vprefix_arg
,
862 "The value of the prefix argument for the next editing command.\n\
863 It may be a number, or the symbol `-' for just a minus sign as arg,\n\
864 or a list whose car is a number for just one or more C-U's\n\
865 or nil if no argument has been specified.\n\
867 You cannot examine this variable to find the argument for this command\n\
868 since it has been set to nil by the time you can look.\n\
869 Instead, you should use the variable `current-prefix-arg', although\n\
870 normally commands can get this prefix argument with (interactive \"P\").");
872 DEFVAR_KBOARD ("last-prefix-arg", Vlast_prefix_arg
,
873 "The value of the prefix argument for the previous editing command.\n\
874 See `prefix-arg' for the meaning of the value.");
876 DEFVAR_LISP ("current-prefix-arg", &Vcurrent_prefix_arg
,
877 "The value of the prefix argument for this editing command.\n\
878 It may be a number, or the symbol `-' for just a minus sign as arg,\n\
879 or a list whose car is a number for just one or more C-U's\n\
880 or nil if no argument has been specified.\n\
881 This is what `(interactive \"P\")' returns.");
882 Vcurrent_prefix_arg
= Qnil
;
884 DEFVAR_LISP ("command-history", &Vcommand_history
,
885 "List of recent commands that read arguments from terminal.\n\
886 Each command is represented as a form to evaluate.");
887 Vcommand_history
= Qnil
;
889 DEFVAR_LISP ("command-debug-status", &Vcommand_debug_status
,
890 "Debugging status of current interactive command.\n\
891 Bound each time `call-interactively' is called;\n\
892 may be set by the debugger as a reminder for itself.");
893 Vcommand_debug_status
= Qnil
;
895 DEFVAR_LISP ("mark-even-if-inactive", &Vmark_even_if_inactive
,
896 "*Non-nil means you can use the mark even when inactive.\n\
897 This option makes a difference in Transient Mark mode.\n\
898 When the option is non-nil, deactivation of the mark\n\
899 turns off region highlighting, but commands that use the mark\n\
900 behave as if the mark were still active.");
901 Vmark_even_if_inactive
= Qnil
;
903 DEFVAR_LISP ("mouse-leave-buffer-hook", &Vmouse_leave_buffer_hook
,
904 "Hook to run when about to switch windows with a mouse command.\n\
905 Its purpose is to give temporary modes such as Isearch mode\n\
906 a way to turn themselves off when a mouse command switches windows.");
907 Vmouse_leave_buffer_hook
= Qnil
;
909 defsubr (&Sinteractive
);
910 defsubr (&Scall_interactively
);
911 defsubr (&Sprefix_numeric_value
);