X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/8809a9f99783685e43e9d2215961388b20298f8b..1e11dbe3d862434ded0d5718f737f1f03f3141be:/src/doc.c
diff --git a/src/doc.c b/src/doc.c
index f8ab9d081b..7caa88a7b5 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -25,19 +25,12 @@ along with GNU Emacs. If not, see . */
#include /* Must be after sys/types.h for USG*/
#include
#include
-
-#ifdef HAVE_FCNTL_H
#include
-#endif
#ifdef HAVE_UNISTD_H
#include
#endif
-#ifndef O_RDONLY
-#define O_RDONLY 0
-#endif
-
#include "lisp.h"
#include "buffer.h"
#include "keyboard.h"
@@ -99,8 +92,8 @@ get_doc_string (Lisp_Object filepos, int unibyte, int definition)
register int fd;
register char *name;
register char *p, *p1;
- int minsize;
- int offset, position;
+ EMACS_INT minsize;
+ EMACS_INT offset, position;
Lisp_Object file, tem;
if (INTEGERP (filepos))
@@ -179,14 +172,14 @@ get_doc_string (Lisp_Object filepos, int unibyte, int definition)
p = get_doc_string_buffer;
while (1)
{
- int space_left = (get_doc_string_buffer_size
- - (p - get_doc_string_buffer));
+ EMACS_INT space_left = (get_doc_string_buffer_size
+ - (p - get_doc_string_buffer));
int nread;
/* Allocate or grow the buffer if we need to. */
if (space_left == 0)
{
- int in_buffer = p - get_doc_string_buffer;
+ EMACS_INT in_buffer = p - get_doc_string_buffer;
get_doc_string_buffer_size += 16 * 1024;
get_doc_string_buffer
= (char *) xrealloc (get_doc_string_buffer,
@@ -286,8 +279,8 @@ get_doc_string (Lisp_Object filepos, int unibyte, int definition)
else
{
/* The data determines whether the string is multibyte. */
- int nchars = multibyte_chars_in_text (get_doc_string_buffer + offset,
- to - (get_doc_string_buffer + offset));
+ EMACS_INT nchars = multibyte_chars_in_text (get_doc_string_buffer + offset,
+ to - (get_doc_string_buffer + offset));
return make_string_from_bytes (get_doc_string_buffer + offset,
nchars,
to - (get_doc_string_buffer + offset));
@@ -551,8 +544,8 @@ the same file name is found in the `doc-directory'. */)
{
int fd;
char buf[1024 + 1];
- register int filled;
- register int pos;
+ register EMACS_INT filled;
+ register EMACS_INT pos;
register char *p, *end;
Lisp_Object sym;
char *name;
@@ -586,7 +579,7 @@ the same file name is found in the `doc-directory'. */)
for (beg = buildobj; *beg; beg = end)
{
- int len;
+ EMACS_INT len;
while (*beg && isspace (*beg)) ++beg;
@@ -633,7 +626,7 @@ the same file name is found in the `doc-directory'. */)
if (end - p > 4 && end[-2] == '.'
&& (end[-1] == 'o' || end[-1] == 'c'))
{
- int len = end - p - 2;
+ EMACS_INT len = end - p - 2;
char *fromfile = alloca (len + 1);
strncpy (fromfile, &p[2], len);
fromfile[len] = 0;
@@ -678,7 +671,7 @@ the same file name is found in the `doc-directory'. */)
}
pos += end - buf;
filled -= end - buf;
- memcpy (buf, end, filled);
+ memmove (buf, end, filled);
}
emacs_close (fd);
return Qnil;
@@ -705,16 +698,16 @@ a new string, without any text properties, is returned. */)
int changed = 0;
register unsigned char *strp;
register unsigned char *bufp;
- int idx;
- int bsize;
+ EMACS_INT idx;
+ EMACS_INT bsize;
Lisp_Object tem;
Lisp_Object keymap;
unsigned char *start;
- int length, length_byte;
+ EMACS_INT length, length_byte;
Lisp_Object name;
struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
int multibyte;
- int nchars;
+ EMACS_INT nchars;
if (NILP (string))
return Qnil;
@@ -766,7 +759,7 @@ a new string, without any text properties, is returned. */)
}
else if (strp[0] == '\\' && strp[1] == '[')
{
- int start_idx;
+ EMACS_INT start_idx;
int follow_remap = 1;
changed = 1;
@@ -805,7 +798,7 @@ a new string, without any text properties, is returned. */)
if (NILP (tem)) /* but not on any keys */
{
- int offset = bufp - buf;
+ EMACS_INT offset = bufp - buf;
buf = (unsigned char *) xrealloc (buf, bsize += 4);
bufp = buf + offset;
memcpy (bufp, "M-x ", 4);
@@ -828,7 +821,7 @@ a new string, without any text properties, is returned. */)
else if (strp[0] == '\\' && (strp[1] == '{' || strp[1] == '<'))
{
struct buffer *oldbuf;
- int start_idx;
+ EMACS_INT start_idx;
/* This is for computing the SHADOWS arg for describe_map_tree. */
Lisp_Object active_maps = Fcurrent_active_maps (Qnil, Qnil);
Lisp_Object earlier_maps;
@@ -899,7 +892,7 @@ a new string, without any text properties, is returned. */)
length_byte = SBYTES (tem);
subst:
{
- int offset = bufp - buf;
+ EMACS_INT offset = bufp - buf;
buf = (unsigned char *) xrealloc (buf, bsize += length_byte);
bufp = buf + offset;
memcpy (bufp, start, length_byte);