Mercurial > emacs
diff lisp/vc-hooks.el @ 24902:5fc7c26535d5
(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 |
line wrap: on
line diff
--- 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 <esr@snark.thyrsus.com> ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de> -;; $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