/[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.778 by lektu, Fri Jun 11 00:47:11 2004 UTC revision 1.779 by schwab, Sun Jun 13 15:34:11 2004 UTC
# Line 1348  cancel_hourglass_unwind (arg) Line 1348  cancel_hourglass_unwind (arg)
1348       Lisp_Object arg;       Lisp_Object arg;
1349  {  {
1350    cancel_hourglass ();    cancel_hourglass ();
1351      return Qnil;
1352  }  }
1353  #endif  #endif
1354    
# Line 6256  modify_event_symbol (symbol_num, modifie Line 6257  modify_event_symbol (symbol_num, modifie
6257          {          {
6258            int len = SBYTES (name_alist_or_stem);            int len = SBYTES (name_alist_or_stem);
6259            char *buf = (char *) alloca (len + 50);            char *buf = (char *) alloca (len + 50);
6260            if (sizeof (int) == sizeof (EMACS_INT))            sprintf (buf, "%s-%ld", SDATA (name_alist_or_stem),
6261              sprintf (buf, "%s-%d", SDATA (name_alist_or_stem),                     (long) XINT (symbol_int) + 1);
                      XINT (symbol_int) + 1);  
           else if (sizeof (long) == sizeof (EMACS_INT))  
             sprintf (buf, "%s-%ld", SDATA (name_alist_or_stem),  
                      XINT (symbol_int) + 1);  
6262            value = intern (buf);            value = intern (buf);
6263          }          }
6264        else if (name_table != 0 && name_table[symbol_num])        else if (name_table != 0 && name_table[symbol_num])
# Line 9714  DEFUN ("execute-extended-command", Fexec Line 9711  DEFUN ("execute-extended-command", Fexec
9711    else if (CONSP (prefixarg) && XINT (XCAR (prefixarg)) == 4)    else if (CONSP (prefixarg) && XINT (XCAR (prefixarg)) == 4)
9712      strcpy (buf, "C-u ");      strcpy (buf, "C-u ");
9713    else if (CONSP (prefixarg) && INTEGERP (XCAR (prefixarg)))    else if (CONSP (prefixarg) && INTEGERP (XCAR (prefixarg)))
9714      {      sprintf (buf, "%ld ", (long) XINT (XCAR (prefixarg)));
       if (sizeof (int) == sizeof (EMACS_INT))  
         sprintf (buf, "%d ", XINT (XCAR (prefixarg)));  
       else if (sizeof (long) == sizeof (EMACS_INT))  
         sprintf (buf, "%ld ", (long) XINT (XCAR (prefixarg)));  
       else  
         abort ();  
     }  
9715    else if (INTEGERP (prefixarg))    else if (INTEGERP (prefixarg))
9716      {      sprintf (buf, "%ld ", (long) XINT (prefixarg));
       if (sizeof (int) == sizeof (EMACS_INT))  
         sprintf (buf, "%d ", XINT (prefixarg));  
       else if (sizeof (long) == sizeof (EMACS_INT))  
         sprintf (buf, "%ld ", (long) XINT (prefixarg));  
       else  
         abort ();  
     }  
9717    
9718    /* This isn't strictly correct if execute-extended-command    /* This isn't strictly correct if execute-extended-command
9719       is bound to anything else.  Perhaps it should use       is bound to anything else.  Perhaps it should use

Legend:
Removed from v.1.778  
changed lines
  Added in v.1.779

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