Parent Directory | Revision Log | Patch
revision 1.401 by rms, Sun Apr 24 21:32:28 2005 UTC | revision 1.402 by lektu, Mon May 16 11:16:34 2005 UTC | |
---|---|---|
# | Line 1990 is non-nil if the user has supplied the | Line 1990 is non-nil if the user has supplied the |
1990 | header-end t) | header-end t) |
1991 | (let ((beg (point)) | (let ((beg (point)) |
1992 | (eol (progn (end-of-line) (point)))) | (eol (progn (end-of-line) (point)))) |
1993 | (string-to-int (buffer-substring beg eol))))))) | (string-to-number (buffer-substring beg eol))))))) |
1994 | (and size | (and size |
1995 | (if (and (natnump size) | (if (and (natnump size) |
1996 | (<= (+ header-end size) (point-max)) | (<= (+ header-end size) (point-max)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |