Mailing-List: contact cygwin-help AT sourceware DOT cygnus DOT com; run by ezmlm
List-Subscribe: <mailto:cygwin-subscribe AT sources DOT redhat DOT com>
List-Archive: <http://sources.redhat.com/ml/cygwin/>
List-Post: <mailto:cygwin AT sources DOT redhat DOT com>
List-Help: <mailto:cygwin-help AT sources DOT redhat DOT com>, <http://sources.redhat.com/ml/#faqs>
Sender: cygwin-owner AT sources DOT redhat DOT com
Delivered-To: mailing list cygwin AT sources DOT redhat DOT com
Message-ID: <C9A98ED35114D31197D000805FEA668E027B1DA8@mucexch2.muc.sdm.de>
From: klaus DOT berndl AT sdm DOT de
To: cygwin AT sourceware DOT cygnus DOT com, ntemacs-users AT cs DOT washington DOT edu
Subject: New version of cygwin-mount.el
Date: Fri, 18 May 2001 16:50:37 +0200
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: multipart/mixed;
	boundary="----_=_NextPart_000_01C0DFA9.E666FCB0"

------_=_NextPart_000_01C0DFA9.E666FCB0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

I have rewritten the package, especially the customization. Now no(!) =
external
processes run only by loading the package. All the initialization of
mount-points etc. is first done with calling `cygwin-mount-activate'.

New in version 1.3:

+ Version 1.3, modified may 2001 by Klaus Berndl (berndl AT sdm DOT de)
  - Bugfix in the function =
`cygwin-mount-substitute-longest-mount-name'.
  - much better customization. Now no(!) external processes run only =
with
    loading the package. All the initialization of mount-points etc. is
    first done with calling `cygwin-mount-activate'.
  - Important: Now the cygwin mountpoints are stored in the new =
variable
    `cygwin-mount-table--internal'. This variable must not be set by =
