Mercurial > hg > xemacs-beta

diff src/lread.c @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 558f606b08ae
children 9ea74add5d37
line wrap: on
line diff
--- a/src/lread.c	Mon Aug 13 10:35:07 2007 +0200
+++ b/src/lread.c	Mon Aug 13 10:35:54 2007 +0200
@@ -1898,7 +1898,7 @@
     }
 
   {
-    EMACS_INT int_result = negativland ? -num : num;
+    EMACS_INT int_result = negativland ? - (EMACS_INT) num : (EMACS_INT) num;
     Lisp_Object result = make_int (int_result);
     if (num && ((XINT (result) < 0) != negativland))
       goto overflow;