# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1206656290 0
# Node ID f6aa1bf031f51f5dda9dd11f19373c2b8e90da4c
# Parent  e430e106fa7bab8bb5407d274ae156b1cb464281
(vc-hg-state, vc-hg-dir-state): Deal with 'missing
files.

diff -r e430e106fa7b -r f6aa1bf031f5 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Mar 27 22:15:54 2008 +0000
+++ b/lisp/ChangeLog	Thu Mar 27 22:18:10 2008 +0000
@@ -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 -r e430e106fa7b -r f6aa1bf031f5 lisp/vc-hg.el
--- a/lisp/vc-hg.el	Thu Mar 27 22:15:54 2008 +0000
+++ b/lisp/vc-hg.el	Thu Mar 27 22:18:10 2008 +0000
@@ -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)))