When opening files on Windows, XEmacs does not maintain the filename
case for existing files. The particular case that makes this a
nuisance for me is using makefiles for a "largish" project under CVS
control, compiling with the Visual C++ compiler set to write out
complete pathnames for the files. When this is the case, for some
reason that really escapes me, cl.exe leaves me with pathnames in all
lower case. When calling next-error / C-x ` to bring up a file with a
warning or error, correcting the problem and finally saving the file
using C-x C-s, I've suddenly changed the capitalization of the
filename on disk. CVS understandably does not particularly like this
(thinks the properly named file is missing and thinks the
all-lower-case named file is a new, not yet added file).
For the moment, I have written a little bit of code to correct the
filename for me, whenever find-file is used to load something, using
the find-file-hooks hook. Essentially what my piece of code does is to
list all files in the directory of the file being loaded, and looks
for a file that is the same, ignoring case. If found, it will set the
visited filename to the found name, otherwise it uses the name that
was given. I'm sure my code is not ideal and may not be suitable for
everyone, but at least it solves my problem at the moment.
Having said that my code solves my problem, I would like to stress
that I would feel more comfortable if XEmacs maintained the case for
existing files (without me poking at stuff I don't necessarily
understand) regardless of what case was specified in the request.
Obviously, this is only relevant for system that are not
case-sensitive and will not allow multiple files with names differing
only by case.
My google searches didn't really leave me with any clues as to whether
this has been discussed by anyone else at some point in time. If I've
missed something somewhere, including existing options to deal with
this behaviour, my apologies.
(defun find-file-hook-filter (l name)
(if (eq l nil)
(if (string-equal (downcase name) (downcase (car l)))
(find-file-hook-filter (cdr l) name))))
(defun my-find-file-hook ()
(let ((candidates (file-name-all-completions
(add-hook 'find-file-hooks 'my-find-file-hook)
XEmacs-Beta mailing list