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
X-Authentication-Warning:	shell-3.enteract.com: fcy set sender to fred AT ontosys DOT com using -f
Date:	Thu, 21 Jun 2001 12:21:30 -0500
From:	Fred Yankowski <fred AT ontosys DOT com>
To:	cygwin AT cygwin DOT com
Subject:	patch to cygwin32-mount.el (GNU emacs lisp) to handle new mount output
Message-ID:	<20010621122130.A85306@enteract.com>
Mime-Version:	1.0
User-Agent:	Mutt/1.2.5i

Attached is a patch to cygwin32-mount.el that tweaks it to understand
the new format of the output of the Cygwin 'mount' command.

-- 
Fred Yankowski           fred AT OntoSys DOT com      tel: +1.630.879.1312
Principal Consultant     www.OntoSys.com       fax: +1.630.879.1370
OntoSys, Inc             38W242 Deerpath Rd, Batavia, IL 60510, USA


--- cygwin32-mount.el.orig      Thu Jun 21 11:57:47 2001
+++ cygwin32-mount.el   Thu Jun 21 12:09:45 2001
@@ -40,11 +40,11 @@
             (call-process "mount" nil t)
             (goto-char (point-min))
             (while (search-forward-regexp
-                    "^\\([a-z]:[^ \t\n]*\\) +\\([^ \t\n]+\\)" nil t)
+                    "^\\([a-z]:[^ \t\n]*\\) +\\(on +\\)?\\([^ \t\n]+\\)" nil t)

               (let ((device (buffer-substring (match-beginning 1)
                                               (match-end 1)))
-                    (direct (buffer-substring (match-beginning 2)
-                                              (match-end 2))))
+                    (direct (buffer-substring (match-beginning 3)
+                                              (match-end 3))))
                 (setq mounts (cons (cons device direct)
                                    mounts)))))
           (kill-buffer buf)

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

- Raw text -