(vc-dir-mode-hook): Add normal hook.

(vc-dir-mode): Run it.

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2008-04-29  Sam Steingold  <sds@gnu.org>
+
+	* vc.el (vc-dir-mode-hook): Add normal hook.
+	(vc-dir-mode): Run it.
+
 2008-04-29  Nick Roberts  <nickrob@snap.net.nz>
 
 	* progmodes/gdb-ui.el (gdb-display-buffer): Don't pop up GUD buffer.
@@ -6,7 +11,7 @@
 	(gdb-same-frame): Reverse initial value.
 	(gdb-display-gdb-buffer): Check for GUD buffer in other frames.
 
-	* progmodes/gud.el (gud-speedbar-buttons): Raise frame in 
+	* progmodes/gud.el (gud-speedbar-buttons): Raise frame in
 	gdb-speedbar-timer-fn.
 
 2008-04-29  Stefan Monnier  <monnier@iro.umontreal.ca>

lisp/vc.el

@@ -832,6 +832,12 @@ version control backend imposes itself."
   :type 'hook
   :group 'vc)
 
+(defcustom vc-dir-mode-hook nil
+  "Normal hook run by `vc-dir-mode'.
+See `run-hooks'."
+  :type 'hook
+  :group 'vc)
+
 ;; Annotate customization
 (defcustom vc-annotate-color-map
   (if (and (tty-display-color-p) (<= (display-color-cells) 8))
@@ -1592,7 +1598,7 @@ merge in the changes into your working copy."
 	(setq model (vc-checkout-model (car files)))
 	(setq state (vc-state file))
 	(return)))
-    
+
     ;; Verify that the fileset is homogeneous
     (dolist (file (cdr files))
       ;; Ignore directories, they are compatible with anything.
@@ -3046,7 +3052,8 @@ specific headers."
     ;; Make sure that if the VC status buffer is killed, the update
     ;; process running in the background is also killed.
     (add-hook 'kill-buffer-query-functions 'vc-dir-kill-query nil t)
-    (vc-dir-refresh)))
+    (vc-dir-refresh))
+  (run-hooks 'vc-dir-mode-hook))
 
 (put 'vc-dir-mode 'mode-class 'special)