Hi there,
I use XEmacs on MSWindows, and make extensive use of the VC package for my
source files which are under CVS. Occasionally I encounter a file which is
stored in CVS in CamelCase, but I visited the file in xemacs by entering the
name in lowercase (which can happen, since windows filenames are
case-insensitive). In these circumstances the VC module doesn't recognize the
file as being under CVS control, since the name doesn't match the CVS/Entries
file entry.
I therefore wish to submit the following patch to vc-hooks.el, which forces a
case-insentive comparison for mswindows systems:
Index: vc-hooks.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vc/vc-hooks.el,v
retrieving revision 1.12
diff -c -4 -r1.12 vc-hooks.el
*** vc-hooks.el 2003/10/27 15:09:55 1.12
--- vc-hooks.el 2006/01/11 14:44:23
***************
*** 909,917 ****
(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
(concat "^/" (regexp-quote basename) "/0/") nil t)
--- 909,917 ----
(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 (eq window-system 'mswindows))
(cond
;; entry for a "locally added" file (not yet committed)
((re-search-forward
(concat "^/" (regexp-quote basename) "/0/") nil t)
Anthony
--
Anthony Williams
Software Developer
Just Software Solutions Ltd
http://www.justsoftwaresolutions.co.uk