Mercurial > emacs

comparison lisp/vc-hooks.el @ 54613:51811f399af0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-file-not-found-hook): Fix typo. From lorentey@elte.hu (L?rentey K?ly).
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 28 Mar 2004 17:38:03 +0000
parents 225341adbb0d
children 507f2c946725 38afc630f7a0
comparison
equal deleted inserted replaced
54612:ce6a58ba4c84 54613:51811f399af0
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: FSF (see vc.el for full credits) 6 ;; Author: FSF (see vc.el for full credits)
7 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 7 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
8 8
9 ;; $Id: vc-hooks.el,v 1.163 2004/03/23 20:59:19 monnier Exp $ 9 ;; $Id: vc-hooks.el,v 1.164 2004/03/26 06:06:39 spiegel Exp $
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
13 ;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
770 Used in `find-file-not-found-functions'." 770 Used in `find-file-not-found-functions'."
771 ;; When a file does not exist, ignore cached info about it 771 ;; When a file does not exist, ignore cached info about it
772 ;; from a previous visit. 772 ;; from a previous visit.
773 (vc-file-clearprops buffer-file-name) 773 (vc-file-clearprops buffer-file-name)
774 (let ((backend (vc-backend buffer-file-name))) 774 (let ((backend (vc-backend buffer-file-name)))
775 (if backend (vc-call-backend backend find-file-not-found-hook)))) 775 (if backend (vc-call-backend backend 'find-file-not-found-hook))))
776 776
777 (defun vc-default-find-file-not-found-hook (backend) 777 (defun vc-default-find-file-not-found-hook (backend)
778 (if (yes-or-no-p 778 (if (yes-or-no-p
779 (format "File %s was lost; check out from version control? " 779 (format "File %s was lost; check out from version control? "
780 (file-name-nondirectory buffer-file-name))) 780 (file-name-nondirectory buffer-file-name)))