Mercurial > emacs

comparison lisp/vc-hooks.el @ 24902:5fc7c26535d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-find-cvs-master): Set case-fold-search correctly.
author André Spiegel <spiegel@gnu.org>
date Wed, 30 Jun 1999 07:10:20 +0000
parents 295cf395a392
children debabcd474f5
comparison
equal deleted inserted replaced
24901:f294890b7555 24902:5fc7c26535d5
3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998 Free Software Foundation, Inc.
4 4
5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> 5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
6 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de> 6 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
7 7
8 ;; $Id: vc-hooks.el,v 1.112 1998/09/14 17:26:39 fx Exp kwzh $ 8 ;; $Id: vc-hooks.el,v 1.113 1998/11/11 18:47:32 kwzh Exp $
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
877 ;; The function returns nil if DIRNAME/BASENAME is not handled by CVS. 877 ;; The function returns nil if DIRNAME/BASENAME is not handled by CVS.
878 (if (and vc-handle-cvs 878 (if (and vc-handle-cvs
879 (file-directory-p (concat dirname "CVS/")) 879 (file-directory-p (concat dirname "CVS/"))
880 (file-readable-p (concat dirname "CVS/Entries"))) 880 (file-readable-p (concat dirname "CVS/Entries")))
881 (let ((file (concat dirname basename)) 881 (let ((file (concat dirname basename))
882 ;; make sure that the file name is searched
883 ;; case-sensitively
884 (case-fold-search nil)
885 buffer) 882 buffer)
886 (unwind-protect 883 (unwind-protect
887 (save-excursion 884 (save-excursion
888 (setq buffer (set-buffer (get-buffer-create "*vc-info*"))) 885 (setq buffer (set-buffer (get-buffer-create "*vc-info*")))
889 (vc-insert-file (concat dirname "CVS/Entries")) 886 (vc-insert-file (concat dirname "CVS/Entries"))
890 (goto-char (point-min)) 887 (goto-char (point-min))
888 ;; make sure that the file name is searched
889 ;; case-sensitively - case-fold-search is a buffer-local
890 ;; variable, so setting it here won't affect any other buffers
891 (setq case-fold-search nil)
891 (cond 892 (cond
892 ;; entry for a "locally added" file (not yet committed) 893 ;; entry for a "locally added" file (not yet committed)
893 ((re-search-forward 894 ((re-search-forward
894 (concat "^/" (regexp-quote basename) "/0/") nil t) 895 (concat "^/" (regexp-quote basename) "/0/") nil t)
895 (vc-file-setprop file 'vc-checkout-time 0) 896 (vc-file-setprop file 'vc-checkout-time 0)