Commit c60ee5e7 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

Cygwin support patch.

parent 2454c12d
2003-01-31 Joe Buehler <jhpb@draco.hekimian.com>
* Makefile.in: Use @EXEEXT@ for Cygwin.
Use USERNAME if LOGNAME is not set (for Cygwin).
* configure.in:
* configure: Add opsys=cygwin.
2003-01-29 Kim F. Storm <storm@cua.dk>
* AUTHORS: Regenerated using new format (after fixing numerous
......
......@@ -215,8 +215,8 @@ INSTALL_STRIP =
TRANSFORM = @program_transform_name@
# What emacs should be called when installed.
EMACS = `echo emacs | sed '$(TRANSFORM)'`
EMACSFULL = `echo emacs-${version} | sed '$(TRANSFORM)'`
EMACS = `echo emacs@EXEEXT@ | sed '$(TRANSFORM)'`
EMACSFULL = `echo emacs-${version}@EXEEXT@ | sed '$(TRANSFORM)'`
# Subdirectories to make recursively. `lisp' is not included
# because the compiled lisp files are part of the distribution.
......@@ -358,7 +358,7 @@ install-arch-dep: mkdir
exec_prefix=${exec_prefix} bindir=${bindir} \
libexecdir=${libexecdir} archlibdir=${archlibdir} \
INSTALL_STRIP=${INSTALL_STRIP})
${INSTALL_PROGRAM} $(INSTALL_STRIP) src/emacs ${bindir}/$(EMACSFULL)
${INSTALL_PROGRAM} $(INSTALL_STRIP) src/emacs@EXEEXT@ ${bindir}/$(EMACSFULL)
-chmod 1755 ${bindir}/$(EMACSFULL)
rm -f ${bindir}/$(EMACS)
-ln ${bindir}/$(EMACSFULL) ${bindir}/$(EMACS)
......@@ -406,7 +406,7 @@ install-arch-indep: mkdir info
(cd $${dir}; tar -chf - . ) \
| (cd $${dest}; umask 022; \
tar -xvf - && cat > /dev/null) || exit 1; \
find $${dest} -exec chown $$LOGNAME {} ';' ;\
find $${dest} -exec chown $${LOGNAME:-$$USERNAME} {} ';' ;\
for subdir in `find $${dest} -type d ! -name RCS ! -name CVS -print` ; do \
chmod a+rx $${subdir} ; \
rm -rf $${subdir}/RCS ; \
......@@ -445,7 +445,7 @@ install-arch-indep: mkdir info
echo "Copying etc/DOC-* to ${docdir} ..." ; \
(cd ./etc; tar -chf - DOC*) \
|(cd ${docdir}; umask 022; tar -xvf - && cat > /dev/null) || exit 1; \
(cd $(docdir); chown $${LOGNAME} DOC*; chmod a+r DOC*; \
(cd $(docdir); chown $${LOGNAME:-$$USERNAME} DOC*; chmod a+r DOC*; \
if test "`echo DOC-*`" != "DOC-*"; then rm DOC; fi); \
else true; fi
-unset CDPATH; \
......@@ -457,7 +457,7 @@ install-arch-indep: mkdir info
echo "Copying lisp/*.el and lisp/*.elc to ${lispdir} ..." ; \
(cd lisp; tar -chf - *.el *.elc) \
|(cd ${lispdir}; umask 022; tar -xvf - && cat > /dev/null) || exit 1; \
(cd ${lispdir}; find . -exec chown $${LOGNAME} {} ';') ; \
(cd ${lispdir}; find . -exec chown $${LOGNAME:-$$USERNAME} {} ';') ; \
else true; fi
-unset CDPATH; \
thisdir=`/bin/pwd`; \
......@@ -735,7 +735,7 @@ maybe_bootstrap:
bootstrap: bootstrap-clean-before info FRC
(cd lisp; $(MAKE) $(MFLAGS) bootstrap-clean)
(cd src; $(MAKE) $(MFLAGS) bootstrap)
(cd lisp; $(MAKE) $(MFLAGS) bootstrap EMACS=../src/bootstrap-emacs)
(cd lisp; $(MAKE) $(MFLAGS) bootstrap EMACS=../src/bootstrap-emacs@EXEEXT@)
(cd src; $(MAKE) $(MFLAGS) mostlyclean)
$(MAKE) $(MFLAGS) all
(cd lisp; $(MAKE) $(MFLAGS) bootstrap-after)
......
......@@ -2493,6 +2493,7 @@ case "${canonical}" in
i[3456]86-*-* )
machine=intel386
case "${canonical}" in
*-cygwin ) opsys=cygwin ;;
*-lynxos* ) opsys=lynxos ;;
*-isc1.* | *-isc2.[01]* ) opsys=386-ix ;;
*-isc2.2* ) opsys=isc2-2 ;;
......
......@@ -1053,6 +1053,7 @@ case "${canonical}" in
i[3456]86-*-* )
machine=intel386
case "${canonical}" in
*-cygwin ) opsys=cygwin ;;
*-lynxos* ) opsys=lynxos ;;
*-isc1.* | *-isc2.[01]* ) opsys=386-ix ;;
*-isc2.2* ) opsys=isc2-2 ;;
......
2003-01-31 Joe Buehler <jhpb@draco.hekimian.com>
* MACHINES: Added Cygwin.
2003-01-27 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* DEBUG: Added note about xmon.
......
......@@ -637,7 +637,7 @@ Intel 386 (i386-*-isc, i386-*-esix, i386-*-bsdi2,
i386-*-xenix, i386-*-freebsd, i386-*-linux-gnu,
i386-*-sol2.4, i386-*-sysv3, i386-intsys-sysv,
i386-*-sysv4, i386-*-sysv4.2,
i386-*-sysv5.3, i386-*-bsd4.2,
i386-*-sysv5.3, i386-*-bsd4.2, i386-*-cygwin,
i386-*-sco3.2v4, i386-*-bsd386, i386-*-386bsd,
i386-*-msdos, i386-*-windowsnt.
i386... can be replaced with i486... or i586...)
......@@ -651,6 +651,8 @@ Intel 386 (i386-*-isc, i386-*-esix, i386-*-bsdi2,
i386-unknown-isc3.0 as your configuration name.
Use i386-*-esix for Esix; Emacs runs as of version 19.6.
Use i386-*-linux-gnu for GNU/Linux systems; Emacs runs as of version 19.26.
Use i386-*-cygwin for Cygwin; Emacs builds as of version 21.4, in both X11
and non-X11 modes. (The Cygwin site has source and binaries for 21.2.)
Use i386-intsys-sysv for Integrated Solutions 386 machines.
It may also be correct for Microport systems.
Use i386-*-sco3.2v4 for SCO 3.2v4; Emacs runs as of version 19.26.
......
......@@ -58,6 +58,8 @@ together with the Emacs User Manual, into the Info directory. A menu
item was added to the menu bar that makes it easy accessible
(Help->More Manuals->Introduction to Emacs Lisp).
** Support for Cygwin was added.
---
** Support for AIX 5.1 was added.
......
2003-01-31 Joe Buehler <jhpb@draco.hekimian.com>
* Makefile.in: Use @EXEEXT@ for Cygwin.
2003-01-21 Dave Love <fx@gnu.org>
* etags.c (Cplusplus_help, Cjava_help): Re-phrase and avoid
......
......@@ -100,15 +100,15 @@ INSTALL_STRIP =
# Things that a user might actually run,
# which should be installed in bindir.
INSTALLABLES = etags ctags emacsclient b2m ebrowse
INSTALLABLES = etags@EXEEXT@ ctags@EXEEXT@ emacsclient@EXEEXT@ b2m@EXEEXT@ ebrowse@EXEEXT@
INSTALLABLE_SCRIPTS = rcs-checkin grep-changelog
# Things that Emacs runs internally, or during the build process,
# which should not be installed in bindir.
UTILITIES= profile digest-doc sorted-doc movemail cvtmail fakemail \
yow hexl update-game-score
UTILITIES= profile@EXEEXT@ digest-doc@EXEEXT@ sorted-doc@EXEEXT@ movemail@EXEEXT@ cvtmail@EXEEXT@ fakemail@EXEEXT@ \
yow@EXEEXT@ hexl@EXEEXT@ update-game-score@EXEEXT@
DONT_INSTALL= test-distrib make-docfile
DONT_INSTALL= test-distrib@EXEEXT@ make-docfile@EXEEXT@
# Like UTILITIES, but they're not system-dependent, and should not be
# deleted by the distclean target.
......@@ -286,12 +286,12 @@ blessmail:
maybe-blessmail: BLESSMAIL
#ifdef MOVEMAIL_NEEDS_BLESSING
/* Don\'t charge ahead and do it! Let the installer decide.
./blessmail ${archlibdir}/movemail */
./blessmail ${archlibdir}/movemail@EXEEXT@ */
@if [ `wc -l <blessmail` != 2 ] ; then \
dir=`sed -n -e 's/echo mail directory = \(.*\)/\1/p' blessmail`; \
echo Assuming $$dir is really the mail spool directory, you should; \
echo run lib-src/blessmail ${archlibdir}/movemail; \
echo as root, to give movemail appropriate permissions.; \
echo run lib-src/blessmail ${archlibdir}/movemail@EXEEXT@; \
echo as root, to give movemail@EXEEXT@ appropriate permissions.; \
echo Do that after running make install.; \
fi
#endif
......@@ -372,14 +372,14 @@ check:
@echo "We don't have any tests for GNU Emacs yet."
tags: TAGS
TAGS: etags
TAGS: etags@EXEEXT@
etags *.[ch]
/* This verifies that the non-ASCII characters in the file \`testfile\'
have not been clobbered by whatever means were used to copy and
distribute Emacs. If they were clobbered, all the .elc files were
clobbered too. */
test-distrib: ${srcdir}/test-distrib.c
test-distrib@EXEEXT@: ${srcdir}/test-distrib.c
$(CC) ${ALL_CFLAGS} -o test-distrib ${srcdir}/test-distrib.c
./test-distrib ${srcdir}/testfile
......@@ -403,34 +403,34 @@ REGEXPDEPS = $(REGEXPOBJ) $(srcdir)/../src/regex.h
regex.o: $(srcdir)/../src/regex.c $(srcdir)/../src/regex.h ../src/config.h
${CC} -c ${BASE_CFLAGS} -DCONFIG_BROKETS -DINHIBIT_STRING_HEADER ${srcdir}/../src/regex.c
etags: ${srcdir}/etags.c $(GETOPTDEPS) $(REGEXPDEPS) ../src/config.h
etags@EXEEXT@: ${srcdir}/etags.c $(GETOPTDEPS) $(REGEXPDEPS) ../src/config.h
$(CC) ${ALL_CFLAGS} -DVERSION="\"${version}\"" ${srcdir}/etags.c $(GETOPTOBJS) $(REGEXPOBJ) $(LOADLIBES) -o etags
ebrowse: ${srcdir}/ebrowse.c $(GETOPTDEPS) ../src/config.h
ebrowse@EXEEXT@: ${srcdir}/ebrowse.c $(GETOPTDEPS) ../src/config.h
$(CC) ${ALL_CFLAGS} -DVERSION="\"${version}\"" ${srcdir}/ebrowse.c $(GETOPTOBJS) $(LOADLIBES) -o ebrowse
/* We depend on etags to assure that parallel makes don\'t write two
etags.o files on top of each other. */
ctags: etags
ctags@EXEEXT@: etags@EXEEXT@
$(CC) ${ALL_CFLAGS} -DCTAGS -DVERSION="\"${version}\"" ${srcdir}/etags.c $(GETOPTOBJS) $(REGEXPOBJ) $(LOADLIBES) -o ctags
profile: ${srcdir}/profile.c ../src/config.h
profile@EXEEXT@: ${srcdir}/profile.c ../src/config.h
$(CC) ${ALL_CFLAGS} ${srcdir}/profile.c $(LOADLIBES) -o profile
make-docfile: ${srcdir}/make-docfile.c ../src/config.h
make-docfile@EXEEXT@: ${srcdir}/make-docfile.c ../src/config.h
$(CC) ${ALL_CFLAGS} ${srcdir}/make-docfile.c $(LOADLIBES) -o make-docfile
digest-doc: ${srcdir}/digest-doc.c
digest-doc@EXEEXT@: ${srcdir}/digest-doc.c
$(CC) ${ALL_CFLAGS} ${srcdir}/digest-doc.c $(LOADLIBES) -o digest-doc
sorted-doc: ${srcdir}/sorted-doc.c ${ALLOCA}
sorted-doc@EXEEXT@: ${srcdir}/sorted-doc.c ${ALLOCA}
$(CC) ${ALL_CFLAGS} ${srcdir}/sorted-doc.c ${ALLOCA} $(LOADLIBES) -o sorted-doc
b2m: ${srcdir}/b2m.c ../src/config.h $(GETOPTDEPS)
b2m@EXEEXT@: ${srcdir}/b2m.c ../src/config.h $(GETOPTDEPS)
$(CC) ${ALL_CFLAGS} ${srcdir}/b2m.c -DVERSION="\"${version}\"" \
$(GETOPTOBJS) $(LOADLIBES) -o b2m
movemail: movemail.o pop.o $(GETOPTDEPS)
movemail@EXEEXT@: movemail.o pop.o $(GETOPTDEPS)
$(CC) ${LINK_CFLAGS} ${MOVE_FLAGS} movemail.o pop.o $(GETOPTOBJS) $(LOADLIBES) $(LIBS_MAIL) $(LIBS_MOVE) -o movemail
movemail.o: ${srcdir}/movemail.c ../src/config.h
......@@ -439,45 +439,45 @@ movemail.o: ${srcdir}/movemail.c ../src/config.h
pop.o: ${srcdir}/pop.c ../src/config.h
$(CC) -c ${CPP_CFLAGS} ${MOVE_FLAGS} ${srcdir}/pop.c
cvtmail: ${srcdir}/cvtmail.c
cvtmail@EXEEXT@: ${srcdir}/cvtmail.c
$(CC) ${ALL_CFLAGS} ${srcdir}/cvtmail.c $(LOADLIBES) -o cvtmail
fakemail: ${srcdir}/fakemail.c ../src/config.h
fakemail@EXEEXT@: ${srcdir}/fakemail.c ../src/config.h
$(CC) ${ALL_CFLAGS} ${srcdir}/fakemail.c $(LOADLIBES) -o fakemail
yow: ${srcdir}/yow.c ../src/epaths.h
yow@EXEEXT@: ${srcdir}/yow.c ../src/epaths.h
$(CC) ${ALL_CFLAGS} ${srcdir}/yow.c $(LOADLIBES) -o yow
emacsclient: ${srcdir}/emacsclient.c ../src/config.h $(GETOPTDEPS)
emacsclient@EXEEXT@: ${srcdir}/emacsclient.c ../src/config.h $(GETOPTDEPS)
$(CC) ${ALL_CFLAGS} ${srcdir}/emacsclient.c $(GETOPTOBJS) \
-DVERSION=`sed -n -e '/(defconst emacs-version/ s/^[^"]*\("[^"]*"\).*/\1/p' ${srcdir}/../lisp/version.el` \
$(LOADLIBES) -o emacsclient
hexl: ${srcdir}/hexl.c ../src/config.h
hexl@EXEEXT@: ${srcdir}/hexl.c ../src/config.h
$(CC) ${ALL_CFLAGS} ${srcdir}/hexl.c $(LOADLIBES) -o hexl
update-game-score: ${srcdir}/update-game-score.c ../src/config.h
update-game-score@EXEEXT@: ${srcdir}/update-game-score.c ../src/config.h
$(CC) ${ALL_CFLAGS} ${srcdir}/update-game-score.c \
-DHAVE_SHARED_GAME_DIR="\"$(gamedir)\"" \
$(LOADLIBES) -o update-game-score
/* These are NOT included in INSTALLABLES or UTILITIES.
See ../src/Makefile.in. */
emacstool: ${srcdir}/emacstool.c
emacstool@EXEEXT@: ${srcdir}/emacstool.c
$(CC) ${srcdir}/emacstool.c -o emacstool ${ALL_CFLAGS} \
-lsuntool -lsunwindow -lpixrect $(LOADLIBES)
/* For SUN Japanese Language Environment. */
nemacstool: ${srcdir}/emacstool.c
nemacstool@EXEEXT@: ${srcdir}/emacstool.c
$(CC) -o nemacstool -DJLE ${ALL_CFLAGS} ${srcdir}/emacstool.c \
-lsuntool -lmle -lsunwindow -lpixrect $(LOADLIBES)
xvetool: ${srcdir}/emacstool.c
xvetool@EXEEXT@: ${srcdir}/emacstool.c
$(CC) -o xvetool -DXVIEW ${ALL_CFLAGS} ${srcdir}/emacstool.c \
-lxview -lX -I$(OPENWINHOME)/include -L$(OPENWINHOME)/lib \
$(LOADLIBES)
xveterm: ${srcdir}/emacstool.c
xveterm@EXEEXT@: ${srcdir}/emacstool.c
$(CC) -o xveterm -DXVIEW -DTTERM ${ALL_CFLAGS} ${srcdir}/emacstool.c \
-lxview -lolgx -lX -I$(OPENWINHOME)/include -L$(OPENWINHOME)/lib \
$(LOADLIBES)
2003-01-31 Joe Buehler <jhpb@draco.hekimian.com>
* comint.el:
* dired-aux.el:
* dired.el:
* dirtrack.el:
* dos-w32.el:
* fast-lock.el:
* filecache.el:
* files.el:
* hippie-exp.el:
* international/mule.el:
* net/browse-url.el:
* pcomplete.el:
* recentf.el:
* shell.el:
* woman.el: Added cygwin to system-type comparisons.
2003-01-31 Francesco Potort,Al(B <pot@gnu.org>
 
* mail/undigest.el (rmail-forward-separator-regex): New custom
......
......@@ -2536,7 +2536,7 @@ This is used by comint's and shell's completion functions, and by shell's
directory tracking functions.")
(defvar comint-file-name-chars
(if (memq system-type '(ms-dos windows-nt))
(if (memq system-type '(ms-dos windows-nt cygwin))
"~/A-Za-z0-9_^$!#%&{}@`'.,:()-"
"~/A-Za-z0-9+@:_.$#%,={}-")
"String of characters valid in a file name.
......@@ -2661,7 +2661,7 @@ Returns t if successful."
(defun comint-dynamic-complete-as-filename ()
"Dynamically complete at point as a filename.
See `comint-dynamic-complete-filename'. Returns t if successful."
(let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt)))
(let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt cygwin)))
(completion-ignored-extensions comint-completion-fignore)
;; If we bind this, it breaks remote directory tracking in rlogin.el.
;; I think it was originally bound to solve file completion problems,
......@@ -2750,7 +2750,7 @@ Returns `partial' if completed as far as possible with the completion matches.
Returns `listed' if a completion listing was shown.
See also `comint-dynamic-complete-filename'."
(let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt)))
(let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt cygwin)))
(suffix (cond ((not comint-completion-addsuffix) "")
((not (consp comint-completion-addsuffix)) " ")
(t (cdr comint-completion-addsuffix))))
......@@ -2791,7 +2791,7 @@ See also `comint-dynamic-complete-filename'."
(defun comint-dynamic-list-filename-completions ()
"List in help buffer possible completions of the filename at point."
(interactive)
(let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt)))
(let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt cygwin)))
;; If we bind this, it breaks remote directory tracking in rlogin.el.
;; I think it was originally bound to solve file completion problems,
;; but subsequent changes may have made this unnecessary. sm.
......
......@@ -1258,7 +1258,7 @@ Optional arg HOW-TO is used to set the value of the into-dir variable
;; will return t because the filesystem is
;; case-insensitive, and Emacs will try to move
;; foo -> foo/foo, which fails.
(if (and (memq system-type '(ms-dos windows-nt))
(if (and (memq system-type '(ms-dos windows-nt cygwin))
(eq op-symbol 'move)
dired-one-file
(string= (downcase
......
......@@ -65,7 +65,7 @@ some of the `ls' switches are not supported; see the doc string of
;;;###autoload
(defvar dired-chown-program
(if (memq system-type '(hpux dgux usg-unix-v irix linux gnu/linux))
(if (memq system-type '(hpux dgux usg-unix-v irix linux gnu/linux cygwin))
"chown"
(if (file-exists-p "/usr/sbin/chown")
"/usr/sbin/chown"
......
......@@ -5,7 +5,7 @@
;; Author: Peter Breton <pbreton@cs.umb.edu>
;; Created: Sun Nov 17 1996
;; Keywords: processes
;; Time-stamp: <1999-02-21 01:27:24 pbreton>
;; Time-stamp: <2003-01-31 16:15:05 jbarranquero>
;; This file is part of GNU Emacs.
......@@ -167,7 +167,7 @@ be on a single line."
(make-variable-buffer-local 'dirtrackp)
(defcustom dirtrack-directory-function
(if (memq system-type (list 'ms-dos 'windows-nt))
(if (memq system-type (list 'ms-dos 'windows-nt 'cygwin))
'dirtrack-windows-directory-function
'dirtrack-default-directory-function)
"*Function to apply to the prompt directory for comparison purposes."
......@@ -176,7 +176,7 @@ be on a single line."
)
(defcustom dirtrack-canonicalize-function
(if (memq system-type (list 'ms-dos 'windows-nt))
(if (memq system-type (list 'ms-dos 'windows-nt 'cygwin))
'downcase 'identity)
"*Function to apply to the default directory for comparison purposes."
:group 'dirtrack
......
......@@ -197,7 +197,7 @@ the directory prefix corresponding to the filesystem.")
(defun untranslated-canonical-name (filename)
"Return FILENAME in a canonicalized form for use with the functions
dealing with untranslated filesystems."
(if (memq system-type '(ms-dos windows-nt))
(if (memq system-type '(ms-dos windows-nt cygwin))
;; The canonical form for DOS/W32 is with A-Z downcased and all
;; directory separators changed to directory-sep-char.
(let ((name nil))
......
......@@ -553,7 +553,7 @@ See `fast-lock-cache-directory'."
(concat buffer-file-name ".flc")
(let* ((bufile (expand-file-name buffer-file-truename))
(chars-alist
(if (memq system-type '(emx windows-nt))
(if (memq system-type '(emx windows-nt cygwin))
'((?/ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;)))
'((?/ . (?#)) (?# . (?# ?#)))))
(mapchars
......
......@@ -187,7 +187,7 @@ do not use this variable."
:group 'file-cache)
(defcustom file-cache-completion-ignore-case
(if (memq system-type (list 'ms-dos 'windows-nt))
(if (memq system-type (list 'ms-dos 'windows-nt 'cygwin))
t
completion-ignore-case)
"If non-nil, file-cache completion should ignore case.
......@@ -197,7 +197,7 @@ Defaults to the value of `completion-ignore-case'."
)
(defcustom file-cache-case-fold-search
(if (memq system-type (list 'ms-dos 'windows-nt))
(if (memq system-type (list 'ms-dos 'windows-nt 'cygwin))
t
case-fold-search)
"If non-nil, file-cache completion should ignore case.
......@@ -207,7 +207,7 @@ Defaults to the value of `case-fold-search'."
)
(defcustom file-cache-assoc-function
(if (memq system-type (list 'ms-dos 'windows-nt))
(if (memq system-type (list 'ms-dos 'windows-nt 'cygwin))
'assoc-ignore-case
'assoc)
"Function to use to check completions in the file cache.
......
......@@ -215,7 +215,7 @@ have fast storage with limited space, such as a RAM disk."
"[\000-\031]\\|" ; control characters
"\\(/\\.\\.?[^/]\\)\\|" ; leading dots
"\\(/[^/.]+\\.[^/.]*\\.\\)")) ; more than a single dot
((memq system-type '(ms-dos windows-nt))
((memq system-type '(ms-dos windows-nt cygwin))
(concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive
"[|<>\"?*\000-\031]")) ; invalid characters
(t "[\000]"))
......@@ -1028,6 +1028,7 @@ Type \\[describe-variable] directory-abbrev-alist RET for more information."
;; MS-DOS root directories can come with a drive letter;
;; Novell Netware allows drive letters beyond `Z:'.
(not (and (or (eq system-type 'ms-dos)
(eq system-type 'cygwin)
(eq system-type 'windows-nt))
(save-match-data
(string-match "^[a-zA-`]:/$" filename)))))
......@@ -1774,7 +1775,7 @@ and we don't even do that unless it would come from the file name."
(mode nil))
;; Find first matching alist entry.
(let ((case-fold-search
(memq system-type '(vax-vms windows-nt))))
(memq system-type '(vax-vms windows-nt cygwin))))
(while (and (not mode) alist)
(if (string-match (car (car alist)) name)
(if (and (consp (cdr (car alist)))
......@@ -2615,7 +2616,7 @@ doesn't exist, it is created."
file
(if (file-name-absolute-p backup-directory)
(progn
(when (memq system-type '(windows-nt ms-dos))
(when (memq system-type '(windows-nt ms-dos cygwin))
;; Normalize DOSish file names: downcase the drive
;; letter, if any, and replace the leading "x:" with
;; "/drive_x".
......@@ -2737,6 +2738,7 @@ then it returns FILENAME."
;; On Microsoft OSes, if FILENAME and DIRECTORY have different
;; drive names, they can't be relative, so return the absolute name.
(if (and (or (eq system-type 'ms-dos)
(eq system-type 'cygwin)
(eq system-type 'windows-nt))
(not (string-equal (substring fname 0 2)
(substring directory 0 2))))
......@@ -3881,7 +3883,7 @@ Existing quote characters in PATTERN are left alone, so you can pass
PATTERN that already quotes some of the special characters."
(save-match-data
(cond
((memq system-type '(ms-dos windows-nt))
((memq system-type '(ms-dos windows-nt cygwin))
;; DOS/Windows don't allow `"' in file names. So if the
;; argument has quotes, we can safely assume it is already
;; quoted by the caller.
......
2003-01-31 Joe Buehler <jhpb@draco.hekimian.com>
* nnheader.el: Added cygwin to system-type comparisons.
2003-01-27 Juanma Barranquero <lektu@terra.es>
* imap.el (imap-mailbox-status): Fix typo.
......
......@@ -653,7 +653,7 @@ If FULL, translate everything."
;; We translate -- but only the file name. We leave the directory
;; alone.
(if (and (featurep 'xemacs)
(memq system-type '(win32 w32 mswindows windows-nt)))
(memq system-type '(win32 w32 mswindows windows-nt cygwin)))
;; This is needed on NT and stuff, because
;; file-name-nondirectory is not enough to split
;; file names, containing ':', e.g.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment