This is the mail archive of the
cygwin@cygwin.com
mailing list for the Cygwin project.
patch to cygwin32-mount.el (GNU emacs lisp) to handle new mount output
- To: cygwin at cygwin dot com
- Subject: patch to cygwin32-mount.el (GNU emacs lisp) to handle new mount output
- From: Fred Yankowski <fred at ontosys dot com>
- Date: Thu, 21 Jun 2001 12:21:30 -0500
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@OntoSys.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