Mercurial > emacs
changeset 94478:618e87ee72c0
(vc-dir-mode-hook): Add normal hook.
(vc-dir-mode): Run it.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Tue, 29 Apr 2008 13:42:15 +0000 |
| parents | c5e171cb3acf |
| children | 0e056b86de6f |
| files | lisp/ChangeLog lisp/vc.el |
| diffstat | 2 files changed, 15 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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>
--- 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)