1 /* Call a Lisp function interactively.
2 Copyright (C) 1985-1986, 1993-1995, 1997, 2000-2011
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 3 of the License, or
10 (at your option) any later version.
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. If not, see <http://www.gnu.org/licenses/>. */
31 Lisp_Object Qminus
, Qplus
;
32 Lisp_Object Qcall_interactively
;
33 Lisp_Object Qcommand_debug_status
;
34 Lisp_Object Qenable_recursive_minibuffers
;
36 Lisp_Object Qhandle_shift_selection
;
38 Lisp_Object Qmouse_leave_buffer_hook
;
40 Lisp_Object Qlist
, Qlet
, Qletx
, Qsave_excursion
, Qprogn
, Qif
, Qwhen
;
41 static Lisp_Object preserved_fns
;
43 /* Marker used within call-interactively to refer to point. */
44 static Lisp_Object point_marker
;
46 /* String for the prompt text used in Fcall_interactively. */
47 static Lisp_Object callint_message
;
50 DEFUN ("interactive", Finteractive
, Sinteractive
, 0, UNEVALLED
, 0,
51 doc
: /* Specify a way of parsing arguments for interactive use of a function.
53 (defun foo (arg buf) "Doc string" (interactive "P\\nbbuffer: ") .... )
54 to make ARG be the raw prefix argument, and set BUF to an existing buffer,
55 when `foo' is called as a command.
56 The "call" to `interactive' is actually a declaration rather than a function;
57 it tells `call-interactively' how to read arguments
58 to pass to the function.
59 When actually called, `interactive' just returns nil.
61 Usually the argument of `interactive' is a string containing a code letter
62 followed optionally by a prompt. (Some code letters do not use I/O to get
63 the argument and do not use prompts.) To get several arguments, concatenate
64 the individual strings, separating them by newline characters.
65 Prompts are passed to format, and may use % escapes to print the
66 arguments that have already been read.
67 If the argument is not a string, it is evaluated to get a list of
68 arguments to pass to the function.
69 Just `(interactive)' means pass no args when calling interactively.
71 Code letters available are:
72 a -- Function name: symbol with a function definition.
73 b -- Name of existing buffer.
74 B -- Name of buffer, possibly nonexistent.
75 c -- Character (no input method is used).
76 C -- Command name: symbol with interactive function definition.
77 d -- Value of point as number. Does not do I/O.
79 e -- Parametrized event (i.e., one that's a list) that invoked this command.
80 If used more than once, the Nth `e' returns the Nth parameterized event.
81 This skips events that are integers or symbols.
82 f -- Existing file name.
83 F -- Possibly nonexistent file name.
84 G -- Possibly nonexistent file name, defaulting to just directory name.
85 i -- Ignored, i.e. always nil. Does not do I/O.
86 k -- Key sequence (downcase the last event if needed to get a definition).
87 K -- Key sequence to be redefined (do not downcase the last event).
88 m -- Value of mark as number. Does not do I/O.
89 M -- Any string. Inherits the current input method.
90 n -- Number read using minibuffer.
91 N -- Numeric prefix arg, or if none, do like code `n'.
92 p -- Prefix arg converted to number. Does not do I/O.
93 P -- Prefix arg in raw form. Does not do I/O.
94 r -- Region: point and mark as 2 numeric args, smallest first. Does no I/O.
95 s -- Any string. Does not inherit the current input method.
97 U -- Mouse up event discarded by a previous k or K argument.
98 v -- Variable name: symbol that is user-variable-p.
99 x -- Lisp expression read but not evaluated.
100 X -- Lisp expression read and evaluated.
102 Z -- Coding system, nil if no prefix arg.
104 In addition, if the string begins with `*', an error is signaled if
105 the buffer is read-only.
106 If the string begins with `@', Emacs searches the key sequence which
107 invoked the command for its first mouse click (or any other event
108 which specifies a window).
109 If the string begins with `^' and `shift-select-mode' is non-nil,
110 Emacs first calls the function `handle-shift-selection'.
111 You may use `@', `*', and `^' together. They are processed in the
112 order that they appear, before reading any arguments.
113 usage: (interactive &optional ARGS) */)
119 /* Quotify EXP: if EXP is constant, return it.
120 If EXP is not constant, return (quote EXP). */
122 quotify_arg (register Lisp_Object exp
)
126 && !NILP (exp
) && !EQ (exp
, Qt
)))
127 return Fcons (Qquote
, Fcons (exp
, Qnil
));
132 /* Modify EXP by quotifying each element (except the first). */
134 quotify_args (Lisp_Object exp
)
136 register Lisp_Object tail
;
138 for (tail
= exp
; CONSP (tail
); tail
= next
)
141 XSETCAR (tail
, quotify_arg (XCAR (tail
)));
146 static const char *callint_argfuns
[]
147 = {"", "point", "mark", "region-beginning", "region-end"};
150 check_mark (int for_region
)
153 tem
= Fmarker_buffer (BVAR (current_buffer
, mark
));
154 if (NILP (tem
) || (XBUFFER (tem
) != current_buffer
))
155 error (for_region
? "The mark is not set now, so there is no region"
156 : "The mark is not set now");
157 if (!NILP (Vtransient_mark_mode
) && NILP (Vmark_even_if_inactive
)
158 && NILP (BVAR (current_buffer
, mark_active
)))
159 xsignal0 (Qmark_inactive
);
162 /* If the list of args INPUT was produced with an explicit call to
163 `list', look for elements that were computed with
164 (region-beginning) or (region-end), and put those expressions into
165 VALUES instead of the present values.
167 This function doesn't return a value because it modifies elements
168 of VALUES to do its job. */
171 fix_command (Lisp_Object input
, Lisp_Object values
)
173 /* FIXME: Instead of this ugly hack, we should provide a way for an
174 interactive spec to return an expression/function that will re-build the
175 args without user intervention. */
181 /* Skip through certain special forms. */
182 while (EQ (car
, Qlet
) || EQ (car
, Qletx
)
183 || EQ (car
, Qsave_excursion
)
186 while (CONSP (XCDR (input
)))
187 input
= XCDR (input
);
188 input
= XCAR (input
);
195 Lisp_Object intail
, valtail
;
196 for (intail
= Fcdr (input
), valtail
= values
;
198 intail
= Fcdr (intail
), valtail
= XCDR (valtail
))
204 Lisp_Object presflag
, carelt
;
206 /* If it is (if X Y), look at Y. */
208 && EQ (Fnthcdr (make_number (3), elt
), Qnil
))
209 elt
= Fnth (make_number (2), elt
);
210 /* If it is (when ... Y), look at Y. */
211 else if (EQ (carelt
, Qwhen
))
213 while (CONSP (XCDR (elt
)))
218 /* If the function call we're looking at
219 is a special preserved one, copy the
220 whole expression for this argument. */
223 presflag
= Fmemq (Fcar (elt
), preserved_fns
);
224 if (!NILP (presflag
))
225 Fsetcar (valtail
, Fcar (intail
));
233 DEFUN ("call-interactively", Fcall_interactively
, Scall_interactively
, 1, 3, 0,
234 doc
: /* Call FUNCTION, reading args according to its interactive calling specs.
235 Return the value FUNCTION returns.
236 The function contains a specification of how to do the argument reading.
237 In the case of user-defined functions, this is specified by placing a call
238 to the function `interactive' at the top level of the function body.
241 Optional second arg RECORD-FLAG non-nil
242 means unconditionally put this command in the command-history.
243 Otherwise, this is done only if an arg is read using the minibuffer.
245 Optional third arg KEYS, if given, specifies the sequence of events to
246 supply, as a vector, if the command inquires which events were used to
247 invoke it. If KEYS is omitted or nil, the return value of
248 `this-command-keys-vector' is used. */)
249 (Lisp_Object function
, Lisp_Object record_flag
, Lisp_Object keys
)
251 Lisp_Object
*args
, *visargs
;
253 Lisp_Object filter_specs
;
255 Lisp_Object up_event
;
257 int speccount
= SPECPDL_INDEX ();
259 /* The index of the next element of this_command_keys to examine for
260 the 'e' interactive code. */
263 Lisp_Object prefix_arg
;
267 /* If varies[i] > 0, the i'th argument shouldn't just have its value
268 in this call quoted in the command history. It should be
269 recorded as a call to the function named callint_argfuns[varies[i]]. */
277 int arg_from_tty
= 0;
278 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
;
280 int record_then_fail
= 0;
282 Lisp_Object save_this_command
, save_last_command
;
283 Lisp_Object save_this_original_command
, save_real_this_command
;
285 save_this_command
= Vthis_command
;
286 save_this_original_command
= Vthis_original_command
;
287 save_real_this_command
= real_this_command
;
288 save_last_command
= KVAR (current_kboard
, Vlast_command
);
291 keys
= this_command_keys
, key_count
= this_command_key_count
;
295 key_count
= XVECTOR (keys
)->size
;
298 /* Save this now, since use of minibuffer will clobber it. */
299 prefix_arg
= Vcurrent_prefix_arg
;
301 if (SYMBOLP (function
))
302 enable
= Fget (function
, Qenable_recursive_minibuffers
);
308 /* The idea of FILTER_SPECS is to provide away to
309 specify how to represent the arguments in command history.
310 The feature is not fully implemented. */
313 /* If k or K discard an up-event, save it here so it can be retrieved with U */
316 /* Set SPECS to the interactive form, or barf if not interactive. */
319 GCPRO2 (function
, prefix_arg
);
320 form
= Finteractive_form (function
);
323 specs
= filter_specs
= Fcar (XCDR (form
));
325 wrong_type_argument (Qcommandp
, function
);
328 /* If SPECS is set to a string, use it as an interactive prompt. */
331 /* Make a copy of string so that if a GC relocates specs,
332 `string' will still be valid. */
333 string
= (char *) alloca (SBYTES (specs
) + 1);
334 memcpy (string
, SSDATA (specs
), SBYTES (specs
) + 1);
339 Lisp_Object funval
= Findirect_function (function
, Qt
);
340 i
= num_input_events
;
342 /* Compute the arg values using the user's expression. */
343 GCPRO2 (input
, filter_specs
);
344 specs
= Feval (specs
,
345 CONSP (funval
) && EQ (Qclosure
, XCAR (funval
))
348 if (i
!= num_input_events
|| !NILP (record_flag
))
350 /* We should record this command on the command history. */
352 Lisp_Object this_cmd
;
353 /* Make a copy of the list of values, for the command history,
354 and turn them into things we can eval. */
355 values
= quotify_args (Fcopy_sequence (specs
));
356 fix_command (input
, values
);
357 this_cmd
= Fcons (function
, values
);
358 if (history_delete_duplicates
)
359 Vcommand_history
= Fdelete (this_cmd
, Vcommand_history
);
360 Vcommand_history
= Fcons (this_cmd
, Vcommand_history
);
362 /* Don't keep command history around forever. */
363 if (INTEGERP (Vhistory_length
) && XINT (Vhistory_length
) > 0)
365 teml
= Fnthcdr (Vhistory_length
, Vcommand_history
);
367 XSETCDR (teml
, Qnil
);
371 Vthis_command
= save_this_command
;
372 Vthis_original_command
= save_this_original_command
;
373 real_this_command
= save_real_this_command
;
374 KVAR (current_kboard
, Vlast_command
) = save_last_command
;
376 temporarily_switch_to_single_kboard (NULL
);
377 return unbind_to (speccount
, apply1 (function
, specs
));
380 /* Here if function specifies a string to control parsing the defaults */
382 /* Set next_event to point to the first event with parameters. */
383 for (next_event
= 0; next_event
< key_count
; next_event
++)
384 if (EVENT_HAS_PARAMETERS (AREF (keys
, next_event
)))
387 /* Handle special starting chars `*' and `@'. Also `-'. */
388 /* Note that `+' is reserved for user extensions. */
392 error ("`+' is not used in `interactive' for ordinary commands");
393 else if (*string
== '*')
396 if (!NILP (BVAR (current_buffer
, read_only
)))
398 if (!NILP (record_flag
))
403 if (! (*p
== 'r' || *p
== 'p' || *p
== 'P'
405 Fbarf_if_buffer_read_only ();
408 record_then_fail
= 1;
411 Fbarf_if_buffer_read_only ();
414 /* Ignore this for semi-compatibility with Lucid. */
415 else if (*string
== '-')
417 else if (*string
== '@')
419 Lisp_Object event
, w
;
421 event
= (next_event
< key_count
422 ? AREF (keys
, next_event
)
424 if (EVENT_HAS_PARAMETERS (event
)
425 && (w
= XCDR (event
), CONSP (w
))
426 && (w
= XCAR (w
), CONSP (w
))
427 && (w
= XCAR (w
), WINDOWP (w
)))
429 if (MINI_WINDOW_P (XWINDOW (w
))
430 && ! (minibuf_level
> 0 && EQ (w
, minibuf_window
)))
431 error ("Attempt to select inactive minibuffer window");
433 /* If the current buffer wants to clean up, let it. */
434 Frun_hooks (1, &Qmouse_leave_buffer_hook
);
436 Fselect_window (w
, Qnil
);
440 else if (*string
== '^')
442 call0 (Qhandle_shift_selection
);
448 /* Count the number of arguments, which is one plus the number of arguments
449 the interactive spec would have us give to the function. */
451 for (nargs
= 1; *tem
; )
453 /* 'r' specifications ("point and mark as 2 numeric args")
454 produce *two* arguments. */
459 tem
= strchr (tem
, '\n');
466 args
= (Lisp_Object
*) alloca (nargs
* sizeof (Lisp_Object
));
467 visargs
= (Lisp_Object
*) alloca (nargs
* sizeof (Lisp_Object
));
468 varies
= (int *) alloca (nargs
* sizeof (int));
470 for (i
= 0; i
< nargs
; i
++)
477 GCPRO5 (prefix_arg
, function
, *args
, *visargs
, up_event
);
478 gcpro3
.nvars
= nargs
;
479 gcpro4
.nvars
= nargs
;
482 specbind (Qenable_recursive_minibuffers
, Qt
);
485 for (i
= 1; *tem
; i
++)
487 strncpy (prompt1
, tem
+ 1, sizeof prompt1
- 1);
488 prompt1
[sizeof prompt1
- 1] = 0;
489 tem1
= strchr (prompt1
, '\n');
492 visargs
[0] = build_string (prompt1
);
493 if (strchr (prompt1
, '%'))
494 callint_message
= Fformat (i
, visargs
);
496 callint_message
= visargs
[0];
500 case 'a': /* Symbol defined as a function */
501 visargs
[i
] = Fcompleting_read (callint_message
,
502 Vobarray
, Qfboundp
, Qt
,
503 Qnil
, Qnil
, Qnil
, Qnil
);
504 /* Passing args[i] directly stimulates compiler bug */
506 args
[i
] = Fintern (teml
, Qnil
);
509 case 'b': /* Name of existing buffer */
510 args
[i
] = Fcurrent_buffer ();
511 if (EQ (selected_window
, minibuf_window
))
512 args
[i
] = Fother_buffer (args
[i
], Qnil
, Qnil
);
513 args
[i
] = Fread_buffer (callint_message
, args
[i
], Qt
);
516 case 'B': /* Name of buffer, possibly nonexistent */
517 args
[i
] = Fread_buffer (callint_message
,
518 Fother_buffer (Fcurrent_buffer (), Qnil
, Qnil
),
522 case 'c': /* Character */
523 /* Prompt in `minibuffer-prompt' face. */
524 Fput_text_property (make_number (0),
525 make_number (SCHARS (callint_message
)),
526 Qface
, Qminibuffer_prompt
, callint_message
);
527 args
[i
] = Fread_char (callint_message
, Qnil
, Qnil
);
528 message1_nolog ((char *) 0);
529 /* Passing args[i] directly stimulates compiler bug */
531 visargs
[i
] = Fchar_to_string (teml
);
534 case 'C': /* Command: symbol with interactive function */
535 visargs
[i
] = Fcompleting_read (callint_message
,
537 Qt
, Qnil
, Qnil
, Qnil
, Qnil
);
538 /* Passing args[i] directly stimulates compiler bug */
540 args
[i
] = Fintern (teml
, Qnil
);
543 case 'd': /* Value of point. Does not do I/O. */
544 set_marker_both (point_marker
, Qnil
, PT
, PT_BYTE
);
545 args
[i
] = point_marker
;
546 /* visargs[i] = Qnil; */
550 case 'D': /* Directory name. */
551 args
[i
] = Fread_file_name (callint_message
, Qnil
,
552 BVAR (current_buffer
, directory
), Qlambda
, Qnil
,
556 case 'f': /* Existing file name. */
557 args
[i
] = Fread_file_name (callint_message
,
558 Qnil
, Qnil
, Qlambda
, Qnil
, Qnil
);
561 case 'F': /* Possibly nonexistent file name. */
562 args
[i
] = Fread_file_name (callint_message
,
563 Qnil
, Qnil
, Qnil
, Qnil
, Qnil
);
566 case 'G': /* Possibly nonexistent file name,
567 default to directory alone. */
568 args
[i
] = Fread_file_name (callint_message
,
569 Qnil
, Qnil
, Qnil
, empty_unibyte_string
, Qnil
);
572 case 'i': /* Ignore an argument -- Does not do I/O */
576 case 'k': /* Key sequence. */
578 int speccount1
= SPECPDL_INDEX ();
579 specbind (Qcursor_in_echo_area
, Qt
);
580 /* Prompt in `minibuffer-prompt' face. */
581 Fput_text_property (make_number (0),
582 make_number (SCHARS (callint_message
)),
583 Qface
, Qminibuffer_prompt
, callint_message
);
584 args
[i
] = Fread_key_sequence (callint_message
,
585 Qnil
, Qnil
, Qnil
, Qnil
);
586 unbind_to (speccount1
, Qnil
);
588 visargs
[i
] = Fkey_description (teml
, Qnil
);
590 /* If the key sequence ends with a down-event,
591 discard the following up-event. */
592 teml
= Faref (args
[i
], make_number (XINT (Flength (args
[i
])) - 1));
599 teml
= Fget (teml
, intern ("event-symbol-elements"));
600 /* Ignore first element, which is the base key. */
601 tem2
= Fmemq (intern ("down"), Fcdr (teml
));
603 up_event
= Fread_event (Qnil
, Qnil
, Qnil
);
608 case 'K': /* Key sequence to be defined. */
610 int speccount1
= SPECPDL_INDEX ();
611 specbind (Qcursor_in_echo_area
, Qt
);
612 /* Prompt in `minibuffer-prompt' face. */
613 Fput_text_property (make_number (0),
614 make_number (SCHARS (callint_message
)),
615 Qface
, Qminibuffer_prompt
, callint_message
);
616 args
[i
] = Fread_key_sequence (callint_message
,
617 Qnil
, Qt
, Qnil
, Qnil
);
619 visargs
[i
] = Fkey_description (teml
, Qnil
);
620 unbind_to (speccount1
, Qnil
);
622 /* If the key sequence ends with a down-event,
623 discard the following up-event. */
624 teml
= Faref (args
[i
], make_number (XINT (Flength (args
[i
])) - 1));
631 teml
= Fget (teml
, intern ("event-symbol-elements"));
632 /* Ignore first element, which is the base key. */
633 tem2
= Fmemq (intern ("down"), Fcdr (teml
));
635 up_event
= Fread_event (Qnil
, Qnil
, Qnil
);
640 case 'U': /* Up event from last k or K */
641 if (!NILP (up_event
))
643 args
[i
] = Fmake_vector (make_number (1), up_event
);
646 visargs
[i
] = Fkey_description (teml
, Qnil
);
650 case 'e': /* The invoking event. */
651 if (next_event
>= key_count
)
652 error ("%s must be bound to an event with parameters",
654 ? SSDATA (SYMBOL_NAME (function
))
656 args
[i
] = AREF (keys
, next_event
);
660 /* Find the next parameterized event. */
661 while (next_event
< key_count
662 && !(EVENT_HAS_PARAMETERS (AREF (keys
, next_event
))))
667 case 'm': /* Value of mark. Does not do I/O. */
669 /* visargs[i] = Qnil; */
670 args
[i
] = BVAR (current_buffer
, mark
);
674 case 'M': /* String read via minibuffer with
675 inheriting the current input method. */
676 args
[i
] = Fread_string (callint_message
,
677 Qnil
, Qnil
, Qnil
, Qt
);
680 case 'N': /* Prefix arg as number, else number from minibuffer */
681 if (!NILP (prefix_arg
))
682 goto have_prefix_arg
;
683 case 'n': /* Read number from minibuffer. */
691 message ("Please enter a number.");
692 sit_for (make_number (1), 0, 0);
696 str
= Fread_from_minibuffer (callint_message
,
697 Qnil
, Qnil
, Qnil
, Qnil
, Qnil
,
699 if (! STRINGP (str
) || SCHARS (str
) == 0)
702 args
[i
] = Fread (str
);
704 while (! NUMBERP (args
[i
]));
706 visargs
[i
] = args
[i
];
709 case 'P': /* Prefix arg in raw form. Does no I/O. */
710 args
[i
] = prefix_arg
;
711 /* visargs[i] = Qnil; */
715 case 'p': /* Prefix arg converted to number. No I/O. */
717 args
[i
] = Fprefix_numeric_value (prefix_arg
);
718 /* visargs[i] = Qnil; */
722 case 'r': /* Region, point and mark as 2 args. */
724 set_marker_both (point_marker
, Qnil
, PT
, PT_BYTE
);
725 /* visargs[i+1] = Qnil; */
726 foo
= marker_position (BVAR (current_buffer
, mark
));
727 /* visargs[i] = Qnil; */
728 args
[i
] = PT
< foo
? point_marker
: BVAR (current_buffer
, mark
);
730 args
[++i
] = PT
> foo
? point_marker
: BVAR (current_buffer
, mark
);
734 case 's': /* String read via minibuffer without
735 inheriting the current input method. */
736 args
[i
] = Fread_string (callint_message
,
737 Qnil
, Qnil
, Qnil
, Qnil
);
740 case 'S': /* Any symbol. */
741 visargs
[i
] = Fread_string (callint_message
,
742 Qnil
, Qnil
, Qnil
, Qnil
);
743 /* Passing args[i] directly stimulates compiler bug */
745 args
[i
] = Fintern (teml
, Qnil
);
748 case 'v': /* Variable name: symbol that is
750 args
[i
] = Fread_variable (callint_message
, Qnil
);
751 visargs
[i
] = last_minibuf_string
;
754 case 'x': /* Lisp expression read but not evaluated */
755 args
[i
] = Fread_minibuffer (callint_message
, Qnil
);
756 visargs
[i
] = last_minibuf_string
;
759 case 'X': /* Lisp expression read and evaluated */
760 args
[i
] = Feval_minibuffer (callint_message
, Qnil
);
761 visargs
[i
] = last_minibuf_string
;
764 case 'Z': /* Coding-system symbol, or ignore the
765 argument if no prefix */
766 if (NILP (prefix_arg
))
774 = Fread_non_nil_coding_system (callint_message
);
775 visargs
[i
] = last_minibuf_string
;
779 case 'z': /* Coding-system symbol or nil */
780 args
[i
] = Fread_coding_system (callint_message
, Qnil
);
781 visargs
[i
] = last_minibuf_string
;
784 /* We have a case for `+' so we get an error
785 if anyone tries to define one here. */
788 error ("Invalid control letter `%c' (%03o) in interactive calling string",
789 *tem
, (unsigned char) *tem
);
795 if (NILP (visargs
[i
]) && STRINGP (args
[i
]))
796 visargs
[i
] = args
[i
];
798 tem
= strchr (tem
, '\n');
802 unbind_to (speccount
, Qnil
);
808 if (arg_from_tty
|| !NILP (record_flag
))
810 visargs
[0] = function
;
811 for (i
= 1; i
< nargs
; i
++)
814 visargs
[i
] = Fcons (intern (callint_argfuns
[varies
[i
]]), Qnil
);
816 visargs
[i
] = quotify_arg (args
[i
]);
818 Vcommand_history
= Fcons (Flist (nargs
, visargs
),
820 /* Don't keep command history around forever. */
821 if (INTEGERP (Vhistory_length
) && XINT (Vhistory_length
) > 0)
823 teml
= Fnthcdr (Vhistory_length
, Vcommand_history
);
825 XSETCDR (teml
, Qnil
);
829 /* If we used a marker to hold point, mark, or an end of the region,
830 temporarily, convert it to an integer now. */
831 for (i
= 1; i
< nargs
; i
++)
832 if (varies
[i
] >= 1 && varies
[i
] <= 4)
833 XSETINT (args
[i
], marker_position (args
[i
]));
835 if (record_then_fail
)
836 Fbarf_if_buffer_read_only ();
838 Vthis_command
= save_this_command
;
839 Vthis_original_command
= save_this_original_command
;
840 real_this_command
= save_real_this_command
;
841 KVAR (current_kboard
, Vlast_command
) = save_last_command
;
845 specbind (Qcommand_debug_status
, Qnil
);
847 temporarily_switch_to_single_kboard (NULL
);
848 val
= Ffuncall (nargs
, args
);
850 return unbind_to (speccount
, val
);
854 DEFUN ("prefix-numeric-value", Fprefix_numeric_value
, Sprefix_numeric_value
,
856 doc
: /* Return numeric meaning of raw prefix argument RAW.
857 A raw prefix argument is what you get from `(interactive "P")'.
858 Its numeric meaning is what you would get from `(interactive "p")'. */)
864 XSETFASTINT (val
, 1);
865 else if (EQ (raw
, Qminus
))
867 else if (CONSP (raw
) && INTEGERP (XCAR (raw
)))
868 XSETINT (val
, XINT (XCAR (raw
)));
869 else if (INTEGERP (raw
))
872 XSETFASTINT (val
, 1);
878 syms_of_callint (void)
880 point_marker
= Fmake_marker ();
881 staticpro (&point_marker
);
883 callint_message
= Qnil
;
884 staticpro (&callint_message
);
886 preserved_fns
= pure_cons (intern_c_string ("region-beginning"),
887 pure_cons (intern_c_string ("region-end"),
888 pure_cons (intern_c_string ("point"),
889 pure_cons (intern_c_string ("mark"), Qnil
))));
891 Qlist
= intern_c_string ("list");
893 Qlet
= intern_c_string ("let");
895 Qif
= intern_c_string ("if");
897 Qwhen
= intern_c_string ("when");
899 Qletx
= intern_c_string ("let*");
901 Qsave_excursion
= intern_c_string ("save-excursion");
902 staticpro (&Qsave_excursion
);
903 Qprogn
= intern_c_string ("progn");
906 Qminus
= intern_c_string ("-");
909 Qplus
= intern_c_string ("+");
912 Qhandle_shift_selection
= intern_c_string ("handle-shift-selection");
913 staticpro (&Qhandle_shift_selection
);
915 Qcall_interactively
= intern_c_string ("call-interactively");
916 staticpro (&Qcall_interactively
);
918 Qcommand_debug_status
= intern_c_string ("command-debug-status");
919 staticpro (&Qcommand_debug_status
);
921 Qenable_recursive_minibuffers
= intern_c_string ("enable-recursive-minibuffers");
922 staticpro (&Qenable_recursive_minibuffers
);
924 Qmouse_leave_buffer_hook
= intern_c_string ("mouse-leave-buffer-hook");
925 staticpro (&Qmouse_leave_buffer_hook
);
927 DEFVAR_KBOARD ("prefix-arg", Vprefix_arg
,
928 doc
: /* The value of the prefix argument for the next editing command.
929 It may be a number, or the symbol `-' for just a minus sign as arg,
930 or a list whose car is a number for just one or more C-u's
931 or nil if no argument has been specified.
933 You cannot examine this variable to find the argument for this command
934 since it has been set to nil by the time you can look.
935 Instead, you should use the variable `current-prefix-arg', although
936 normally commands can get this prefix argument with (interactive "P"). */);
938 DEFVAR_KBOARD ("last-prefix-arg", Vlast_prefix_arg
,
939 doc
: /* The value of the prefix argument for the previous editing command.
940 See `prefix-arg' for the meaning of the value. */);
942 DEFVAR_LISP ("current-prefix-arg", Vcurrent_prefix_arg
,
943 doc
: /* The value of the prefix argument for this 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.
947 This is what `(interactive \"P\")' returns. */);
948 Vcurrent_prefix_arg
= Qnil
;
950 DEFVAR_LISP ("command-history", Vcommand_history
,
951 doc
: /* List of recent commands that read arguments from terminal.
952 Each command is represented as a form to evaluate.
954 Maximum length of the history list is determined by the value
955 of `history-length', which see. */);
956 Vcommand_history
= Qnil
;
958 DEFVAR_LISP ("command-debug-status", Vcommand_debug_status
,
959 doc
: /* Debugging status of current interactive command.
960 Bound each time `call-interactively' is called;
961 may be set by the debugger as a reminder for itself. */);
962 Vcommand_debug_status
= Qnil
;
964 DEFVAR_LISP ("mark-even-if-inactive", Vmark_even_if_inactive
,
965 doc
: /* *Non-nil means you can use the mark even when inactive.
966 This option makes a difference in Transient Mark mode.
967 When the option is non-nil, deactivation of the mark
968 turns off region highlighting, but commands that use the mark
969 behave as if the mark were still active. */);
970 Vmark_even_if_inactive
= Qt
;
972 DEFVAR_LISP ("mouse-leave-buffer-hook", Vmouse_leave_buffer_hook
,
973 doc
: /* Hook to run when about to switch windows with a mouse command.
974 Its purpose is to give temporary modes such as Isearch mode
975 a way to turn themselves off when a mouse command switches windows. */);
976 Vmouse_leave_buffer_hook
= Qnil
;
978 defsubr (&Sinteractive
);
979 defsubr (&Scall_interactively
);
980 defsubr (&Sprefix_numeric_value
);