Patch for VC package for CVS on Microsoft Windows

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