Mercurial > hg > xemacs-beta
annotate src/dialog.c @ 1333:1b0339b048ce
[xemacs-hg @ 2003-03-02 09:38:37 by ben]
To: xemacs-patches@xemacs.org
PROBLEMS: Include nt/PROBLEMS and update. Add note about incremental
linking badness.
cmdloop.el, custom.el, dumped-lisp.el, files.el, keydefs.el, keymap.el, lisp-mode.el, make-docfile.el, replace.el, simple.el, subr.el, view-less.el, wid-edit.el: Lots of syncing with FSF 21.2.
Use if-fboundp in wid-edit.el.
New file newcomment.el from FSF.
internals/internals.texi: Fix typo.
(Build-Time Dependencies): New node.
PROBLEMS: Delete.
config.inc.samp, xemacs.mak: Eliminate HAVE_VC6, use SUPPORT_EDIT_AND_CONTINUE in its place.
No incremental linking unless SUPPORT_EDIT_AND_CONTINUE, since it
can cause nasty crashes in pdump. Put warnings about this in
config.inc.samp. Report the full compile flags used for src
and lib-src in the Installation output.
alloc.c, lisp.h, ralloc.c, regex.c: Use ALLOCA() in regex.c to avoid excessive stack allocation.
Also fix subtle problem with REL_ALLOC() -- any call to malloc()
(direct or indirect) may relocate rel-alloced data, causing
buffer text to shift. After any such call, regex must update
all its pointers to such data. Add a system, when
ERROR_CHECK_MALLOC, whereby regex.c indicates all the places
it is prepared to handle malloc()/realloc()/free(), and any
calls anywhere in XEmacs outside of this will trigger an abort.
alloc.c, dialog-msw.c, eval.c, event-stream.c, general-slots.h, insdel.c, lisp.h, menubar-msw.c, menubar-x.c: Change *run_hook*_trapping_problems to take a warning class, not
a string. Factor out code to issue warnings, add flag to
call_trapping_problems() to postpone warning issue, and make
*run_hook*_trapping_problems issue their own warnings tailored
to the hook, postponed in the case of safe_run_hook_trapping_problems()
so that the appropriate message can be issued about resetting to
nil only when not `quit'. Make record_unwind_protect_restoring_int()
non-static.
dumper.c: Issue notes about incremental linking problems under Windows.
fileio.c: Mule-ize encrypt/decrypt-string code.
text.h: Spacing changes.
author | ben |
---|---|
date | Sun, 02 Mar 2003 09:38:54 +0000 |
parents | 79c6ff3eef26 |
children | 308d34e9f07d |
rev | line source |
---|---|
428 | 1 /* Implements elisp-programmable dialog boxes -- generic. |
2 Copyright (C) 1993, 1994 Free Software Foundation, Inc. | |
3 Copyright (C) 1995 Tinker Systems and INS Engineering Corp. | |
442 | 4 Copyright (C) 2000 Ben Wing. |
428 | 5 |
6 This file is part of XEmacs. | |
7 | |
8 XEmacs is free software; you can redistribute it and/or modify it | |
9 under the terms of the GNU General Public License as published by the | |
10 Free Software Foundation; either version 2, or (at your option) any | |
11 later version. | |
12 | |
13 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
16 for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
19 along with XEmacs; see the file COPYING. If not, write to | |
20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
21 Boston, MA 02111-1307, USA. */ | |
22 | |
23 /* Synched up with: Not in FSF. */ | |
24 | |
25 #include <config.h> | |
26 #include "lisp.h" | |
442 | 27 |
872 | 28 #include "frame-impl.h" |
428 | 29 |
442 | 30 Lisp_Object Vdelete_dialog_box_hook; |
31 Lisp_Object Qdelete_dialog_box_hook; | |
428 | 32 |
442 | 33 DEFUN ("make-dialog-box-internal", Fmake_dialog_box_internal, 2, 2, 0, /* |
34 Internal helper function for `make-dialog-box'. | |
35 This handles all dialog-box types except `general'. | |
36 TYPE is the same as the first argument to `make-dialog-box', and KEYS | |
37 a list of the remaining arguments. | |
428 | 38 */ |
442 | 39 (type, keys)) |
428 | 40 { |
41 struct frame *f = selected_frame (); | |
42 | |
442 | 43 CHECK_SYMBOL (type); |
428 | 44 |
872 | 45 if (!HAS_FRAMEMETH_P (f, make_dialog_box_internal)) |
563 | 46 signal_error (Qunimplemented, |
872 | 47 "Device does not support dialogs", FRAME_DEVICE (f)); |
428 | 48 |
872 | 49 return FRAMEMETH (f, make_dialog_box_internal, (f, type, keys)); |
428 | 50 } |
51 | |
52 void | |
53 syms_of_dialog (void) | |
54 { | |
442 | 55 DEFSUBR (Fmake_dialog_box_internal); |
56 | |
57 DEFSYMBOL (Qdelete_dialog_box_hook); | |
428 | 58 } |
59 | |
60 void | |
61 vars_of_dialog (void) | |
62 { | |
63 Fprovide (intern ("dialog")); | |
442 | 64 |
65 DEFVAR_LISP ("delete-dialog-box-hook", &Vdelete_dialog_box_hook /* | |
66 Function or functions to call when a dialog box is about to be deleted. | |
67 One arg, the dialog box id. | |
68 */ ); | |
69 Vdelete_dialog_box_hook = Qnil; | |
428 | 70 } |