Mercurial > hg > xemacs-beta

comparison modules/zlib/zlib.c @ 388:aabb7f5b1c81 r21-2-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-9
author cvs
date Mon, 13 Aug 2007 11:09:42 +0200
parents 8efd647ea9ca
children
comparison
equal deleted inserted replaced
387:f892a9d0bb8d 388:aabb7f5b1c81
20 20
21 /* Synched up with: Not in FSF. */ 21 /* Synched up with: Not in FSF. */
22 22
23 /* Author: William Perry <wmperry@aventail.com> */ 23 /* Author: William Perry <wmperry@aventail.com> */
24 24
25 #include <config.h> 25 #include <emodules.h>
26
27 #include "lisp.h"
28 26
29 DEFUN ("compress", Fcompress, 1, 6, 0, /* 27 DEFUN ("compress", Fcompress, 1, 6, 0, /*
30 Return the compressed version of an object. 28 Return the compressed version of an object.
31 OBJECT is either a string or a buffer. 29 OBJECT is either a string or a buffer.
32 Optional argument LEVEL specifies how much to compress - valid range is 0 - 9. 30 Optional argument LEVEL specifies how much to compress - valid range is 0 - 9.
56 { 54 {
57 return(Qnil); 55 return(Qnil);
58 } 56 }
59 57
60 void 58 void
61 syms_of (void) 59 syms_of_zlib (void)
62 { 60 {
63 DEFSUBR(Fcompress); 61 DEFSUBR(Fcompress);
64 DEFSUBR(Fdecompress); 62 DEFSUBR(Fdecompress);
65 } 63 }
66 64
67 void 65 void
68 vars_of (void) 66 vars_of_zlib (void)
69 { 67 {
70 Fprovide (intern ("zlib")); 68 Fprovide (intern ("zlib"));
71 } 69 }