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

Diff of /emacs/src/callint.c

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

revision 1.116 by miles, Tue Jun 25 12:58:54 2002 UTC revision 1.117 by lektu, Thu Jul 11 14:08:44 2002 UTC
# Line 198  supply if the command inquires which eve Line 198  supply if the command inquires which eve
198    Lisp_Object specs;    Lisp_Object specs;
199    Lisp_Object teml;    Lisp_Object teml;
200    Lisp_Object enable;    Lisp_Object enable;
201    int speccount = specpdl_ptr - specpdl;    int speccount = SPECPDL_INDEX ();
202    
203    /* The index of the next element of this_command_keys to examine for    /* The index of the next element of this_command_keys to examine for
204       the 'e' interactive code.  */       the 'e' interactive code.  */
# Line 541  supply if the command inquires which eve Line 541  supply if the command inquires which eve
541    
542          case 'k':               /* Key sequence. */          case 'k':               /* Key sequence. */
543            {            {
544              int speccount1 = specpdl_ptr - specpdl;              int speccount1 = SPECPDL_INDEX ();
545              specbind (Qcursor_in_echo_area, Qt);              specbind (Qcursor_in_echo_area, Qt);
546              args[i] = Fread_key_sequence (build_string (callint_message),              args[i] = Fread_key_sequence (build_string (callint_message),
547                                            Qnil, Qnil, Qnil, Qnil);                                            Qnil, Qnil, Qnil, Qnil);
# Line 569  supply if the command inquires which eve Line 569  supply if the command inquires which eve
569    
570          case 'K':               /* Key sequence to be defined. */          case 'K':               /* Key sequence to be defined. */
571            {            {
572              int speccount1 = specpdl_ptr - specpdl;              int speccount1 = SPECPDL_INDEX ();
573              specbind (Qcursor_in_echo_area, Qt);              specbind (Qcursor_in_echo_area, Qt);
574              args[i] = Fread_key_sequence (build_string (callint_message),              args[i] = Fread_key_sequence (build_string (callint_message),
575                                            Qnil, Qt, Qnil, Qnil);                                            Qnil, Qt, Qnil, Qnil);

Legend:
Removed from v.1.116  
changed lines
  Added in v.1.117

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