diff options
author | André Spiegel <spiegel@gnu.org> | 1999-06-30 07:10:20 +0000 |
---|---|---|
committer | André Spiegel <spiegel@gnu.org> | 1999-06-30 07:10:20 +0000 |
commit | 9fe89e73089d74e3d8fa54a4f31d259696e10f08 (patch) | |
tree | 727b7fa1a71383d4f9c5d30733bf2b36a129eda3 | |
parent | 0e6f68deacee2b07614b3af8b55bfa75a2afa82d (diff) | |
download | emacs-9fe89e73089d74e3d8fa54a4f31d259696e10f08.tar.gz |
(vc-find-cvs-master): Set case-fold-search correctly.
-rw-r--r-- | lisp/vc-hooks.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 46630d24a57..da42dcbc12e 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -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 @@ For CVS, the full name of CVS/Entries is returned." (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 |