Mercurial > emacs

comparison src/fns.c @ 6344:4ef6b636dc99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Whitespace change.
author Richard M. Stallman <rms@gnu.org>
date Mon, 14 Mar 1994 21:45:32 +0000
parents 1571be153f56
children 3fe339cf2dde
comparison
equal deleted inserted replaced
6343:372613d5970b 6344:4ef6b636dc99
1233 pane = Fcons (Fcons (build_string ("Yes"), Qt), 1233 pane = Fcons (Fcons (build_string ("Yes"), Qt),
1234 Fcons (Fcons (build_string ("No"), Qnil), 1234 Fcons (Fcons (build_string ("No"), Qnil),
1235 Qnil)); 1235 Qnil));
1236 GCPRO1 (pane); 1236 GCPRO1 (pane);
1237 menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil)); 1237 menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil));
1238 obj = Fx_popup_dialog(Qt, menu); 1238 obj = Fx_popup_dialog (Qt, menu);
1239 if (!NILP (obj)) 1239 if (!NILP (obj))
1240 { 1240 {
1241 prompt = build_string ("Confirm"); 1241 prompt = build_string ("Confirm");
1242 menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil)); 1242 menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil));
1243 obj = Fx_popup_dialog (Qt, menu); 1243 obj = Fx_popup_dialog (Qt, menu);