# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1209476535 0
# Node ID 618e87ee72c04cf77af35d89e7581f09d8042a16
# Parent  c5e171cb3acfdff1f782f8a169daaa524029ad8d
(vc-dir-mode-hook): Add normal hook.
(vc-dir-mode): Run it.

diff -r c5e171cb3acf -r 618e87ee72c0 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Apr 29 11:03:40 2008 +0000
+++ b/lisp/ChangeLog	Tue Apr 29 13:42:15 2008 +0000
@@ -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>
diff -r c5e171cb3acf -r 618e87ee72c0 lisp/vc.el
--- a/lisp/vc.el	Tue Apr 29 11:03:40 2008 +0000
+++ b/lisp/vc.el	Tue Apr 29 13:42:15 2008 +0000
@@ -832,6 +832,12 @@
   :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 @@
 	(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 @@
     ;; 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)