diff options
| author | Fred Pierresteguy | 1994-03-11 10:15:21 +0000 |
|---|---|---|
| committer | Fred Pierresteguy | 1994-03-11 10:15:21 +0000 |
| commit | d2f28f78f3d5bea5bca0116c8065d894dc49bb39 (patch) | |
| tree | a51b7268f4182865885eae3a353db23b38da5a4b /src/fns.c | |
| parent | b70cfce2b576dc6b8a9706cff05b84146501ce7f (diff) | |
| download | emacs-d2f28f78f3d5bea5bca0116c8065d894dc49bb39.tar.gz emacs-d2f28f78f3d5bea5bca0116c8065d894dc49bb39.zip | |
(Fyes_or_no_p): Call Fx_popup_dialog instead of Fx_popup_menu.
(Fy_or_n_p): Likewise.
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1132,7 +1132,7 @@ Also accepts Space to mean yes, or Delete to mean no.") | |||
| 1132 | Fcons (Fcons (build_string ("No"), Qnil), | 1132 | Fcons (Fcons (build_string ("No"), Qnil), |
| 1133 | Qnil)); | 1133 | Qnil)); |
| 1134 | menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil)); | 1134 | menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil)); |
| 1135 | obj = Fx_popup_menu (Qt, menu); | 1135 | obj = Fx_popup_dialog (Qt, menu); |
| 1136 | answer = !NILP (obj); | 1136 | answer = !NILP (obj); |
| 1137 | break; | 1137 | break; |
| 1138 | } | 1138 | } |
| @@ -1235,12 +1235,12 @@ and can edit it until it as been confirmed.") | |||
| 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_menu (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_menu (Qt, menu); | 1243 | obj = Fx_popup_dialog (Qt, menu); |
| 1244 | } | 1244 | } |
| 1245 | UNGCPRO; | 1245 | UNGCPRO; |
| 1246 | return obj; | 1246 | return obj; |