(echolisp): New rule.

[gnu-emacs] / lib-src / make-docfile.c

diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c
index 945a92076d2dd3242846581b0a9b602014dbc05c..ad366bb2e064303d6994f6c2c62b3c323fa26d32 100644 (file)
--- a/lib-src/make-docfile.c
+++ b/lib-src/make-docfile.c
@@ -1,6 +1,6 @@
 /* Generate doc-string file for GNU Emacs from source files.
    Copyright (C) 1985, 1986, 1992, 1993, 1994, 1997, 1999, 2000, 2001,
-                 2002, 2003, 2004, 2005, 2006, 2007, 2008
+                 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
                  Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
@@ -907,9 +907,8 @@ scan_lisp_file (filename, mode)
              length--;
 
              /* Read in the contents.  */
-             if (saved_string != 0)
-               free (saved_string);
-             saved_string = (char *) malloc (length);
+             free (saved_string);
+             saved_string = (char *) xmalloc (length);
              for (i = 0; i < length; i++)
                saved_string[i] = getc (infile);
              /* The last character is a ^_.