743 |
args[i] = Qnil; |
args[i] = Qnil; |
744 |
varies[i] = -1; |
varies[i] = -1; |
745 |
} |
} |
746 |
else |
else |
747 |
{ |
{ |
748 |
args[i] |
args[i] |
749 |
= Fread_non_nil_coding_system (build_string (callint_message)); |
= Fread_non_nil_coding_system (build_string (callint_message)); |
820 |
UNGCPRO; |
UNGCPRO; |
821 |
return unbind_to (speccount, val); |
return unbind_to (speccount, val); |
822 |
} |
} |
823 |
} |
} |
824 |
|
|
825 |
DEFUN ("prefix-numeric-value", Fprefix_numeric_value, Sprefix_numeric_value, |
DEFUN ("prefix-numeric-value", Fprefix_numeric_value, Sprefix_numeric_value, |
826 |
1, 1, 0, |
1, 1, 0, |
831 |
Lisp_Object raw; |
Lisp_Object raw; |
832 |
{ |
{ |
833 |
Lisp_Object val; |
Lisp_Object val; |
834 |
|
|
835 |
if (NILP (raw)) |
if (NILP (raw)) |
836 |
XSETFASTINT (val, 1); |
XSETFASTINT (val, 1); |
837 |
else if (EQ (raw, Qminus)) |
else if (EQ (raw, Qminus)) |