Commit b9d721de authored by Jim Blandy's avatar Jim Blandy
Browse files

* minibuf.c (Fread_from_minibuffer): Put this function's doc

	string into a comment; it's too long for the PCC preprocessor.
	Rah.
	(Fcompleting_read): Same deal.
parent 4360b0c6
...@@ -314,6 +314,11 @@ read_minibuf_unwind (data) ...@@ -314,6 +314,11 @@ read_minibuf_unwind (data)
#endif #endif
} }
/* This comment supplies the doc string for read-from-minibuffer,
for make-docfile to see. We cannot put this in the real DEFUN
due to limits in the Unix cpp.
DEFUN ("read-from-minibuffer", Fread_from_minibuffer, Sread_from_minibuffer, 1, 5, 0, DEFUN ("read-from-minibuffer", Fread_from_minibuffer, Sread_from_minibuffer, 1, 5, 0,
"Read a string from the minibuffer, prompting with string PROMPT.\n\ "Read a string from the minibuffer, prompting with string PROMPT.\n\
If optional second arg INITIAL-CONTENTS is non-nil, it is a string\n\ If optional second arg INITIAL-CONTENTS is non-nil, it is a string\n\
...@@ -332,7 +337,11 @@ Fifth arg HIST, if non-nil, specifies a history list\n\ ...@@ -332,7 +337,11 @@ Fifth arg HIST, if non-nil, specifies a history list\n\
In that case, HISTVAR is the history list variable to use,\n\ In that case, HISTVAR is the history list variable to use,\n\
and HISTPOS is the initial position (the position in the list\n\ and HISTPOS is the initial position (the position in the list\n\
which INITIAL-CONTENTS corresponds to).\n\ which INITIAL-CONTENTS corresponds to).\n\
Positions are counted starting from 1 at the beginning of the list.") Positions are counted starting from 1 at the beginning of the list."
*/
DEFUN ("read-from-minibuffer", Fread_from_minibuffer, Sread_from_minibuffer, 1, 5, 0,
0 /* See immediately above */)
(prompt, initial_input, keymap, read, hist) (prompt, initial_input, keymap, read, hist)
Lisp_Object prompt, initial_input, keymap, read, hist; Lisp_Object prompt, initial_input, keymap, read, hist;
{ {
...@@ -799,6 +808,10 @@ Lisp_Object Vminibuffer_completion_table, Qminibuffer_completion_table; ...@@ -799,6 +808,10 @@ Lisp_Object Vminibuffer_completion_table, Qminibuffer_completion_table;
Lisp_Object Vminibuffer_completion_predicate, Qminibuffer_completion_predicate; Lisp_Object Vminibuffer_completion_predicate, Qminibuffer_completion_predicate;
Lisp_Object Vminibuffer_completion_confirm, Qminibuffer_completion_confirm; Lisp_Object Vminibuffer_completion_confirm, Qminibuffer_completion_confirm;
/* This comment supplies the doc string for completing-read,
for make-docfile to see. We cannot put this in the real DEFUN
due to limits in the Unix cpp.
DEFUN ("completing-read", Fcompleting_read, Scompleting_read, 2, 6, 0, DEFUN ("completing-read", Fcompleting_read, Scompleting_read, 2, 6, 0,
"Read a string in the minibuffer, with completion.\n\ "Read a string in the minibuffer, with completion.\n\
Args: PROMPT, TABLE, PREDICATE, REQUIRE-MATCH, INITIAL-INPUT, HIST.\n\ Args: PROMPT, TABLE, PREDICATE, REQUIRE-MATCH, INITIAL-INPUT, HIST.\n\
...@@ -821,7 +834,10 @@ HIST, if non-nil, specifies a history list\n\ ...@@ -821,7 +834,10 @@ HIST, if non-nil, specifies a history list\n\
which INITIAL-CONTENTS corresponds to).\n\ which INITIAL-CONTENTS corresponds to).\n\
Positions are counted starting from 1 at the beginning of the list.\n\ Positions are counted starting from 1 at the beginning of the list.\n\
Completion ignores case if the ambient value of\n\ Completion ignores case if the ambient value of\n\
`completion-ignore-case' is non-nil.") `completion-ignore-case' is non-nil."
*/
DEFUN ("completing-read", Fcompleting_read, Scompleting_read, 2, 6, 0,
0 /* See immediately above */)
(prompt, table, pred, require_match, init, hist) (prompt, table, pred, require_match, init, hist)
Lisp_Object prompt, table, pred, require_match, init, hist; Lisp_Object prompt, table, pred, require_match, init, hist;
{ {
......
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