the user
    but it is only set by customizing `cygwin-mount-table'!

Here is the new version:

 <<cygwin-mount.el>>=20

General package description:

This package does all necessary so you can use cygwin-style filenames =
like
"//D/any/path/to/file" or "/cygdrive/d/any/path/to/file" in exactly the =
same
manner as the normal Windows-style filenames like "D:\any\path\to\file" =
or
"D:/any/path/to/file". Furthermore this package enables using all your
cygwin-mounts in file-operations. For example you can call all =
file-operations
(e.g. find-file) for a file named "/usr/bin/anyfile" if you have =
mounted the
related Windows-path to /usr/bin. The package also makes sure that =
ange-ftp
will work correct if you are using cygwin-mount.el.


--=20
Klaus Berndl			mailto: klaus DOT berndl AT sdm DOT de
sd&m AG			http://www.sdm.de
software design & management=09
Thomas-Dehler-Str. 27, 81737 M=FCnchen, Germany
Tel +49 89 63812-392, Fax -220


------_=_NextPart_000_01C0DFA9.E666FCB0
Content-Type: application/octet-stream;
	name="cygwin-mount.el"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
	filename="cygwin-mount.el"

;;; cygwin-mount.el --- Teach EMACS about cygwin styles and mount =
points.

;; Emacs Lisp Archive Entry
;; Filename: cygwin-mount.el
;; Version: 1.3 - 2001-05-18
;; Author: Klaus Berndl <berndl AT sdm DOT de>
;; Maintenance: Klaus Berndl <berndl AT sdm DOT de>
;; Original author: Michael Cook <mcook AT cognex DOT com>
;; Keywords: files, mount, cygwin
;;
;; Additional info:
;; Copyright (C) 1997 Michael Cook <mcook AT cognex DOT com>.
;;               2001 Klaus Berndl <berndl AT sdm DOT de>
;; Additional code by: Keisuke Mori <ksk AT ntts DOT com>
;;                     Drew Moseley (drewmoseley AT mindspring DOT com)
;;                     James Ganong (jeg AT bigseal DOT ucsc DOT edu)
;;                     Jeff Juliano <juliano AT cs DOT unc DOT edu>
;;                     Klaus Berndl <berndl AT sdm DOT de>
;;                     Nick Sieger <nsieger AT bitstream DOT net>
;;                     Richard Y. Kim <ryk AT dspwiz DOT com>
;;                     Karel Sprenger <karel DOT sprenger AT compaq DOT com>
;; This file is *NOT* (yet?) part of GNU Emacs.
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;; =
----------------------------------------------------------------------
;;; Commentary

;; This package does all necessary so you can use cygwin-style =
filenames like
;; "//D/any/path/to/file" or "/cygdrive/d/any/path/to/file" in exactly =
the
;; same manner as the normal Windows-style filenames like
;; "D:\any\path\to\file" or "D:/any/path/to/file".
;; Furthermore this package enables using all your cygwin-mounts in
;; file-operations. For example you can call all file-operations (e.g.
;; find-file) for a file named "/usr/bin/anyfile" if you have mounted =
the
;; related Windows-path to /usr/bin.
;; The package also makes sure that ange-ftp will work correct if you =
are
;; using cygwin-mount.el.

;;; Installation:

;; Put in your .emacs or site-start.el file the following lines:
;;   (require 'cygwin-mount)
;;   (cygwin-mount-activate)

;;; Customization and using

;; + All customization is done in the customize-group `cygwin-mount'.
;;   Do not set the user-options via `setq' but only via customize =
because
;;   otherwise the package will not work correct!!
;;   Important: Now the cygwin mountpoints are stored in the variable
;;   `cygwin-mount-table--internal'. This variable must not be set by =
the user
;;   but it is only set by customizing `cygwin-mount-table'!
;; + Activating: cygwin-mount-activate
;; + Deactivating: cygwin-mount-deactivate

;;; Compatibility

;; The cygwin-mount.el package is only tested with NTEmacs >=3D 20.6.1.
;; There are no experiences if it works with XEmacs too!
;; The package has been tested with Cygwin 1.1.8 and 1.3.1.
;; =
----------------------------------------------------------------------

;;; History:

;; + Version 1.3, modified may 2001 by Klaus Berndl (berndl AT sdm DOT de)
;;   - Bugfix in the function =
`cygwin-mount-substitute-longest-mount-name'.
;;   - much better customization. Now no(!) external processes run only =
with
;;     loading the package. All the initialization of mount-points etc. =
is
;;     first done with calling `cygwin-mount-activate'.
;;   - Important: Now the cygwin mountpoints are stored in the new =
variable
;;     `cygwin-mount-table--internal'. This variable must not be set by =
the user
;;     but it is only set by customizing `cygwin-mount-table'!
;;
;; + Version 1.2.1, modified may 2001 by Klaus Berndl (berndl AT sdm DOT de):
;;   - renaming the package to cygwin-mount.el
;;   - Better finding of the mount- and uname-program
;;   - now works for different cygwin versions:
;;     * cygwin <=3D 1.1.8
;;     * cygwin >=3D 1.3.1
;;     There is a new option `cygwin-mount-parsing-regexp' where these =
regexps
;;     are defined and where also a custom regexp can be defined.
;;     Thanks for the idea and a first implementation to Charles Curley
;;     (ccurley AT trib DOT com) and Karel Sprenger =
(karel DOT sprenger AT compaq DOT com).
;;   - Fixes problem with expand-file-name handling. This behaves =
differently
;;     from most other primitives that is called via =
file-name-handler-alist,
;;     because it takes two arguments rather than one. Either one or =
both
;;     arguments could trigger the invocation of the =
file-name-handler-alist.
;;     Thanks for the patch to Richard Y. Kim (ryk AT dspwiz DOT com).
;;   - Option to initialize the `cygwin-mount-table' either snychron =
(default)
;;     or asynchron: `cygwin-mount-build-mount-table-asynch'.
;;     Thanks for the idea and a first implementation to Nick Sieger
;;     (nsieger AT bitstream DOT net).
;;
;; + Version 1.0, modified January 2001 by Klaus Berndl =
(berndl AT sdm DOT de):
;;   - Added customization
;;   - Added activating and deactivating functions (emacs-packages =
should not
;;     activating itself only by loading!). Deactivating removes any =
new
;;     filehandlers and restore the original ange-ftp function.
;;   - Added test, if mount-program exists in PATH and if system-type =
is
;;     windows-nt.
;;   - Corrects a bug in the longest mount point substitution (network =
devices
;;     like //Host/Path are now never substituted because a mount point =
/ then
;;     would always be incorrectly substituted. Now all file-operations =
work
;;     correct with network devices.
;;   - corrects a bug in the /cygdrive/-style regexp.
;;   - Makes the first "real" emacs-package cygwin32-mount.el
;;   All my changes are only removing bugs and adding stuff, so this =
code
;;   becomes a correct emacs-package. All substantiell working code and =
ideas
;;   come from the other authors.
;;
;; + Original version 0.1 by Michael Cook <mcook AT cognex DOT com>:
;;   - modified Jun 18 1998 by Keisuke Mori <ksk AT ntts DOT com> to make it =
work with
;;     ange-ftp and enable mapping a drive letter
;;   - modified Oct 25 1999 by Drew Moseley =
(drewmoseley AT mindspring DOT com) to
;;     support /cygdrive style drive maps and for better coexistence =
with
;;     ange-ftp.
;;   - modified Feb 7 2000 by James Ganong (jeg AT bigseal DOT ucsc DOT edu) to =
work when
;;     / is mounted in a subdirectory instead of top level of a drive, =
and to
;;     check longest directory names first, to a / mount does not =
shadow.
;;   - modified Mar 23 2000 by Jeff Juliano <juliano AT cs DOT unc DOT edu> to =
make a
;;     user-callable function that performs the mapping. I use this in =
my
;;     .emacs file to find my non-version-specific site-lisp directory =
since
;;     NTemacs doesn't have one in its search path.
;;   - modified July 2000 by Jeff Juliano <juliano AT cs DOT unc DOT edu>: =
ps-print to
;;     //machine/printer-name was broken. cygwin-mount would intercept =
and try
;;     to convert the name to a local path, even though one doesn't =
exist.
;;     Also, don't do mount table lookup as early as used to. warning: =
this
;;     isn't extensively tested, and may not be correct.

;;; Code

(require 'cl)
(require 'executable)

(defgroup cygwin-mount nil
  "Proper handling of cygwin mounts and filenames."
  :prefix "cygwin-"
  :group 'files)

;; some constants

(defconst cygwin-mount<=3D1.1.8-mount-regexp
  "^\\([a-z]:[^ \t\n]*\\) +\\([^ \t\n]+\\)")
(defconst cygwin-mount>=3D1.3.1-mount-regexp
  "^\\([a-z]:.*\\)[ \t]+on[ \t]+\\(.+\\) type \\(system\\|user\\)")
(defconst cygwin-mount-program "mount.exe")
(defconst cygwin-mount-uname-program "uname.exe")
(defconst cygwin-mount-buffername " *mount*")

;; internal variables. These variables are only set by calling
;; `cygwin-mount-activate' or by customizing `cygwin-mount-table' or
;; `cygwin-mount-parsing-regexp'.
(defvar cygwin-mount-parsing-regexp--internal ""
  "Do not set this variable directly but customize
`cygwin-mount-parsing-regexp' instead!")
(defvar cygwin-mount-table--internal nil
  "Do not set this variable directly but customize =
`cygwin-mount-table'!")

;; user options

(defcustom cygwin-mount-cygwin-bin-directory nil
  "*The directory where the cygwin binaries reside. If nil then
the cygwin-binary-directory must be into the PATH."
  :group 'cygwin-mount
  :type '(radio	(const :tag "Cygwin is into PATH" :value nil)
		(directory :tag "Cygwin-Binary-Dir" :value "")))
 =20
(defcustom cygwin-mount-parsing-regexp t
  "*Rexexp used to parse the output of the mount program.
Available values are:
- A regexp: The regexp must define two subexpressions where the first =
one must
  build the car of an element in the syntax of `cygwin-mount-table' and =
the
  second one must build the cdr. There are two predefined regexps, one =
for
  cygwin <=3D 1.1.8 and one for cygwin >=3D 1.3.1. But there is also =
the
  possibility to define a custom regexp.
- t \(default): Checks which cygwin version is running and sets the =
correct
  regexp automatically. Currently cygwin versions <=3D1.1.8 and =
>=3D1.3.1 are
  supported."
  :group 'cygwin-mount
  :set (function (lambda (symbol value)
                   (set symbol value)
                   (setq cygwin-mount-parsing-regexp--internal
                         (if (equal value t)
                             (cygwin-mount-get-mount-regexp)
                           value))))
  :initialize 'custom-initialize-default
  :type `(radio (const :tag "Automatic" :value t)
                (const :tag "Cygwin <=3D 1.1.8"
		       :value ,cygwin-mount<=3D1.1.8-mount-regexp)
		(const :tag "Cygwin >=3D 1.3.1"
		       :value ,cygwin-mount>=3D1.3.1-mount-regexp)
		(regexp :tag "Custom" :value "")))

(defcustom cygwin-mount-build-mount-table-asynch nil
  "*If not nil then `cygwin-mount-table' is build asynchron
at load-time of package `cygwin-mount.el'. If you change the value via
customize you must deactivate and activate the package again to take =
effect."
  :group 'cygwin-mount
  :type 'boolean)

(defcustom cygwin-mount-table t
  "*Alist of custom cygwin mount points or t if all the current
mount-points returned by the cygwin mount-program should be used. If =
set to
nil then there are no mount-points. An element of the alist has the =
form
\(<mounted windows-device> . <cygwin-directory>), e.g.
\(\"D:\\\\programs\\\\cygwin\\\\bin\" . \"/usr/bin/\") or
\(\"D:/programs/cygwin\" . \"/\")."
  :group 'cygwin-mount
  :set (function (lambda (symbol value)
                   (set symbol value)
                   (if (equal value t)
                       (cygwin-mount-build-table-internal)
                     (setq cygwin-mount-table--internal value))))
  :initialize 'custom-initialize-default
  :type '(radio	(const :tag "Automatic"
                       :value t)
                (repeat :tag "Custom mounts"
                        (cons (directory :tag "Mounted device")
                              (string :tag "Cygwin directory")))))

;; copied from executable.el because this library is not included in =
all
;; Emacsen by default.
(defvar cygwin-mount-executable-binary-suffixes
  (if (memq system-type '(ms-dos windows-nt))
      '(".exe" ".com" ".bat" ".cmd" ".btm" "")
    '("")))
(defun cygwin-mount-executable-find (command)
  "Search for COMMAND in exec-path and return the absolute file name.
Return nil if COMMAND is not found anywhere in `exec-path'."
  (let ((list exec-path)
	file)
    (while list
      (setq list
	    (if (and (setq file (expand-file-name command (car list)))
		     (let ((suffixes cygwin-mount-executable-binary-suffixes)
			   candidate)
		       (while suffixes
			 (setq candidate (concat file (car suffixes)))
			 (if (and (file-executable-p candidate)
				  (not (file-directory-p candidate)))
			     (setq suffixes nil)
			   (setq suffixes (cdr suffixes))
			   (setq candidate nil)))
		       (setq file candidate)))
		nil
	      (setq file nil)
	      (cdr list))))
    file))

;; functions

(defun cygwin-mount-get-full-progname (program)
  "Return the full path of PROGRAM if possible or nil if full path can =
not be
determined."
  (let ((fullname
         (if (and cygwin-mount-cygwin-bin-directory
                  (stringp cygwin-mount-cygwin-bin-directory)
                  (file-directory-p cygwin-mount-cygwin-bin-directory))
             (concat (file-name-as-directory =
cygwin-mount-cygwin-bin-directory)
                     program)
           (expand-file-name (or (cygwin-mount-executable-find program)
                                 program)))))
    (if (file-executable-p fullname)
        fullname
      nil)))

(defun cygwin-mount-get-mount-regexp ()
  "Returns a correct regexp for parsing the mount-output according to =
the
version of cygwin. Currently there is only a distiction between cygwin
versions <=3D 1.1.8 and >=3D 1.3.1."
  (let ((buf (get-buffer-create "*uname*"))
        (fullname (cygwin-mount-get-full-progname =
cygwin-mount-uname-program)))
    (if (null fullname)
        (error "Can not find the program 'uname', please check =
'cygwin-mount-cygwin-bin-directory'!")
      (save-excursion
        (set-buffer buf)
        (erase-buffer)
        (call-process fullname nil buf nil "-r")
        (goto-char (point-min))
        (prog1
            (if (looking-at "^1\\.3")
                cygwin-mount>=3D1.3.1-mount-regexp
              cygwin-mount<=3D1.1.8-mount-regexp)
          (kill-buffer buf))))))

(defun cygwin-mount-parse-mount ()
  "Parses the buffer `cygwin-mount-buffername' and return an alist with =
all
the mount-points. For the format of this alist see =
`cygwin-mount-table'.
Precondition of this function is current buffer must be the buffer =
named
`cygwin-mount-buffername'."
  (if (equal (current-buffer) (get-buffer cygwin-mount-buffername))
      (let ((case-fold-search t)
            mounts)
        ;; first pass tags each line with the length of the directory
        (goto-char (point-min))
        (while (search-forward-regexp =
cygwin-mount-parsing-regexp--internal nil t)
          (let ((device (buffer-substring (match-beginning 1)
                                          (match-end 1)))
                (direct (file-name-as-directory (buffer-substring
                                                 (match-beginning 2)
                                                 (match-end 2)))))
            (end-of-line) (insert ( format "\t%d" (length direct )))))
   =20
        ;; now sort the lines numerically
        (sort-numeric-fields -1 (point-min) (point-max))
   =20
        ;; 2nd pass builds the mount list
        (goto-char (point-min))
        (while (search-forward-regexp =
cygwin-mount-parsing-regexp--internal nil t)
          (let ((device (file-name-as-directory (buffer-substring
                                                 (match-beginning 1)
                                                 (match-end 1))))
                (direct (file-name-as-directory (buffer-substring
                                                 (match-beginning 2)
                                                 (match-end 2)))))
            (setq mounts (cons (cons device direct) mounts))))
        mounts)))

(defun cygwin-mount-sentinel (proc msg)
  (if (or (eq (process-status proc) 'exit)
	  (eq (process-status proc) 'signal))
      (let ((buf (get-buffer-create cygwin-mount-buffername)))
	(save-excursion
	  (set-buffer buf)
          (setq cygwin-mount-table--internal =
(cygwin-mount-parse-mount)))
	(kill-buffer buf)
	(message "Build of mount table completed"))))

(defun cygwin-mount-build-table-internal ()
  "Determine the cygwin mount points. This function sets
`cygwin-mount-table--internal' either synchronously or asynchronously =
\(see
`cygwin-mount-build-mount-table-asynch'). If asynchronously then the =
set is
really done by `cygwin-mount-sentinel'."
  (let ((fullname (cygwin-mount-get-full-progname =
cygwin-mount-program)))
    (if (null fullname)
        (error "Can not find the program 'mount', please check =
'cygwin-mount-cygwin-bin-directory'!")
      (if cygwin-mount-build-mount-table-asynch
          ;; asynchron building
          (let ((proc (start-process "mount" cygwin-mount-buffername =
fullname)))
            (set-process-sentinel proc 'cygwin-mount-sentinel)
            (process-kill-without-query proc))
        ;; synchron building
        (let ((buf (get-buffer-create cygwin-mount-buffername)))
          (save-excursion
            (set-buffer buf)
            (erase-buffer)
            (call-process fullname nil buf)
            (prog1
                (setq cygwin-mount-table--internal =
(cygwin-mount-parse-mount))
              (kill-buffer buf))))))))

(defun cygwin-mount-name-hook-function (operation &rest args)
  (let ((fn (get operation 'cygwin-mount-name)))
    (if fn (apply fn operation args)
      (cygwin-mount-run-real-handler operation args))))

(defun cygwin-mount-map-drive-hook-function (operation &rest args)
  (let ((fn (get operation 'cygwin-mount-map-drive)))
    (if fn (apply fn operation args)
      (cygwin-mount-run-real-handler operation args))))

(defun cygwin-mount-run-real-handler (operation args)
  (let ((inhibit-file-name-handlers
         (cons 'cygwin-mount-name-hook-function
               (cons 'cygwin-mount-map-drive-hook-function
                     (and (eq inhibit-file-name-operation operation)
                          inhibit-file-name-handlers))))
        (inhibit-file-name-operation operation))
    (apply operation args)))


(defun cygwin-mount-name-expand (operation name &rest args)
  (cygwin-mount-run-real-handler
   operation
   (cons (cygwin-mount-substitute-longest-mount-name name) args)))

(defun cygwin-mount-substitute-longest-mount-name (name)
  "If NAME uses a mount directory, substitute the mount device and =
return the
resulting string. Otherwise, return NAME."
  (if (string-match "^//.+" name)
      ;; Added by Klaus: if name beginns with "//" then it can never =
contain a
      ;; cygwin mount point! Therefore we must not check for contained =
mount
      ;; points because if / is mounted then this will always match and =
we get
      ;; an incorrect substitution for network devices like //Host/path
      name
    (let ((mounts cygwin-mount-table--internal)
          (len (length (file-name-as-directory name)))
          match)
      (while mounts
        (let ((mount (file-name-as-directory (cdar mounts))))
          (and (>=3D len (length mount))
               (string=3D mount
                        (file-name-as-directory
                         (substring (file-name-as-directory name)
                                    0 (length mount))))
               (or (null match)
                   (> (length (cdar mounts)) (length (cdr match))))
               (setq match (car mounts))))
        (setq mounts (cdr mounts)))
      (if match
 	  (concat (file-name-as-directory (car match))
 		  (if (>=3D (length (file-name-as-directory (cdr match))) len)
 		      ""
 		    (substring name (length (file-name-as-directory (cdr match))))))
        name))))

;; We cannot assume thate NAME matched cygwin-cygwin-style1-regexp,
;; cygwin-cygwin-style2-regexp nor cygwin-cygwin-style3-regexp,
;; because this function could be called with either argument to
;; `expand-file-name', but only one argument to `expand-file-name' may
;; have matched a regexp.
;; For example, `(expand-file-name ".." "/cygdrive/c/")' will trigger
;; `(cygwin-convert-file-name "..")' and
;; `(cygwin-convert-file-name "/cygdrive/c/")' to be called.
(defun cygwin-convert-file-name ( name )
  "Given file NAME, return equivalent one after converting cygwin's=20
`//x/' to `x:/' and `/cygdrive/x/' to `x:/'."
  (cond ((string-match "^//[a-zA-Z]/" name)
         (concat (substring name 2 3) ":" (substring name 3)))
        ((string-match "^/cygdrive/[a-zA-Z]" name)
         (concat (substring name 10 11) ":" (substring name 11 nil)))
        (t name)))

(defun cygwin-mount-map-drive (operation name &rest args)
  "Maps cygwin-style names to the windows-style \"[A-Za-z]:/\" and =
calls
OPERATION with the mapped filename\(s). NAME must have the format looks =
like
\"^//[A-Za-z]/\" or \"/cygdrive/[A-Za-z]/\" here. Note that at least =
the first
element of ARGS could be a filename too \(then it must have the same =
syntax
like NAME!) which must be converted \(e.g. `expand-file-name' can be =
called
with two filenames)."
  (cygwin-mount-run-real-handler
   operation
   (cons (cygwin-convert-file-name name)
	 (if (stringp (car args))
 	     (cons (cygwin-convert-file-name (car args))
		   (cdr args))
	   args))))

;;; ange-ftp
(require 'ange-ftp)
;;; save the original function definition of ange-ftp-run-real-handler
(defconst cygwin-original-ange-ftp-handler
  (symbol-function 'ange-ftp-run-real-handler))

;;; This version of ange-ftp-run-real-handler also inhibits the
;;; cygwin file name expansion when we are doing ange-ftp expansion.
;;;
;;; This is a real hack.  If the real definition of this function
;;; changes, we have to modify this function
(defun cygwin-ange-ftp-run-real-handler (operation args)
  (let ((inhibit-file-name-handlers
         (cons 'ange-ftp-hook-function
               (cons 'ange-ftp-completion-hook-function
                     (cons 'cygwin-mount-name-hook-function
                           (cons 'cygwin-mount-map-drive-hook-function
                                 (and (eq inhibit-file-name-operation
                                          operation)
                                      inhibit-file-name-handlers))))))
        (inhibit-file-name-operation operation))
    (apply operation args)))

;; Added by Klaus
(defconst cygwin-cygwin-style1-regexp =
"^/[^:@]*$\\|^/|/[^/:]+\\(\\'\\|/\\)")
(defconst cygwin-cygwin-style2-regexp "^//[A-Za-z]/")
;; Support cygdrive style drive maps.
;; Note that we cannot have `/' at the end of the following to handle=20
;; cases like `(expand-file-name "foo" "/cygdrive/c")'.
(defconst cygwin-cygwin-style3-regexp "^/cygdrive/[A-Za-z]")

;; Added by Klaus
(defun cygwin-mount-activate ()
  "Activates the cygwin-mount- and cygwin-style-handling"
  (interactive)
  (if (not (eq system-type 'windows-nt))
      (message "cygwin-mount is only available for Emacs for NT!")
   =20
    ;; initialize the internal variables
    (setq cygwin-mount-parsing-regexp--internal
          (if (equal cygwin-mount-parsing-regexp t)
              (cygwin-mount-get-mount-regexp)
            cygwin-mount-parsing-regexp))
    (if (equal cygwin-mount-table t)
        (cygwin-mount-build-table-internal)
      (setq cygwin-mount-table--internal cygwin-mount-table))
   =20
    ;; add the cygwin-filehandlers
    (or (assoc cygwin-cygwin-style1-regexp file-name-handler-alist)
        (setq file-name-handler-alist
              (cons `(,cygwin-cygwin-style1-regexp
                      . cygwin-mount-name-hook-function)
                    file-name-handler-alist)))

    (or (assoc cygwin-cygwin-style2-regexp file-name-handler-alist)
        (setq file-name-handler-alist
              (cons `(,cygwin-cygwin-style2-regexp
                      . cygwin-mount-map-drive-hook-function)
                    file-name-handler-alist)))
    (or (assoc cygwin-cygwin-style3-regexp file-name-handler-alist)
        (setq file-name-handler-alist
              (cons `(,cygwin-cygwin-style3-regexp
                      . cygwin-mount-map-drive-hook-function)
                    file-name-handler-alist)))

    ;; add cygwin-properties
    (put 'substitute-in-file-name 'cygwin-mount-name
         'cygwin-mount-name-expand)
    (put 'expand-file-name 'cygwin-mount-name =
'cygwin-mount-name-expand)
    (put 'substitute-in-file-name
         'cygwin-mount-map-drive 'cygwin-mount-map-drive)
    (put 'expand-file-name 'cygwin-mount-map-drive
         'cygwin-mount-map-drive)
    ;; rebind ange-ftp-run-real-handler to our version
    (fset 'ange-ftp-run-real-handler =
'cygwin-ange-ftp-run-real-handler)))

;; Added by Klaus
(defun cygwin-mount-deactivate ()
  "Deactivates the cygwin-mount- and cygwin-style-handling"
  (interactive)
  (if (not (eq system-type 'windows-nt))
      (message "cygwin-mount is only available for (X)Emacs for NT!")
    ;; reset the internal variables
    (setq cygwin-mount-table--internal nil)
    (setq cygwin-mount-parsing-regexp--internal "")
   =20
    ;; remove the cygwin-filehandlers
    (setq file-name-handler-alist
          (delete (assoc cygwin-cygwin-style1-regexp =
file-name-handler-alist)
                  file-name-handler-alist))
    (setq file-name-handler-alist
          (delete (assoc cygwin-cygwin-style2-regexp =
file-name-handler-alist)
                  file-name-handler-alist))
    (setq file-name-handler-alist
          (delete (assoc cygwin-cygwin-style3-regexp =
file-name-handler-alist)
                  file-name-handler-alist))
    ;; remove the cygwin properties
    (put 'substitute-in-file-name 'cygwin-mount-name nil)
    (put 'expand-file-name 'cygwin-mount-name nil)
    (put 'substitute-in-file-name 'cygwin-mount-map-drive nil)
    (put 'expand-file-name 'cygwin-mount-map-drive nil)
    ;; rebind ange-ftp-run-real-handler to it=B4s original definition.
    (fset 'ange-ftp-run-real-handler =
cygwin-original-ange-ftp-handler)))

(provide 'cygwin-mount)


------_=_NextPart_000_01C0DFA9.E666FCB0
Content-Type: text/plain; charset=us-ascii

--
Want to unsubscribe from this list?
Check out: http://cygwin.com/ml/#unsubscribe-simple
------_=_NextPart_000_01C0DFA9.E666FCB0--