/[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.637 by pj, Wed Oct 31 10:56:33 2001 UTC revision 1.638 by pj, Fri Nov 2 20:29:16 2001 UTC
# Line 5444  parse_modifiers_uncached (symbol, modifi Line 5444  parse_modifiers_uncached (symbol, modifi
5444    int i;    int i;
5445    int modifiers;    int modifiers;
5446    
5447    CHECK_SYMBOL (symbol, 1);    CHECK_SYMBOL (symbol);
5448    
5449    modifiers = 0;    modifiers = 0;
5450    name = XSYMBOL (symbol)->name;    name = XSYMBOL (symbol)->name;
# Line 9035  will read just one key sequence.  */) Line 9035  will read just one key sequence.  */)
9035    int count = specpdl_ptr - specpdl;    int count = specpdl_ptr - specpdl;
9036    
9037    if (!NILP (prompt))    if (!NILP (prompt))
9038      CHECK_STRING (prompt, 0);      CHECK_STRING (prompt);
9039    QUIT;    QUIT;
9040    
9041    specbind (Qinput_method_exit_on_first_char,    specbind (Qinput_method_exit_on_first_char,
# Line 9094  DEFUN ("read-key-sequence-vector", Fread Line 9094  DEFUN ("read-key-sequence-vector", Fread
9094    int count = specpdl_ptr - specpdl;    int count = specpdl_ptr - specpdl;
9095    
9096    if (!NILP (prompt))    if (!NILP (prompt))
9097      CHECK_STRING (prompt, 0);      CHECK_STRING (prompt);
9098    QUIT;    QUIT;
9099    
9100    specbind (Qinput_method_exit_on_first_char,    specbind (Qinput_method_exit_on_first_char,
# Line 9677  On such systems, Emacs starts a subshell Line 9677  On such systems, Emacs starts a subshell
9677    struct gcpro gcpro1;    struct gcpro gcpro1;
9678    
9679    if (!NILP (stuffstring))    if (!NILP (stuffstring))
9680      CHECK_STRING (stuffstring, 0);      CHECK_STRING (stuffstring);
9681    
9682    /* Run the functions in suspend-hook.  */    /* Run the functions in suspend-hook.  */
9683    if (!NILP (Vrun_hooks))    if (!NILP (Vrun_hooks))

Legend:
Removed from v.1.637  
changed lines
  Added in v.1.638

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