This is the mail archive of the cygwin@cygwin.com mailing list for the Cygwin project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

patch to cygwin32-mount.el (GNU emacs lisp) to handle new mount output


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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]