Mercurial > hg > xemacs-beta

diff src/lread.c @ 5438:8d29f1c4bb98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with 21.5 trunk.
author Mats Lidell <matsl@xemacs.org>
date Fri, 26 Nov 2010 06:43:36 +0100
parents 308d34e9f07d c096d8051f89
children 159face738c3
line wrap: on
line diff
--- a/src/lread.c	Mon Nov 15 22:33:52 2010 +0100
+++ b/src/lread.c	Fri Nov 26 06:43:36 2010 +0100
@@ -842,9 +842,9 @@
     return W_OK;
   else if (EQ (mode, Qreadable))
     return R_OK;
-  else if (INTP (mode))
+  else if (INTEGERP (mode))
     {
-      check_int_range (XINT (mode), 0, 7);
+      check_integer_range (mode, Qzero, make_int (7));
       return XINT (mode);
     }
   else