|
From: | Nascif Abousalh-Neto |
Subject: | RE: [h-e-w] Re: Dired on windows |
Date: | Wed, 12 Feb 2003 14:12:21 -0500 |
Works on Windows 2000.
Here is an output sample:
d:\bin\emacs-21.2\bin>net use
net use
New connections will not be remembered.
Status Local Remote Network
-------------------------------------------------------------------------------
OK L: \\znc0s0k1\pnm_sircc Microsoft Windows Network
M: \\view ClearCase Dynamic Views
The command completed successfully.
> -----Original Message-----
> From: Jean-Philippe Theberge [mailto:address@hidden]
> Sent: Wednesday, February 12, 2003 2:07 PM
> To: address@hidden
> Cc: address@hidden
> Subject: Re: [h-e-w] Re: Dired on windows
>
>
> address@hidden (Jeffery B. Rancier) writes:
>
> > >>>>> "Jean-Philippe" == Jean-Philippe Theberge
> <address@hidden>
> > >>>>> writes:
> >
> > I got the impression that using 'NET USE' wasn't generic enough for
> > across the board implementation?
> >
>
> Do you mean the output of 'net use' is different from one
> windows version to another? (and that this function fail to
> work if not on XP (the version I use))
>
>
> -jp
>
> > > Thanks you all for the hints.
> >
> > > Here's my first draft...
> > > (only show the network drives)
> >
> > > (defun netdir()
> > > (interactive)
> > > (require 'widget)
> > > (let ((drvL))
> > > (with-temp-buffer
> > > (shell-command "net use" (current-buffer))
> > > (while (re-search-forward "[A-Z]: +\\\\\\\\[^
> ]+" nil t nil)
> > > (setq drvL (cons (split-string (match-string
> 0)) drvL))))
> > > (pop-to-buffer "*NET DIR LIST*")
> > > (erase-buffer)
> > > (widget-minor-mode 1)
> > > (mapcar
> > > (lambda (x)
> > > (lexical-let ((x x))
> > > (widget-create 'push-button
> > > :notify (lambda (widget &rest ignore)
> > > (kill-buffer (current-buffer))
> > > (dired (car x)))
> > > (concat (car x) " " (cadr x))))
> > > (widget-insert "\n"))
> > > drvL)))
> >
> >
> > > -jp
> >
> >
> >
> >
> >
> > --
> >
> > Thanks,
> > Jeff
> > ,----
> > | Jeffery B. Rancier
> > |
> > | Softechnics
> > | a METTLER TOLEDO company
> > `----
>
>
>
>
[Prev in Thread] | Current Thread | [Next in Thread] |