mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy 1991-12-04 03:20:22 +00:00
parent c35f9044a5
commit 63007de27b
1 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/callint.c
View File

@ -64,10 +64,10 @@ c -- Character.\n\
C -- Command name: symbol with interactive function definition.\n\
d -- Value of point as number. Does not do I/O.\n\
D -- Directory name.\n\
e -- Last mouse event.\n\
f -- Existing file name.\n\
F -- Possibly nonexistent file name.\n\
k -- Key sequence (string).\n\
K -- Mouse click that invoked this command - last-command-char.\n\
m -- Value of mark as number. Does not do I/O.\n\
n -- Number read using minibuffer.\n\
N -- Prefix arg converted to number, or if none, do like code `n'.\n\
@ -159,7 +159,12 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
Lisp_Object prefix_arg;
unsigned char *string;
unsigned char *tem;
/* If varies[i] > 0, the i'th argument shouldn't just have its value
in this call quoted in the command history. It should be
recorded as a call to the function named callint_argfuns[varies[i]]. */
int *varies;
register int i, j;
int count, foo;
char prompt[100];
@ -173,8 +178,10 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
retry:
fun = function;
while (XTYPE (fun) == Lisp_Symbol && !EQ (fun, Qunbound)) fun = XSYMBOL (fun)->function;
for (fun = function;
XTYPE (fun) == Lisp_Symbol && !EQ (fun, Qunbound);
fun = XSYMBOL (fun)->function)
;
specs = Qnil;
string = 0;
@ -349,11 +356,6 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
varies[i] = 1;
break;
case 'e':
varies[i] = 1;
args[i] = Vmouse_event;
break;
case 'D': /* Directory name. */
args[i] = Fread_file_name (build_string (prompt), Qnil,
current_buffer->directory, Qlambda, Qnil);
@ -370,11 +372,20 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
break;
case 'k': /* Key sequence (string) */
args[i] = Fread_key_sequence (build_string (prompt));
args[i] = Fread_key_sequence (build_string (prompt), Qnil);
teml = args[i];
visargs[i] = Fkey_description (teml);
break;
case 'K': /* Mouse click. */
args[i] = last_command_char;
if (NULL (Fmouse_click_p (args[i])))
error ("%s must be bound to a mouse click.",
(XTYPE (function) == Lisp_Symbol
? (char *) XSYMBOL (function)->name->data
: "Command"));
break;
case 'm': /* Value of mark. Does not do I/O. */
check_mark ();
/* visargs[i] = Qnil; */
@ -474,7 +485,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
if (arg_from_tty || !NULL (record))
{
visargs[0] = function;
for (i = 1; i < count + 1; i++ if (varies[i] > 0)
for (i = 1; i < count + 1; i++)
if (varies[i] > 0)
visargs[i] = Fcons (intern (callint_argfuns[varies[i]]), Qnil);
else
visargs[i] = quotify_arg (args[i]);