Mercurial > emacs

comparison src/minibuf.c @ 26953:def8de0fb500

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcompleting_read): Rename arg INIT to INITIAL_INPUT.
author Richard M. Stallman <rms@gnu.org>
date Sun, 19 Dec 1999 19:13:08 +0000
parents cfad7bbf8187
children fe8cdefe46cd
comparison
equal deleted inserted replaced
26952:780a31708fcb 26953:def8de0fb500
1442 Completion ignores case if the ambient value of\n\ 1442 Completion ignores case if the ambient value of\n\
1443 `completion-ignore-case' is non-nil." 1443 `completion-ignore-case' is non-nil."
1444 */ 1444 */
1445 DEFUN ("completing-read", Fcompleting_read, Scompleting_read, 2, 8, 0, 1445 DEFUN ("completing-read", Fcompleting_read, Scompleting_read, 2, 8, 0,
1446 0 /* See immediately above */) 1446 0 /* See immediately above */)
1447 (prompt, table, predicate, require_match, init, hist, def, inherit_input_method) 1447 (prompt, table, predicate, require_match, initial_input, hist, def, inherit_input_method)
1448 Lisp_Object prompt, table, predicate, require_match, init, hist, def; 1448 Lisp_Object prompt, table, predicate, require_match, initial_input;
1449 Lisp_Object inherit_input_method; 1449 Lisp_Object hist, def, inherit_input_method;
1450 { 1450 {
1451 Lisp_Object val, histvar, histpos, position; 1451 Lisp_Object val, histvar, histpos, position;
1452 Lisp_Object init;
1452 int pos = 0; 1453 int pos = 0;
1453 int count = specpdl_ptr - specpdl; 1454 int count = specpdl_ptr - specpdl;
1454 struct gcpro gcpro1; 1455 struct gcpro gcpro1;
1455 1456
1457 init = initial_input;
1456 GCPRO1 (def); 1458 GCPRO1 (def);
1457 1459
1458 specbind (Qminibuffer_completion_table, table); 1460 specbind (Qminibuffer_completion_table, table);
1459 specbind (Qminibuffer_completion_predicate, predicate); 1461 specbind (Qminibuffer_completion_predicate, predicate);
1460 specbind (Qminibuffer_completion_confirm, 1462 specbind (Qminibuffer_completion_confirm,