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

(vc-dir-mode): Run it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index afbc3a578b4377e5930aba81e416c63e35516491..7ca0a5205f86d7562da6aac959d7ae1871fb5ba6 100644 (file)
--- 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 451da02435d0f7c20fbf864fc18ce616a57e349c..81762b69093b7af103f3d52597685abcabd10b16 100644 (file)
--- 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)