From: Sam Steingold Date: Tue, 29 Apr 2008 13:42:15 +0000 (+0000) Subject: (vc-dir-mode-hook): Add normal hook. X-Git-Tag: emacs-pretest-23.0.90~5944 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac2c49f4e9d920cd2af67097924a19f9cf5c0787;p=emacs.git (vc-dir-mode-hook): Add normal hook. (vc-dir-mode): Run it. --- 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 + + * vc.el (vc-dir-mode-hook): Add normal hook. + (vc-dir-mode): Run it. + 2008-04-29 Nick Roberts * 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 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)