#include "insdel.h"
#include "window.h"
-extern int num_input_chars;
+extern Charcount num_input_chars;
Lisp_Object Vcurrent_prefix_arg;
Lisp_Object Qcall_interactively;
#endif
#if 0 /* ill-conceived */
+/* FSF calls Qmouse_leave_buffer_hook at all sorts of random places,
+ including a bunch of places in their mouse.el. If this is
+ implemented, it has to be done cleanly. */
Lisp_Object Vmouse_leave_buffer_hook, Qmouse_leave_buffer_hook;
#endif
-Lisp_Object Qlet, QletX, Qsave_excursion;
+Lisp_Object QletX, Qsave_excursion;
Lisp_Object Qread_from_minibuffer;
Lisp_Object Qread_file_name;
if (EQ (funcar, Qautoload))
{
- struct gcpro gcpro1, gcpro2;
- GCPRO2 (function, prefix);
+ struct gcpro gcpro1;
+ GCPRO1 (prefix);
+ /* do_autoload GCPROs both arguments */
do_autoload (fun, function);
UNGCPRO;
goto retry;
int prompt_length;
prompt_length = ((prompt_limit)
? (prompt_limit - prompt_start)
- : strlen (prompt_start));
+ : (int) strlen (prompt_start));
if (prompt_limit && prompt_limit[1] == 0)
{
prompt_limit = 0; /* "sfoo:\n" -- strip tailing return */
}
case 'S': /* Any symbol. */
{
-#if 0 /* Historical crock */
- Lisp_Object tem = intern ("minibuffer-local-ns-map");
- tem = find_symbol_value (tem);
- if (UNBOUNDP (tem)) tem = Qnil;
- tem = call3 (Qread_from_minibuffer, PROMPT (), Qnil,
- tem);
- args[argnum] = Fintern (tem, Qnil);
-#else /* 1 */
visargs[argnum] = Qnil;
for (;;)
{
directly */
break;
}
-#endif /* 1 */
arg_from_tty = 1;
break;
}
}
DEFUN ("prefix-numeric-value", Fprefix_numeric_value, 1, 1, 0, /*
-Return numeric meaning of raw prefix argument ARG.
+Return numeric meaning of raw prefix argument RAW.
A raw prefix argument is what you get from `(interactive "P")'.
Its numeric meaning is what you would get from `(interactive "p")'.
*/
defsymbol (&Qcommand_debug_status, "command-debug-status");
defsymbol (&Qenable_recursive_minibuffers, "enable-recursive-minibuffers");
- defsymbol (&Qlet, "let");
defsymbol (&QletX, "let*");
defsymbol (&Qsave_excursion, "save-excursion");
#if 0 /* ill-conceived */