/[emacs]/emacs/lisp/vc-arch.el
ViewVC logotype

Diff of /emacs/lisp/vc-arch.el

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

revision 1.7 by monnier, Fri May 28 23:04:07 2004 UTC revision 1.8 by monnier, Tue Jun 1 00:25:50 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

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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