Mercurial > emacs
comparison lisp/vc-arch.el @ 55873:304d478aa594
(vc-arch-state): Don't assume the file exists.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 01 Jun 2004 00:25:50 +0000 |
| parents | 45f2afeb662b |
| children | 9d529d2aac14 4c90ffeb71c5 |
comparison
equal
deleted
inserted
replaced
| 55872:f48e0e8c2740 | 55873:304d478aa594 |
|---|---|
| 270 "\t.*mtime=\\([0-9]+\\):size=\\([0-9]+\\)" | 270 "\t.*mtime=\\([0-9]+\\):size=\\([0-9]+\\)" |
| 271 (line-end-position) t)) | 271 (line-end-position) t)) |
| 272 ;; Buh? Unexpected format. | 272 ;; Buh? Unexpected format. |
| 273 'edited | 273 'edited |
| 274 (let ((ats (file-attributes file))) | 274 (let ((ats (file-attributes file))) |
| 275 (if (and (= (nth 7 ats) (string-to-number (match-string 2))) | 275 (if (and (eq (nth 7 ats) (string-to-number (match-string 2))) |
| 276 (equal (format-time-string "%s" (nth 5 ats)) | 276 (equal (format-time-string "%s" (nth 5 ats)) |
| 277 (match-string 1))) | 277 (match-string 1))) |
| 278 'up-to-date | 278 'up-to-date |
| 279 'edited))))))))) | 279 'edited))))))))) |
| 280 | 280 |