Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
5437:002cb5224e4f 5438:8d29f1c4bb98
840 return X_OK; 840 return X_OK;
841 else if (EQ (mode, Qwritable)) 841 else if (EQ (mode, Qwritable))
842 return W_OK; 842 return W_OK;
843 else if (EQ (mode, Qreadable)) 843 else if (EQ (mode, Qreadable))
844 return R_OK; 844 return R_OK;
845 else if (INTP (mode)) 845 else if (INTEGERP (mode))
846 { 846 {
847 check_int_range (XINT (mode), 0, 7); 847 check_integer_range (mode, Qzero, make_int (7));
848 return XINT (mode); 848 return XINT (mode);
849 } 849 }
850 else 850 else
851 invalid_argument ("Invalid value", mode); 851 invalid_argument ("Invalid value", mode);
852 return 0; /* unreached */ 852 return 0; /* unreached */