update.

[chise/xemacs-chise.git.1] / modules / base64 / base64.c

diff --git a/modules/base64/base64.c b/modules/base64/base64.c
index b65625f..2c5bac1 100644 (file)
--- a/modules/base64/base64.c
+++ b/modules/base64/base64.c
@@ -1,5 +1,5 @@
 /* base64 interface for XEmacs.
-   Copyright (C) 1998 Free Software Foundation, Inc.
+   Copyright (C) 1998, 1999 Free Software Foundation, Inc.
 
 This file is part of XEmacs.
 
@@ -22,15 +22,7 @@ Boston, MA 02111-1307, USA.  */
 
 /* Author: William Perry <wmperry@aventail.com> */
 
-#include <config.h>
-
-#include "lisp.h"
-#include "buffer.h"
-#include "insdel.h"
-#include "lstream.h"
-#ifdef FILE_CODING
-#include "file-coding.h"
-#endif
+#include <emodules.h>
 
 unsigned char alphabet[64] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
 
@@ -74,7 +66,7 @@ determined.  Else assume binary coding if all else fails.
        /* set up the in stream */
        if (BUFFERP (object))
        {
-               struct buffer *b = decode_buffer (object, 1);
+               struct buffer *b = XBUFFER (object);
                Bufpos begv, endv;
                /* Figure out where we need to get info from */
                get_buffer_range_char (b, start, end, &begv, &endv, GB_ALLOW_NIL);
@@ -264,7 +256,7 @@ determined.  Else assume binary coding if all else fails.
        /* set up the in stream */
        if (BUFFERP (object))
        {
-               struct buffer *b = decode_buffer (object, 1);
+               struct buffer *b = XBUFFER (object);
                Bufpos begv, endv;
                /* Figure out where we need to get info from */
                get_buffer_range_char (b, start, end, &begv, &endv, GB_ALLOW_NIL);
@@ -416,14 +408,14 @@ determined.  Else assume binary coding if all else fails.
 }
 
 void
-syms_of (void)
+syms_of_base64 (void)
 {
   DEFSUBR(Fbase64_encode);
   DEFSUBR(Fbase64_decode);
 }
 
 void
-vars_of (void)
+vars_of_base64 (void)
 {
   Fprovide (intern ("base64"));
 }