Mercurial > hg > xemacs-beta

comparison src/gui-msw.c @ 408:501cfd01ee6d r21-2-34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-34
author cvs
date Mon, 13 Aug 2007 11:18:11 +0200
parents b8cc9ab3f761
children de805c49cfc1
comparison
equal deleted inserted replaced
407:ed6218a7d4d3 408:501cfd01ee6d
20 20
21 /* Synched up with: Not in FSF. */ 21 /* Synched up with: Not in FSF. */
22 22
23 #include <config.h> 23 #include <config.h>
24 #include "lisp.h" 24 #include "lisp.h"
25 #include "console-msw.h"
25 #include "redisplay.h" 26 #include "redisplay.h"
26 #include "gui.h" 27 #include "gui.h"
27 #include "glyphs.h" 28 #include "glyphs.h"
28 #include "frame.h" 29 #include "frame.h"
30 #include "elhash.h"
29 #include "events.h" 31 #include "events.h"
30 #include "elhash.h"
31 #include "console-msw.h"
32 #include "buffer.h" 32 #include "buffer.h"
33 33
34 /* 34 /*
35 * Return value is Qt if we have dispatched the command, 35 * Return value is Qt if we have dispatched the command,
36 * or Qnil if id has not been mapped to a callback. 36 * or Qnil if id has not been mapped to a callback.
82 XEVENT (event)->event.eval.object = arg; 82 XEVENT (event)->event.eval.object = arg;
83 } 83 }
84 84
85 mswindows_enqueue_dispatch_event (event); 85 mswindows_enqueue_dispatch_event (event);
86 /* The result of this evaluation could cause other instances to change so 86 /* The result of this evaluation could cause other instances to change so
87 enqueue an update callback to check this. We also have to make sure that 87 enqueue an update callback to check this. */
88 the function does not appear in the command history. 88 enqueue_magic_eval_event (update_widget_instances, frame);
89 #### I'm sure someone can tell me how to optimize this. */
90 mswindows_enqueue_misc_user_event
91 (frame, Qeval,
92 list3 (Qlet,
93 list2 (Qthis_command,
94 Qlast_command),
95 list2 (Qupdate_widget_instances, frame)));
96 return Qt; 89 return Qt;
97 } 90 }
98 91
99 DEFUN ("mswindows-shell-execute", Fmswindows_shell_execute, 2, 4, 0, /* 92 DEFUN ("mswindows-shell-execute", Fmswindows_shell_execute, 2, 4, 0, /*
100 Get Windows to perform OPERATION on DOCUMENT. 93 Get Windows to perform OPERATION on DOCUMENT.