From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 13 Apr 1995 16:05:43 +0000 (+0000)
Subject: (scan_c_file): At end, restore file name last char to its original value.
X-Git-Tag: emacs-19.34~4445
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1feb8ae1f5de89da5e38b1764772b4effe1e2b0e;p=emacs.git

(scan_c_file): At end, restore file name last char to its original value.
---

diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c
index df9c6e069f5..006600e162d 100644
--- a/lib-src/make-docfile.c
+++ b/lib-src/make-docfile.c
@@ -322,8 +322,9 @@ scan_c_file (filename, mode)
   register int defvarperbufferflag;
   register int defvarflag;
   int minargs, maxargs;
+  int extension = filename[strlen (filename) - 1];
 
-  if (filename[strlen (filename) - 1] == 'o')
+  if (extension == 'o')
     filename[strlen (filename) - 1] = 'c';
 
   infile = fopen (filename, mode);
@@ -335,6 +336,9 @@ scan_c_file (filename, mode)
       return 0;
     }
 
+  /* Reset extension to be able to detect duplicate files. */
+  filename[strlen (filename) - 1] = extension;
+
   c = '\n';
   while (!feof (infile))
     {