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

(vc-dir-mode): Run it.

2 files changed, 15 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index afbc3a578b4..7ca0a5205f8 100644
--- a/lisp/ChangeLog
+++ b/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>
diff --git a/lisp/vc.el b/lisp/vc.el
index 451da02435d..81762b69093 100644
--- a/lisp/vc.el
+++ b/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)