# HG changeset patch # User Andr Spiegel # Date 930726620 0 # Node ID 5fc7c26535d50daa0b3e435dce1ef0e0c0406b3b # Parent f294890b755529efd0ca2daaf517af6e235972c5 (vc-find-cvs-master): Set case-fold-search correctly. diff -r f294890b7555 -r 5fc7c26535d5 lisp/vc-hooks.el --- a/lisp/vc-hooks.el Tue Jun 29 17:23:16 1999 +0000 +++ b/lisp/vc-hooks.el Wed Jun 30 07:10:20 1999 +0000 @@ -5,7 +5,7 @@ ;; Author: Eric S. Raymond ;; Maintainer: Andre Spiegel -;; $Id: vc-hooks.el,v 1.112 1998/09/14 17:26:39 fx Exp kwzh $ +;; $Id: vc-hooks.el,v 1.113 1998/11/11 18:47:32 kwzh Exp $ ;; This file is part of GNU Emacs. @@ -879,15 +879,16 @@ (file-directory-p (concat dirname "CVS/")) (file-readable-p (concat dirname "CVS/Entries"))) (let ((file (concat dirname basename)) - ;; make sure that the file name is searched - ;; case-sensitively - (case-fold-search nil) buffer) (unwind-protect (save-excursion (setq buffer (set-buffer (get-buffer-create "*vc-info*"))) (vc-insert-file (concat dirname "CVS/Entries")) (goto-char (point-min)) + ;; make sure that the file name is searched + ;; case-sensitively - case-fold-search is a buffer-local + ;; variable, so setting it here won't affect any other buffers + (setq case-fold-search nil) (cond ;; entry for a "locally added" file (not yet committed) ((re-search-forward