Parent Directory | Revision Log | Patch
revision 1.3.2.4 by miles, Tue Jul 6 09:31:50 2004 UTC | revision 1.3.2.5 by miles, Tue Jul 6 09:38:17 2004 UTC | |
---|---|---|
# | Line 272 Return non-nil if FILE is unchanged." | Line 272 Return non-nil if FILE is unchanged." |
272 | ;; Buh? Unexpected format. | ;; Buh? Unexpected format. |
273 | 'edited | 'edited |
274 | (let ((ats (file-attributes file))) | (let ((ats (file-attributes file))) |
275 | (if (and (= (nth 7 ats) (string-to-number (match-string 2))) | (if (and (eq (nth 7 ats) (string-to-number (match-string 2))) |
276 | (equal (format-time-string "%s" (nth 5 ats)) | (equal (format-time-string "%s" (nth 5 ats)) |
277 | (match-string 1))) | (match-string 1))) |
278 | 'up-to-date | 'up-to-date |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |