Mercurial > emacs

comparison src/minibuf.c @ 8314:e0f95bf90681

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fdisplay_completion_list): gcpro `completions'.
author Richard M. Stallman <rms@gnu.org>
date Sun, 24 Jul 1994 04:04:36 +0000
parents abe67e9e1bf0
children 67b1905bc9a2
comparison
equal deleted inserted replaced
8313:589abdc989e1 8314:e0f95bf90681
1401 Lisp_Object completions; 1401 Lisp_Object completions;
1402 { 1402 {
1403 register Lisp_Object tail, elt; 1403 register Lisp_Object tail, elt;
1404 register int i; 1404 register int i;
1405 int column = 0; 1405 int column = 0;
1406 /* No GCPRO needed, since (when it matters) every variable 1406 struct gcpro gcpro1;
1407 struct buffer *old = current_buffer;
1408
1409 /* Note that (when it matters) every variable
1407 points to a non-string that is pointed to by COMPLETIONS. */ 1410 points to a non-string that is pointed to by COMPLETIONS. */
1408 struct buffer *old = current_buffer; 1411 GCPRO1 (completions);
1412
1409 if (XTYPE (Vstandard_output) == Lisp_Buffer) 1413 if (XTYPE (Vstandard_output) == Lisp_Buffer)
1410 set_buffer_internal (XBUFFER (Vstandard_output)); 1414 set_buffer_internal (XBUFFER (Vstandard_output));
1411 1415
1412 if (NILP (completions)) 1416 if (NILP (completions))
1413 write_string ("There are no possible completions of what you have typed.", 1417 write_string ("There are no possible completions of what you have typed.",
1465 Fprinc (elt, Qnil); 1469 Fprinc (elt, Qnil);
1466 } 1470 }
1467 } 1471 }
1468 } 1472 }
1469 1473
1474 UNGCPRO;
1475
1470 if (XTYPE (Vstandard_output) == Lisp_Buffer) 1476 if (XTYPE (Vstandard_output) == Lisp_Buffer)
1471 set_buffer_internal (old); 1477 set_buffer_internal (old);
1472 1478
1473 if (!NILP (Vrun_hooks)) 1479 if (!NILP (Vrun_hooks))
1474 call1 (Vrun_hooks, intern ("completion-setup-hook")); 1480 call1 (Vrun_hooks, intern ("completion-setup-hook"));