Mercurial > emacs
changeset 50880:c4ef9b4c327f
(find-file-hook, find-file-not-found-hook): Don't use the old ...-hooks.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 07 May 2003 17:22:28 +0000 |
| parents | 9cd7a1a60ba0 |
| children | b042c57894f8 |
| files | lisp/vc-hooks.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Wed May 07 17:20:29 2003 +0000 +++ b/lisp/vc-hooks.el Wed May 07 17:22:28 2003 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> -;; $Id: vc-hooks.el,v 1.147 2003/02/05 23:14:06 lektu Exp $ +;; $Id: vc-hooks.el,v 1.148 2003/05/07 17:20:29 monnier Exp $ ;; This file is part of GNU Emacs. @@ -633,7 +633,7 @@ (kill-buffer this-buffer)))) (defun vc-find-file-hook () - "Function for `find-file-hooks' activating VC mode if appropriate." + "Function for `find-file-hook' activating VC mode if appropriate." ;; Recompute whether file is version controlled, ;; if user has killed the buffer and revisited. (if vc-mode @@ -676,13 +676,13 @@ "Warning: editing through the link bypasses version control") ))))))))) -(add-hook 'find-file-hooks 'vc-find-file-hook) +(add-hook 'find-file-hook 'vc-find-file-hook) ;; more hooks, this time for file-not-found (defun vc-file-not-found-hook () "When file is not found, try to check it out from version control. Returns t if checkout was successful, nil otherwise. -Used in `find-file-not-found-hooks'." +Used in `find-file-not-found-hook'." ;; When a file does not exist, ignore cached info about it ;; from a previous visit. (vc-file-clearprops buffer-file-name) @@ -695,7 +695,7 @@ (setq default-directory (file-name-directory buffer-file-name)) (not (vc-error-occurred (vc-checkout buffer-file-name)))))) -(add-hook 'find-file-not-found-hooks 'vc-file-not-found-hook) +(add-hook 'find-file-not-found-hook 'vc-file-not-found-hook) (defun vc-kill-buffer-hook () "Discard VC info about a file when we kill its buffer."