/[emacs]/emacs/src/lread.c
ViewVC logotype

Diff of /emacs/src/lread.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.280 by monnier, Mon Mar 4 23:40:59 2002 UTC revision 1.281 by gerd, Mon Mar 11 18:41:10 2002 UTC
# Line 776  Return t if file exists.  */) Line 776  Return t if file exists.  */)
776            stat ((char *)XSTRING (found)->data, &s1);            stat ((char *)XSTRING (found)->data, &s1);
777            XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 0;            XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 0;
778            result = stat ((char *)XSTRING (found)->data, &s2);            result = stat ((char *)XSTRING (found)->data, &s2);
779              XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 'c';
780              
781            if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime)            if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime)
782              {              {
783                /* Make the progress messages mention that source is newer.  */                /* Make the progress messages mention that source is newer.  */
784                newer = 1;                newer = 1;
785    
786                /* If we won't print another message, mention this anyway.  */                /* If we won't print another message, mention this anyway.  */
787                if (! NILP (nomessage))                if (!NILP (nomessage))
788                  message_with_string ("Source file `%s' newer than byte-compiled file",                  {
789                                       found, 1);                    Lisp_Object file;
790                      file = Fsubstring (found, make_number (0), make_number (-1));
791                      message_with_string ("Source file `%s' newer than byte-compiled file",
792                                           file, SMBP (file));
793                    }
794              }              }
           XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 'c';  
795          }          }
796      }      }
797    else    else

Legend:
Removed from v.1.280  
changed lines
  Added in v.1.281

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26