Mercurial > emacs
changeset 10591:5a049637599a
(Fcall_interactively): Pass new arg to Fread_string.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 30 Jan 1995 00:41:51 +0000 |
| parents | 9f68d8d6357b |
| children | bbb68f0d31c6 |
| files | src/callint.c src/minibuf.c |
| diffstat | 2 files changed, 10 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/callint.c Mon Jan 30 00:37:22 1995 +0000 +++ b/src/callint.c Mon Jan 30 00:41:51 1995 +0000 @@ -533,11 +533,11 @@ 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);
--- a/src/minibuf.c Mon Jan 30 00:37:22 1995 +0000 +++ b/src/minibuf.c Mon Jan 30 00:41:51 1995 +0000 @@ -503,13 +503,16 @@ /* 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,