Mail Archives: cygwin/2002/09/05/17:46:17
Below is a pair of patches that I submitted to the Emacs project.
This fixes a Cygwin-specific problem, namely, that the 'dired'
"change owner" command (shift-o) does not work in Emacs in the
Cygwin environment because 'cygwin' was not being included the
list of systems returned by 'system-type'.
If you would like to applies these patches to your installation
of Emacs, do the following:
1. If you haven't downloaded the 'emacs-el' package (in
the Editors category in setup.exe), then you need to
do that so you'll have the lisp files that need to
be patched.
2. If you don't have 'patch' installed, you'll need that
also. It's in the Utils category in setup.exe.
(Or, you can read the patches below and edit your
.el files.)
3. After you have installed these two packages, set your
current working directory to the Emacs Lisp directory.
By default, this is /usr/share/emacs/21.2/lisp.
$ cd /usr/share/emacs/21.2/lisp
4. Cut & paste the first patch below to the (new) text file
'dired.patch'. Cut & paste the second patch below to
the (new) text file 'loaddefs.patch'.
5. Patch the .el files with the 'patch' utility. Of course,
you can also byte-compile the new versions of these two
.el files.
Patch 1: $ patch -p0 < dired.patch
--- dired.el.orig 2002-09-04 19:50:41.000000000 -0400
+++ dired.el 2002-09-04 19:51:01.000000000 -0400
@@ -62,7 +62,7 @@
;;;###autoload
(defvar dired-chown-program
- (if (memq system-type '(hpux dgux usg-unix-v irix linux gnu/linux))
+ (if (memq system-type '(cygwin hpux dgux usg-unix-v irix linux
gnu/linux))
"chown"
(if (file-exists-p "/usr/sbin/chown")
"/usr/sbin/chown"
Patch 2: $ patch -p0 < loaddefs.patch
--- loaddefs.el.orig 2002-09-04 19:54:02.000000000 -0400
+++ loaddefs.el 2002-09-04 19:54:26.000000000 -0400
@@ -4711,7 +4711,7 @@
may contain even `F', `b', `i' and `s'. See also the variable
`dired-ls-F-marks-symlinks' concerning the `F' switch.")
-(defvar dired-chown-program (if (memq system-type (quote (hpux dgux
usg-unix-v irix linux gnu/linux))) "chown" (if (file-exists-p
"/usr/sbin/chown") "/usr/sbin/chown" "/etc/chown")) "\
+(defvar dired-chown-program (if (memq system-type (quote (cygwin hpux
dgux usg-unix-v irix linux gnu/linux))) "chown" (if (file-exists-p
"/usr/sbin/chown") "/usr/sbin/chown" "/etc/chown")) "\
Name of chown command (usually `chown' or `/etc/chown').")
(defvar dired-ls-F-marks-symlinks nil "\
=== End of patches ===
--
Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple
Bug reporting: http://cygwin.com/bugs.html
Documentation: http://cygwin.com/docs.html
FAQ: http://cygwin.com/faq/
- Raw text -