/[emacs]/emacs/src/keyboard.c
ViewVC logotype

Diff of /emacs/src/keyboard.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.689 by lektu, Wed Jul 10 08:44:44 2002 UTC revision 1.690 by lektu, Thu Jul 11 14:12:22 2002 UTC
# Line 934  add_command_key (key) Line 934  add_command_key (key)
934  Lisp_Object  Lisp_Object
935  recursive_edit_1 ()  recursive_edit_1 ()
936  {  {
937    int count = specpdl_ptr - specpdl;    int count = SPECPDL_INDEX ();
938    Lisp_Object val;    Lisp_Object val;
939    
940    if (command_loop_level > 0)    if (command_loop_level > 0)
# Line 1000  Alternately, `(throw 'exit t)' makes thi Line 1000  Alternately, `(throw 'exit t)' makes thi
1000  This function is called by the editor initialization to begin editing.  */)  This function is called by the editor initialization to begin editing.  */)
1001       ()       ()
1002  {  {
1003    int count = specpdl_ptr - specpdl;    int count = SPECPDL_INDEX ();
1004    Lisp_Object buffer;    Lisp_Object buffer;
1005    
1006    command_loop_level++;    command_loop_level++;
# Line 1407  command_loop_1 () Line 1407  command_loop_1 ()
1407          {          {
1408            /* Bind inhibit-quit to t so that C-g gets read in            /* Bind inhibit-quit to t so that C-g gets read in
1409               rather than quitting back to the minibuffer.  */               rather than quitting back to the minibuffer.  */
1410            int count = specpdl_ptr - specpdl;            int count = SPECPDL_INDEX ();
1411            specbind (Qinhibit_quit, Qt);            specbind (Qinhibit_quit, Qt);
1412    
1413            Fsit_for (Vminibuffer_message_timeout, Qnil, Qnil);            Fsit_for (Vminibuffer_message_timeout, Qnil, Qnil);
# Line 1838  void Line 1838  void
1838  safe_run_hooks (hook)  safe_run_hooks (hook)
1839       Lisp_Object hook;       Lisp_Object hook;
1840  {  {
1841    int count = specpdl_ptr - specpdl;    int count = SPECPDL_INDEX ();
1842    specbind (Qinhibit_quit, hook);    specbind (Qinhibit_quit, hook);
1843    
1844    internal_condition_case (safe_run_hooks_1, Qt, safe_run_hooks_error);    internal_condition_case (safe_run_hooks_1, Qt, safe_run_hooks_error);
# Line 2813  read_char (commandflag, nmaps, maps, pre Line 2813  read_char (commandflag, nmaps, maps, pre
2813        Lisp_Object keys;        Lisp_Object keys;
2814        int key_count;        int key_count;
2815        struct gcpro gcpro1;        struct gcpro gcpro1;
2816        int count = specpdl_ptr - specpdl;        int count = SPECPDL_INDEX ();
2817    
2818        /* Save the echo status.  */        /* Save the echo status.  */
2819        int saved_immediate_echo = current_kboard->immediate_echo;        int saved_immediate_echo = current_kboard->immediate_echo;
# Line 2943  read_char (commandflag, nmaps, maps, pre Line 2943  read_char (commandflag, nmaps, maps, pre
2943    if (!NILP (Vhelp_form) && help_char_p (c))    if (!NILP (Vhelp_form) && help_char_p (c))
2944      {      {
2945        Lisp_Object tem0;        Lisp_Object tem0;
2946        count = specpdl_ptr - specpdl;        count = SPECPDL_INDEX ();
2947    
2948        record_unwind_protect (Fset_window_configuration,        record_unwind_protect (Fset_window_configuration,
2949                               Fcurrent_window_configuration (Qnil));                               Fcurrent_window_configuration (Qnil));
# Line 3223  usage: (track-mouse BODY ...)  */) Line 3223  usage: (track-mouse BODY ...)  */)
3223       (args)       (args)
3224       Lisp_Object args;       Lisp_Object args;
3225  {  {
3226    int count = specpdl_ptr - specpdl;    int count = SPECPDL_INDEX ();
3227    Lisp_Object val;    Lisp_Object val;
3228    
3229    record_unwind_protect (tracking_off, do_mouse_tracking);    record_unwind_protect (tracking_off, do_mouse_tracking);
# Line 6789  Lisp_Object Line 6789  Lisp_Object
6789  menu_item_eval_property (sexpr)  menu_item_eval_property (sexpr)
6790       Lisp_Object sexpr;       Lisp_Object sexpr;
6791  {  {
6792    int count = specpdl_ptr - specpdl;    int count = SPECPDL_INDEX ();
6793    Lisp_Object val;    Lisp_Object val;
6794    specbind (Qinhibit_redisplay, Qt);    specbind (Qinhibit_redisplay, Qt);
6795    val = internal_condition_case_1 (Feval, sexpr, Qerror,    val = internal_condition_case_1 (Feval, sexpr, Qerror,
# Line 8005  read_key_sequence (keybuf, bufsize, prom Line 8005  read_key_sequence (keybuf, bufsize, prom
8005       int fix_current_buffer;       int fix_current_buffer;
8006  {  {
8007    volatile Lisp_Object from_string;    volatile Lisp_Object from_string;
8008    volatile int count = specpdl_ptr - specpdl;    volatile int count = SPECPDL_INDEX ();
8009    
8010    /* How many keys there are in the current key sequence.  */    /* How many keys there are in the current key sequence.  */
8011    volatile int t;    volatile int t;
# Line 9187  will read just one key sequence.  */) Line 9187  will read just one key sequence.  */)
9187    Lisp_Object keybuf[30];    Lisp_Object keybuf[30];
9188    register int i;    register int i;
9189    struct gcpro gcpro1;    struct gcpro gcpro1;
9190    int count = specpdl_ptr - specpdl;    int count = SPECPDL_INDEX ();
9191    
9192    if (!NILP (prompt))    if (!NILP (prompt))
9193      CHECK_STRING (prompt);      CHECK_STRING (prompt);
# Line 9246  DEFUN ("read-key-sequence-vector", Fread Line 9246  DEFUN ("read-key-sequence-vector", Fread
9246    Lisp_Object keybuf[30];    Lisp_Object keybuf[30];
9247    register int i;    register int i;
9248    struct gcpro gcpro1;    struct gcpro gcpro1;
9249    int count = specpdl_ptr - specpdl;    int count = SPECPDL_INDEX ();
9250    
9251    if (!NILP (prompt))    if (!NILP (prompt))
9252      CHECK_STRING (prompt);      CHECK_STRING (prompt);
# Line 9797  On such systems, Emacs starts a subshell Line 9797  On such systems, Emacs starts a subshell
9797       (stuffstring)       (stuffstring)
9798       Lisp_Object stuffstring;       Lisp_Object stuffstring;
9799  {  {
9800    int count = specpdl_ptr - specpdl;    int count = SPECPDL_INDEX ();
9801    int old_height, old_width;    int old_height, old_width;
9802    int width, height;    int width, height;
9803    struct gcpro gcpro1;    struct gcpro gcpro1;

Legend:
Removed from v.1.689  
changed lines
  Added in v.1.690

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26