1 /* Call a Lisp function interactively.
2 Copyright (C) 1985, 86, 93, 94, 95, 1997, 2000, 02, 03, 2004
3 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
33 extern char *index
P_ ((const char *, int));
36 extern Lisp_Object Qcursor_in_echo_area
;
37 extern Lisp_Object Qfile_directory_p
;
39 Lisp_Object Vcurrent_prefix_arg
, Qminus
, Qplus
;
40 Lisp_Object Qcall_interactively
;
41 Lisp_Object Vcommand_history
;
43 extern Lisp_Object Vhistory_length
;
44 extern Lisp_Object Vthis_original_command
, real_this_command
;
46 Lisp_Object Vcommand_debug_status
, Qcommand_debug_status
;
47 Lisp_Object Qenable_recursive_minibuffers
;
49 /* Non-nil means treat the mark as active
50 even if mark_active is 0. */
51 Lisp_Object Vmark_even_if_inactive
;
53 Lisp_Object Vmouse_leave_buffer_hook
, Qmouse_leave_buffer_hook
;
55 Lisp_Object Qlist
, Qlet
, Qletx
, Qsave_excursion
, Qprogn
, Qif
, Qwhen
;
56 static Lisp_Object preserved_fns
;
58 /* Marker used within call-interactively to refer to point. */
59 static Lisp_Object point_marker
;
61 /* Buffer for the prompt text used in Fcall_interactively. */
62 static char *callint_message
;
64 /* Allocated length of that buffer. */
65 static int callint_message_size
;
68 DEFUN ("interactive", Finteractive
, Sinteractive
, 0, UNEVALLED
, 0,
69 doc
: /* Specify a way of parsing arguments for interactive use of a function.
71 (defun foo (arg) "Doc string" (interactive "p") ...use arg...)
72 to make ARG be the prefix argument when `foo' is called as a command.
73 The "call" to `interactive' is actually a declaration rather than a function;
74 it tells `call-interactively' how to read arguments
75 to pass to the function.
76 When actually called, `interactive' just returns nil.
78 The argument of `interactive' is usually a string containing a code letter
79 followed by a prompt. (Some code letters do not use I/O to get
80 the argument and do not need prompts.) To prompt for multiple arguments,
81 give a code letter, its prompt, a newline, and another code letter, etc.
82 Prompts are passed to format, and may use % escapes to print the
83 arguments that have already been read.
84 If the argument is not a string, it is evaluated to get a list of
85 arguments to pass to the function.
86 Just `(interactive)' means pass no args when calling interactively.
88 Code letters available are:
89 a -- Function name: symbol with a function definition.
90 b -- Name of existing buffer.
91 B -- Name of buffer, possibly nonexistent.
92 c -- Character (no input method is used).
93 C -- Command name: symbol with interactive function definition.
94 d -- Value of point as number. Does not do I/O.
96 e -- Parametrized event (i.e., one that's a list) that invoked this command.
97 If used more than once, the Nth `e' returns the Nth parameterized event.
98 This skips events that are integers or symbols.
99 f -- Existing file name.
100 F -- Possibly nonexistent file name.
101 i -- Ignored, i.e. always nil. Does not do I/O.
102 k -- Key sequence (downcase the last event if needed to get a definition).
103 K -- Key sequence to be redefined (do not downcase the last event).
104 m -- Value of mark as number. Does not do I/O.
105 M -- Any string. Inherits the current input method.
106 n -- Number read using minibuffer.
107 N -- Raw prefix arg, or if none, do like code `n'.
108 p -- Prefix arg converted to number. Does not do I/O.
109 P -- Prefix arg in raw form. Does not do I/O.
110 r -- Region: point and mark as 2 numeric args, smallest first. Does no I/O.
111 s -- Any string. Does not inherit the current input method.
113 v -- Variable name: symbol that is user-variable-p.
114 x -- Lisp expression read but not evaluated.
115 X -- Lisp expression read and evaluated.
117 Z -- Coding system, nil if no prefix arg.
118 In addition, if the string begins with `*'
119 then an error is signaled if the buffer is read-only.
120 This happens before reading any arguments.
121 If the string begins with `@', then Emacs searches the key sequence
122 which invoked the command for its first mouse click (or any other
123 event which specifies a window), and selects that window before
124 reading any arguments. You may use both `@' and `*'; they are
125 processed in the order that they appear.
126 usage: (interactive ARGS) */)
133 /* Quotify EXP: if EXP is constant, return it.
134 If EXP is not constant, return (quote EXP). */
137 register Lisp_Object exp
;
139 if (!INTEGERP (exp
) && !STRINGP (exp
)
140 && !NILP (exp
) && !EQ (exp
, Qt
))
141 return Fcons (Qquote
, Fcons (exp
, Qnil
));
146 /* Modify EXP by quotifying each element (except the first). */
151 register Lisp_Object tail
;
153 for (tail
= exp
; CONSP (tail
); tail
= next
)
156 XSETCAR (tail
, quotify_arg (XCAR (tail
)));
161 char *callint_argfuns
[]
162 = {"", "point", "mark", "region-beginning", "region-end"};
165 check_mark (for_region
)
169 tem
= Fmarker_buffer (current_buffer
->mark
);
170 if (NILP (tem
) || (XBUFFER (tem
) != current_buffer
))
171 error (for_region
? "The mark is not set now, so there is no region"
172 : "The mark is not set now");
173 if (!NILP (Vtransient_mark_mode
) && NILP (Vmark_even_if_inactive
)
174 && NILP (current_buffer
->mark_active
))
175 Fsignal (Qmark_inactive
, Qnil
);
178 /* If the list of args INPUT was produced with an explicit call to
179 `list', look for elements that were computed with
180 (region-beginning) or (region-end), and put those expressions into
181 VALUES instead of the present values.
183 This function doesn't return a value because it modifies elements
184 of VALUES to do its job. */
187 fix_command (input
, values
)
188 Lisp_Object input
, values
;
195 /* Skip through certain special forms. */
196 while (EQ (car
, Qlet
) || EQ (car
, Qletx
)
197 || EQ (car
, Qsave_excursion
)
200 while (CONSP (XCDR (input
)))
201 input
= XCDR (input
);
202 input
= XCAR (input
);
209 Lisp_Object intail
, valtail
;
210 for (intail
= Fcdr (input
), valtail
= values
;
212 intail
= Fcdr (intail
), valtail
= XCDR (valtail
))
218 Lisp_Object presflag
, carelt
;
220 /* If it is (if X Y), look at Y. */
222 && EQ (Fnthcdr (make_number (3), elt
), Qnil
))
223 elt
= Fnth (make_number (2), elt
);
224 /* If it is (when ... Y), look at Y. */
225 else if (EQ (carelt
, Qwhen
))
227 while (CONSP (XCDR (elt
)))
232 /* If the function call we're looking at
233 is a special preserved one, copy the
234 whole expression for this argument. */
237 presflag
= Fmemq (Fcar (elt
), preserved_fns
);
238 if (!NILP (presflag
))
239 Fsetcar (valtail
, Fcar (intail
));
247 DEFUN ("call-interactively", Fcall_interactively
, Scall_interactively
, 1, 3, 0,
248 doc
: /* Call FUNCTION, reading args according to its interactive calling specs.
249 Return the value FUNCTION returns.
250 The function contains a specification of how to do the argument reading.
251 In the case of user-defined functions, this is specified by placing a call
252 to the function `interactive' at the top level of the function body.
255 Optional second arg RECORD-FLAG non-nil
256 means unconditionally put this command in the command-history.
257 Otherwise, this is done only if an arg is read using the minibuffer.
258 Optional third arg KEYS, if given, specifies the sequence of events to
259 supply if the command inquires which events were used to invoke it.
260 If KEYS is omitted or nil, the return value of `this-command-keys' is used. */)
261 (function
, record_flag
, keys
)
262 Lisp_Object function
, record_flag
, keys
;
264 Lisp_Object
*args
, *visargs
;
265 unsigned char **argstrings
;
269 Lisp_Object filter_specs
;
272 int speccount
= SPECPDL_INDEX ();
274 /* The index of the next element of this_command_keys to examine for
275 the 'e' interactive code. */
278 Lisp_Object prefix_arg
;
279 unsigned char *string
;
282 /* If varies[i] > 0, the i'th argument shouldn't just have its value
283 in this call quoted in the command history. It should be
284 recorded as a call to the function named callint_argfuns[varies[i]]. */
291 int arg_from_tty
= 0;
292 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
294 int record_then_fail
= 0;
296 Lisp_Object save_this_command
, save_last_command
;
297 Lisp_Object save_this_original_command
, save_real_this_command
;
299 save_this_command
= Vthis_command
;
300 save_this_original_command
= Vthis_original_command
;
301 save_real_this_command
= real_this_command
;
302 save_last_command
= current_kboard
->Vlast_command
;
305 keys
= this_command_keys
, key_count
= this_command_key_count
;
309 key_count
= XVECTOR (keys
)->size
;
312 /* Save this now, since use of minibuffer will clobber it. */
313 prefix_arg
= Vcurrent_prefix_arg
;
317 if (SYMBOLP (function
))
318 enable
= Fget (function
, Qenable_recursive_minibuffers
);
322 fun
= indirect_function (function
);
326 /* The idea of FILTER_SPECS is to provide away to
327 specify how to represent the arguments in command history.
328 The feature is not fully implemented. */
331 /* Decode the kind of function. Either handle it and return,
332 or go to `lose' if not interactive, or go to `retry'
333 to specify a different function, or set either STRING or SPECS. */
337 string
= (unsigned char *) XSUBR (fun
)->prompt
;
341 function
= wrong_type_argument (Qcommandp
, function
);
345 else if (COMPILEDP (fun
))
347 if ((XVECTOR (fun
)->size
& PSEUDOVECTOR_SIZE_MASK
) <= COMPILED_INTERACTIVE
)
349 specs
= XVECTOR (fun
)->contents
[COMPILED_INTERACTIVE
];
354 GCPRO2 (function
, prefix_arg
);
355 form
= Finteractive_form (function
);
358 specs
= filter_specs
= Fcar (XCDR (form
));
363 /* If either SPECS or STRING is set to a string, use it. */
366 /* Make a copy of string so that if a GC relocates specs,
367 `string' will still be valid. */
368 string
= (unsigned char *) alloca (SBYTES (specs
) + 1);
369 bcopy (SDATA (specs
), string
,
372 else if (string
== 0)
375 i
= num_input_events
;
377 /* Compute the arg values using the user's expression. */
378 GCPRO2 (input
, filter_specs
);
379 specs
= Feval (specs
);
381 if (i
!= num_input_events
|| !NILP (record_flag
))
383 /* We should record this command on the command history. */
385 /* Make a copy of the list of values, for the command history,
386 and turn them into things we can eval. */
387 values
= quotify_args (Fcopy_sequence (specs
));
388 fix_command (input
, values
);
390 = Fcons (Fcons (function
, values
), Vcommand_history
);
392 /* Don't keep command history around forever. */
393 if (INTEGERP (Vhistory_length
) && XINT (Vhistory_length
) > 0)
395 teml
= Fnthcdr (Vhistory_length
, Vcommand_history
);
397 XSETCDR (teml
, Qnil
);
401 Vthis_command
= save_this_command
;
402 Vthis_original_command
= save_this_original_command
;
403 real_this_command
= save_real_this_command
;
404 current_kboard
->Vlast_command
= save_last_command
;
406 single_kboard_state ();
407 return apply1 (function
, specs
);
410 /* Here if function specifies a string to control parsing the defaults */
412 /* Set next_event to point to the first event with parameters. */
413 for (next_event
= 0; next_event
< key_count
; next_event
++)
414 if (EVENT_HAS_PARAMETERS (XVECTOR (keys
)->contents
[next_event
]))
417 /* Handle special starting chars `*' and `@'. Also `-'. */
418 /* Note that `+' is reserved for user extensions. */
422 error ("`+' is not used in `interactive' for ordinary commands");
423 else if (*string
== '*')
426 if (!NILP (current_buffer
->read_only
))
428 if (!NILP (record_flag
))
430 unsigned char *p
= string
;
433 if (! (*p
== 'r' || *p
== 'p' || *p
== 'P'
435 Fbarf_if_buffer_read_only ();
438 record_then_fail
= 1;
441 Fbarf_if_buffer_read_only ();
444 /* Ignore this for semi-compatibility with Lucid. */
445 else if (*string
== '-')
447 else if (*string
== '@')
451 event
= (next_event
< key_count
452 ? XVECTOR (keys
)->contents
[next_event
]
454 if (EVENT_HAS_PARAMETERS (event
)
455 && (event
= XCDR (event
), CONSP (event
))
456 && (event
= XCAR (event
), CONSP (event
))
457 && (event
= XCAR (event
), WINDOWP (event
)))
459 if (MINI_WINDOW_P (XWINDOW (event
))
460 && ! (minibuf_level
> 0 && EQ (event
, minibuf_window
)))
461 error ("Attempt to select inactive minibuffer window");
463 /* If the current buffer wants to clean up, let it. */
464 if (!NILP (Vmouse_leave_buffer_hook
))
465 call1 (Vrun_hooks
, Qmouse_leave_buffer_hook
);
467 Fselect_window (event
, Qnil
);
474 /* Count the number of arguments the interactive spec would have
475 us give to the function. */
477 for (j
= 0; *tem
; j
++)
479 /* 'r' specifications ("point and mark as 2 numeric args")
480 produce *two* arguments. */
481 if (*tem
== 'r') j
++;
482 tem
= (unsigned char *) index (tem
, '\n');
486 tem
= (unsigned char *) "";
490 args
= (Lisp_Object
*) alloca ((count
+ 1) * sizeof (Lisp_Object
));
491 visargs
= (Lisp_Object
*) alloca ((count
+ 1) * sizeof (Lisp_Object
));
492 argstrings
= (unsigned char **) alloca ((count
+ 1) * sizeof (char *));
493 varies
= (int *) alloca ((count
+ 1) * sizeof (int));
495 for (i
= 0; i
< (count
+ 1); i
++)
502 GCPRO4 (prefix_arg
, function
, *args
, *visargs
);
503 gcpro3
.nvars
= (count
+ 1);
504 gcpro4
.nvars
= (count
+ 1);
507 specbind (Qenable_recursive_minibuffers
, Qt
);
510 for (i
= 1; *tem
; i
++)
512 strncpy (prompt1
, tem
+ 1, sizeof prompt1
- 1);
513 prompt1
[sizeof prompt1
- 1] = 0;
514 tem1
= (char *) index (prompt1
, '\n');
516 /* Fill argstrings with a vector of C strings
517 corresponding to the Lisp strings in visargs. */
518 for (j
= 1; j
< i
; j
++)
520 = (EQ (visargs
[j
], Qnil
)
521 ? (unsigned char *) ""
522 : SDATA (visargs
[j
]));
524 /* Process the format-string in prompt1, putting the output
525 into callint_message. Make callint_message bigger if necessary.
526 We don't use a buffer on the stack, because the contents
527 need to stay stable for a while. */
530 int nchars
= doprnt (callint_message
, callint_message_size
,
532 j
- 1, (char **) argstrings
+ 1);
533 if (nchars
< callint_message_size
- 1)
535 callint_message_size
*= 2;
537 = (char *) xrealloc (callint_message
, callint_message_size
);
542 case 'a': /* Symbol defined as a function */
543 visargs
[i
] = Fcompleting_read (build_string (callint_message
),
544 Vobarray
, Qfboundp
, Qt
,
545 Qnil
, Qnil
, Qnil
, Qnil
);
546 /* Passing args[i] directly stimulates compiler bug */
548 args
[i
] = Fintern (teml
, Qnil
);
551 case 'b': /* Name of existing buffer */
552 args
[i
] = Fcurrent_buffer ();
553 if (EQ (selected_window
, minibuf_window
))
554 args
[i
] = Fother_buffer (args
[i
], Qnil
, Qnil
);
555 args
[i
] = Fread_buffer (build_string (callint_message
), args
[i
], Qt
);
558 case 'B': /* Name of buffer, possibly nonexistent */
559 args
[i
] = Fread_buffer (build_string (callint_message
),
560 Fother_buffer (Fcurrent_buffer (), Qnil
, Qnil
),
564 case 'c': /* Character */
565 args
[i
] = Fread_char (build_string (callint_message
), Qnil
);
566 message1_nolog ((char *) 0);
567 /* Passing args[i] directly stimulates compiler bug */
569 visargs
[i
] = Fchar_to_string (teml
);
572 case 'C': /* Command: symbol with interactive function */
573 visargs
[i
] = Fcompleting_read (build_string (callint_message
),
575 Qt
, Qnil
, Qnil
, Qnil
, Qnil
);
576 /* Passing args[i] directly stimulates compiler bug */
578 args
[i
] = Fintern (teml
, Qnil
);
581 case 'd': /* Value of point. Does not do I/O. */
582 set_marker_both (point_marker
, Qnil
, PT
, PT_BYTE
);
583 args
[i
] = point_marker
;
584 /* visargs[i] = Qnil; */
588 case 'D': /* Directory name. */
589 args
[i
] = Fread_file_name (build_string (callint_message
), Qnil
,
590 current_buffer
->directory
, Qlambda
, Qnil
,
594 case 'f': /* Existing file name. */
595 args
[i
] = Fread_file_name (build_string (callint_message
),
596 Qnil
, Qnil
, Qlambda
, Qnil
, Qnil
);
599 case 'F': /* Possibly nonexistent file name. */
600 args
[i
] = Fread_file_name (build_string (callint_message
),
601 Qnil
, Qnil
, Qnil
, Qnil
, Qnil
);
604 case 'i': /* Ignore an argument -- Does not do I/O */
608 case 'k': /* Key sequence. */
610 int speccount1
= SPECPDL_INDEX ();
611 specbind (Qcursor_in_echo_area
, Qt
);
612 args
[i
] = Fread_key_sequence (build_string (callint_message
),
613 Qnil
, Qnil
, Qnil
, Qnil
);
614 unbind_to (speccount1
, Qnil
);
616 visargs
[i
] = Fkey_description (teml
, Qnil
);
618 /* If the key sequence ends with a down-event,
619 discard the following up-event. */
620 teml
= Faref (args
[i
], make_number (XINT (Flength (args
[i
])) - 1));
627 teml
= Fget (teml
, intern ("event-symbol-elements"));
628 /* Ignore first element, which is the base key. */
629 tem2
= Fmemq (intern ("down"), Fcdr (teml
));
631 Fread_event (Qnil
, Qnil
);
636 case 'K': /* Key sequence to be defined. */
638 int speccount1
= SPECPDL_INDEX ();
639 specbind (Qcursor_in_echo_area
, Qt
);
640 args
[i
] = Fread_key_sequence (build_string (callint_message
),
641 Qnil
, Qt
, Qnil
, Qnil
);
643 visargs
[i
] = Fkey_description (teml
, Qnil
);
644 unbind_to (speccount1
, Qnil
);
646 /* If the key sequence ends with a down-event,
647 discard the following up-event. */
648 teml
= Faref (args
[i
], make_number (XINT (Flength (args
[i
])) - 1));
655 teml
= Fget (teml
, intern ("event-symbol-elements"));
656 /* Ignore first element, which is the base key. */
657 tem2
= Fmemq (intern ("down"), Fcdr (teml
));
659 Fread_event (Qnil
, Qnil
);
664 case 'e': /* The invoking event. */
665 if (next_event
>= key_count
)
666 error ("%s must be bound to an event with parameters",
668 ? (char *) SDATA (SYMBOL_NAME (function
))
670 args
[i
] = XVECTOR (keys
)->contents
[next_event
++];
673 /* Find the next parameterized event. */
674 while (next_event
< key_count
675 && ! (EVENT_HAS_PARAMETERS
676 (XVECTOR (keys
)->contents
[next_event
])))
681 case 'm': /* Value of mark. Does not do I/O. */
683 /* visargs[i] = Qnil; */
684 args
[i
] = current_buffer
->mark
;
688 case 'M': /* String read via minibuffer with
689 inheriting the current input method. */
690 args
[i
] = Fread_string (build_string (callint_message
),
691 Qnil
, Qnil
, Qnil
, Qt
);
694 case 'N': /* Prefix arg, else number from minibuffer */
695 if (!NILP (prefix_arg
))
696 goto have_prefix_arg
;
697 case 'n': /* Read number from minibuffer. */
705 message ("Please enter a number.");
706 sit_for (1, 0, 0, 0, 0);
710 tem
= Fread_from_minibuffer (build_string (callint_message
),
711 Qnil
, Qnil
, Qnil
, Qnil
, Qnil
,
713 if (! STRINGP (tem
) || SCHARS (tem
) == 0)
716 args
[i
] = Fread (tem
);
718 while (! NUMBERP (args
[i
]));
720 visargs
[i
] = last_minibuf_string
;
723 case 'P': /* Prefix arg in raw form. Does no I/O. */
724 args
[i
] = prefix_arg
;
725 /* visargs[i] = Qnil; */
729 case 'p': /* Prefix arg converted to number. No I/O. */
731 args
[i
] = Fprefix_numeric_value (prefix_arg
);
732 /* visargs[i] = Qnil; */
736 case 'r': /* Region, point and mark as 2 args. */
738 set_marker_both (point_marker
, Qnil
, PT
, PT_BYTE
);
739 /* visargs[i+1] = Qnil; */
740 foo
= marker_position (current_buffer
->mark
);
741 /* visargs[i] = Qnil; */
742 args
[i
] = PT
< foo
? point_marker
: current_buffer
->mark
;
744 args
[++i
] = PT
> foo
? point_marker
: current_buffer
->mark
;
748 case 's': /* String read via minibuffer without
749 inheriting the current input method. */
750 args
[i
] = Fread_string (build_string (callint_message
),
751 Qnil
, Qnil
, Qnil
, Qnil
);
754 case 'S': /* Any symbol. */
755 visargs
[i
] = Fread_string (build_string (callint_message
),
756 Qnil
, Qnil
, Qnil
, Qnil
);
757 /* Passing args[i] directly stimulates compiler bug */
759 args
[i
] = Fintern (teml
, Qnil
);
762 case 'v': /* Variable name: symbol that is
764 args
[i
] = Fread_variable (build_string (callint_message
), Qnil
);
765 visargs
[i
] = last_minibuf_string
;
768 case 'x': /* Lisp expression read but not evaluated */
769 args
[i
] = Fread_minibuffer (build_string (callint_message
), Qnil
);
770 visargs
[i
] = last_minibuf_string
;
773 case 'X': /* Lisp expression read and evaluated */
774 args
[i
] = Feval_minibuffer (build_string (callint_message
), Qnil
);
775 visargs
[i
] = last_minibuf_string
;
778 case 'Z': /* Coding-system symbol, or ignore the
779 argument if no prefix */
780 if (NILP (prefix_arg
))
788 = Fread_non_nil_coding_system (build_string (callint_message
));
789 visargs
[i
] = last_minibuf_string
;
793 case 'z': /* Coding-system symbol or nil */
794 args
[i
] = Fread_coding_system (build_string (callint_message
), Qnil
);
795 visargs
[i
] = last_minibuf_string
;
798 /* We have a case for `+' so we get an error
799 if anyone tries to define one here. */
802 error ("Invalid control letter `%c' (%03o) in interactive calling string",
809 if (NILP (visargs
[i
]) && STRINGP (args
[i
]))
810 visargs
[i
] = args
[i
];
812 tem
= (unsigned char *) index (tem
, '\n');
814 else tem
= (unsigned char *) "";
816 unbind_to (speccount
, Qnil
);
822 if (arg_from_tty
|| !NILP (record_flag
))
824 visargs
[0] = function
;
825 for (i
= 1; i
< count
+ 1; i
++)
828 visargs
[i
] = Fcons (intern (callint_argfuns
[varies
[i
]]), Qnil
);
830 visargs
[i
] = quotify_arg (args
[i
]);
832 Vcommand_history
= Fcons (Flist (count
+ 1, visargs
),
834 /* Don't keep command history around forever. */
835 if (INTEGERP (Vhistory_length
) && XINT (Vhistory_length
) > 0)
837 teml
= Fnthcdr (Vhistory_length
, Vcommand_history
);
839 XSETCDR (teml
, Qnil
);
843 /* If we used a marker to hold point, mark, or an end of the region,
844 temporarily, convert it to an integer now. */
845 for (i
= 1; i
<= count
; i
++)
846 if (varies
[i
] >= 1 && varies
[i
] <= 4)
847 XSETINT (args
[i
], marker_position (args
[i
]));
849 if (record_then_fail
)
850 Fbarf_if_buffer_read_only ();
852 Vthis_command
= save_this_command
;
853 Vthis_original_command
= save_this_original_command
;
854 real_this_command
= save_real_this_command
;
855 current_kboard
->Vlast_command
= save_last_command
;
857 single_kboard_state ();
861 specbind (Qcommand_debug_status
, Qnil
);
863 val
= Ffuncall (count
+ 1, args
);
865 return unbind_to (speccount
, val
);
869 DEFUN ("prefix-numeric-value", Fprefix_numeric_value
, Sprefix_numeric_value
,
871 doc
: /* Return numeric meaning of raw prefix argument RAW.
872 A raw prefix argument is what you get from `(interactive "P")'.
873 Its numeric meaning is what you would get from `(interactive "p")'. */)
880 XSETFASTINT (val
, 1);
881 else if (EQ (raw
, Qminus
))
883 else if (CONSP (raw
) && INTEGERP (XCAR (raw
)))
884 XSETINT (val
, XINT (XCAR (raw
)));
885 else if (INTEGERP (raw
))
888 XSETFASTINT (val
, 1);
896 point_marker
= Fmake_marker ();
897 staticpro (&point_marker
);
899 preserved_fns
= Fcons (intern ("region-beginning"),
900 Fcons (intern ("region-end"),
901 Fcons (intern ("point"),
902 Fcons (intern ("mark"), Qnil
))));
903 staticpro (&preserved_fns
);
905 Qlist
= intern ("list");
907 Qlet
= intern ("let");
911 Qwhen
= intern ("when");
913 Qletx
= intern ("let*");
915 Qsave_excursion
= intern ("save-excursion");
916 staticpro (&Qsave_excursion
);
917 Qprogn
= intern ("progn");
920 Qminus
= intern ("-");
923 Qplus
= intern ("+");
926 Qcall_interactively
= intern ("call-interactively");
927 staticpro (&Qcall_interactively
);
929 Qcommand_debug_status
= intern ("command-debug-status");
930 staticpro (&Qcommand_debug_status
);
932 Qenable_recursive_minibuffers
= intern ("enable-recursive-minibuffers");
933 staticpro (&Qenable_recursive_minibuffers
);
935 Qmouse_leave_buffer_hook
= intern ("mouse-leave-buffer-hook");
936 staticpro (&Qmouse_leave_buffer_hook
);
938 callint_message_size
= 100;
939 callint_message
= (char *) xmalloc (callint_message_size
);
942 DEFVAR_KBOARD ("prefix-arg", Vprefix_arg
,
943 doc
: /* The value of the prefix argument for the next editing command.
944 It may be a number, or the symbol `-' for just a minus sign as arg,
945 or a list whose car is a number for just one or more C-u's
946 or nil if no argument has been specified.
948 You cannot examine this variable to find the argument for this command
949 since it has been set to nil by the time you can look.
950 Instead, you should use the variable `current-prefix-arg', although
951 normally commands can get this prefix argument with (interactive "P"). */);
953 DEFVAR_KBOARD ("last-prefix-arg", Vlast_prefix_arg
,
954 doc
: /* The value of the prefix argument for the previous editing command.
955 See `prefix-arg' for the meaning of the value. */);
957 DEFVAR_LISP ("current-prefix-arg", &Vcurrent_prefix_arg
,
958 doc
: /* The value of the prefix argument for this editing command.
959 It may be a number, or the symbol `-' for just a minus sign as arg,
960 or a list whose car is a number for just one or more C-u's
961 or nil if no argument has been specified.
962 This is what `(interactive \"P\")' returns. */);
963 Vcurrent_prefix_arg
= Qnil
;
965 DEFVAR_LISP ("command-history", &Vcommand_history
,
966 doc
: /* List of recent commands that read arguments from terminal.
967 Each command is represented as a form to evaluate. */);
968 Vcommand_history
= Qnil
;
970 DEFVAR_LISP ("command-debug-status", &Vcommand_debug_status
,
971 doc
: /* Debugging status of current interactive command.
972 Bound each time `call-interactively' is called;
973 may be set by the debugger as a reminder for itself. */);
974 Vcommand_debug_status
= Qnil
;
976 DEFVAR_LISP ("mark-even-if-inactive", &Vmark_even_if_inactive
,
977 doc
: /* *Non-nil means you can use the mark even when inactive.
978 This option makes a difference in Transient Mark mode.
979 When the option is non-nil, deactivation of the mark
980 turns off region highlighting, but commands that use the mark
981 behave as if the mark were still active. */);
982 Vmark_even_if_inactive
= Qnil
;
984 DEFVAR_LISP ("mouse-leave-buffer-hook", &Vmouse_leave_buffer_hook
,
985 doc
: /* Hook to run when about to switch windows with a mouse command.
986 Its purpose is to give temporary modes such as Isearch mode
987 a way to turn themselves off when a mouse command switches windows. */);
988 Vmouse_leave_buffer_hook
= Qnil
;
990 defsubr (&Sinteractive
);
991 defsubr (&Scall_interactively
);
992 defsubr (&Sprefix_numeric_value
);
995 /* arch-tag: a3a7cad7-bcac-42ce-916e-1bd2546ebf37
996 (do not change this comment) */