From 80896ab4868c3b921de6e7950d3e9ad98a4f6664 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 30 Jan 1995 00:41:51 +0000 Subject: [PATCH] (Fcall_interactively): Pass new arg to Fread_string. --- src/callint.c | 4 ++-- src/minibuf.c | 13 ++++++++----- 2 files changed, 10 insertions(+), 7 deletions(-) diff --git a/src/callint.c b/src/callint.c index a6c5570bb3a..a25032b7fa7 100644 --- a/src/callint.c +++ b/src/callint.c @@ -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); diff --git a/src/minibuf.c b/src/minibuf.c index 38dc33b2a20..8d2995ebf91 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -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, -- 2.39.5