(vc-hg-state, vc-hg-dir-state): Deal with 'missing

files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b939374d03e24bffe27f3e682693111b3592ec34..171bb3f7f0f7452fa72b09aefb33d690d3138d78 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-03-27  Dan Nicolaescu  <dann@ics.uci.edu>
 
+       * vc-hg.el (vc-hg-state, vc-hg-dir-state): Deal with 'missing 
+       files.
+
        * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Fix predicate.
 
 2008-03-27  Stefan Monnier  <monnier@iro.umontreal.ca>

diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index ac87336d5d76fb5193a4af87254754a2a1aafd02..abf64a7f9879a52c1fbc6629e6c7ed8257427386 100644 (file)
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -177,6 +177,7 @@
             ((eq state ?M) 'edited)
             ((eq state ?I) 'ignored)
             ((eq state ?R) 'removed)
+            ((eq state ?!) 'missing)
             ((eq state ??) 'unregistered)
             ((eq state ?C) 'up-to-date) ;; Older mercurials use this
             (t 'up-to-date)))))))
@@ -222,7 +223,8 @@
          (vc-file-setprop file 'vc-backend 'none)
          (vc-file-setprop file 'vc-state 'unregistered))
         ((eq status-char ?!)
-         nil)
+         (vc-file-setprop file 'vc-backend 'Hg)
+         (vc-file-setprop file 'vc-state 'missing))
         (t     ;; Presently C, might change to = in 0.9.6
          (vc-file-setprop file 'vc-backend 'Hg)
          (vc-file-setprop file 'vc-state 'up-to-date)))