emacs vc-dir hide unregistered files

(add-hook 'vc-dir-mode-hook 'my-vc-dir-mode-hook)

(defun my-vc-dir-mode-hook ()
  (local-set-key (kbd "d") 'vc-diff)
  (local-set-key (kbd "0") (lambda ()
                             (interactive)                             
                             (vc-dir-hide-state 'unregistered))))