Commit 80896ab4 authored by Richard M. Stallman's avatar Richard M. Stallman

(Fcall_interactively): Pass new arg to Fread_string.

parent c3e1d435
......@@ -533,11 +533,11 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
break;
case 's': /* String read via minibuffer. */
args[i] = Fread_string (build_string (prompt), Qnil);
args[i] = Fread_string (build_string (prompt), Qnil, Qnil);
break;
case 'S': /* Any symbol. */
visargs[i] = Fread_string (build_string (prompt), Qnil);
visargs[i] = Fread_string (build_string (prompt), Qnil, Qnil);
/* Passing args[i] directly stimulates compiler bug */
teml = visargs[i];
args[i] = Fintern (teml, Qnil);
......
......@@ -503,13 +503,16 @@ is a string to insert in the minibuffer before reading.")
/* Functions that use the minibuffer to read various things. */
DEFUN ("read-string", Fread_string, Sread_string, 1, 2, 0,
DEFUN ("read-string", Fread_string, Sread_string, 1, 3, 0,
"Read a string from the minibuffer, prompting with string PROMPT.\n\
If non-nil second arg INITIAL-INPUT is a string to insert before reading.")
(prompt, initial_input)
Lisp_Object prompt, initial_input;
If non-nil, second arg INITIAL-INPUT is a string to insert before reading.\n\
The third arg HISTORY, if non-nil, specifies a history list\n\
and optionally the initial position in the list.\n\
See `read-from-minibuffer' for details of HISTORY argument.")
(prompt, initial_input, history)
Lisp_Object prompt, initial_input, history;
{
return Fread_from_minibuffer (prompt, initial_input, Qnil, Qnil, Qnil);
return Fread_from_minibuffer (prompt, initial_input, Qnil, Qnil, history);
}
DEFUN ("read-no-blanks-input", Fread_no_blanks_input, Sread_no_blanks_input, 1, 2, 0,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment