projects
/
chise
/
xemacs-chise.git.1
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add Hanyo-Denshi/FT and JT code points.
[chise/xemacs-chise.git.1]
/
src
/
cmdloop.c
diff --git
a/src/cmdloop.c
b/src/cmdloop.c
index
eba7f4d
..
b54b23c
100644
(file)
--- a/
src/cmdloop.c
+++ b/
src/cmdloop.c
@@
-38,7
+38,7
@@
Boston, MA 02111-1307, USA. */
#include "window.h"
/* Current depth in recursive edits. */
#include "window.h"
/* Current depth in recursive edits. */
-int command_loop_level;
+Fixnum command_loop_level;
#ifndef LISP_COMMAND_LOOP
/* Form to evaluate (if non-nil) when Emacs is started. */
#ifndef LISP_COMMAND_LOOP
/* Form to evaluate (if non-nil) when Emacs is started. */
@@
-121,6
+121,10
@@
You should almost certainly not be using this.
stderr_out ("*** Backtrace\n");
Fbacktrace (Qexternal_debugging_output, Qt);
stderr_out ("*** Killing XEmacs\n");
stderr_out ("*** Backtrace\n");
Fbacktrace (Qexternal_debugging_output, Qt);
stderr_out ("*** Killing XEmacs\n");
+#ifdef HAVE_MS_WINDOWS
+ Fmswindows_message_box (build_string ("Initialization error"),
+ Qnil, Qnil);
+#endif
return Fkill_emacs (make_int (-1));
}
return Fkill_emacs (make_int (-1));
}
@@
-411,7
+415,7
@@
Lisp_Object
call_command_loop (Lisp_Object catch_errors)
{
/* This function can GC */
call_command_loop (Lisp_Object catch_errors)
{
/* This function can GC */
- reset_this_command_keys (Vselected_console, Qnil); /* #### bleagh */
+ reset_this_command_keys (Vselected_console, 0); /* #### bleagh */
loop:
for (;;)
loop:
for (;;)
@@
-545,9
+549,13
@@
Don't call this unless you know what you're doing.
}
}
}
}
+#if 0 /* What's wrong with going through ordinary procedure of quit?
+ quitting here leaves overriding-terminal-local-map
+ when you type C-u C-u C-g. */
/* If ^G was typed before we got here (that is, before emacs was
idle and waiting for input) then we treat that as an interrupt. */
QUIT;
/* If ^G was typed before we got here (that is, before emacs was
idle and waiting for input) then we treat that as an interrupt. */
QUIT;
+#endif
/* If minibuffer on and echo area in use, wait 2 sec and redraw
minibuffer. Treat a ^G here as a command, not an interrupt.
/* If minibuffer on and echo area in use, wait 2 sec and redraw
minibuffer. Treat a ^G here as a command, not an interrupt.