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
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
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