Mercurial > hg > xemacs-beta

diff src/fileio.c @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents cca96a509cfe
children 538048ae2ab8
line wrap: on
line diff
--- a/src/fileio.c	Mon Aug 13 09:26:04 2007 +0200
+++ b/src/fileio.c	Mon Aug 13 09:26:39 2007 +0200
@@ -2480,7 +2480,7 @@
        (filename))
 
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.10. */
   Lisp_Object abspath;
   Lisp_Object handler;
   struct gcpro gcpro1;
@@ -2506,16 +2506,14 @@
 */
        (filename))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.10. */
   Lisp_Object abspath;
   Lisp_Object handler;
   int desc;
   struct gcpro gcpro1;
   
-  GCPRO1 (filename);
   CHECK_STRING (filename);
   abspath = Fexpand_file_name (filename, Qnil);
-  UNGCPRO;
 
   /* If the file name has special constructs in it,
      call the corresponding file handler.  */
@@ -2539,7 +2537,7 @@
 */
        (filename))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.10. */
   Lisp_Object abspath, dir;
   Lisp_Object handler;
   struct stat statbuf;
@@ -2584,7 +2582,7 @@
 */
        (filename))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.10. */
 #ifdef S_IFLNK
   char *buf;
   int bufsize;
@@ -2636,7 +2634,7 @@
 */
        (filename))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.10. */
   Lisp_Object abspath;
   struct stat st;
   Lisp_Object handler;
@@ -2670,7 +2668,7 @@
 */
        (filename))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.10. */
   Lisp_Object handler;
 
   /* If the file name has special constructs in it,
@@ -2692,7 +2690,7 @@
 */
        (filename))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.10. */
   Lisp_Object abspath;
   struct stat st;
   Lisp_Object handler;
@@ -2720,7 +2718,7 @@
 */
        (filename))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.10. */
   Lisp_Object abspath;
   struct stat st;
   Lisp_Object handler;
@@ -2755,7 +2753,7 @@
 */
        (filename, mode))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.10. */
   Lisp_Object abspath;
   Lisp_Object handler;
   struct gcpro gcpro1;
@@ -2833,7 +2831,7 @@
 */
        (file1, file2))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.10. */
   Lisp_Object abspath1, abspath2;
   struct stat st;
   int mtime1;