Mercurial > hg > xemacs-beta

comparison src/data.c @ 259:11cf20601dec r20-5b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b28
author cvs
date Mon, 13 Aug 2007 10:23:02 +0200
parents 677f6a0ee643
children c5d627a313b1
comparison
equal deleted inserted replaced
258:58424f6abf56 259:11cf20601dec
1663 CHECK_INT (count); 1663 CHECK_INT (count);
1664 1664
1665 { 1665 {
1666 int C_count = XINT (count); 1666 int C_count = XINT (count);
1667 /* EMACS_UINT C_value = (EMACS_UINT) XUINT (value);*/ 1667 /* EMACS_UINT C_value = (EMACS_UINT) XUINT (value);*/
1668 EMACS_UINT C_value = (EMACS_UINT) XINT (value); 1668 EMACS_UINT C_value = (EMACS_UINT) XUINT (value);
1669 XSETINT (val, C_count > 0 ? C_value << C_count : C_value >> -C_count); 1669 XSETINT (val, C_count > 0 ? C_value << C_count : C_value >> -C_count);
1670 } 1670 }
1671 return val; 1671 return val;
1672 } 1672 }
1673 1673