help-emacs-windows
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [h-e-w] Re: Dired on windows


From: Jean-Philippe Theberge
Subject: Re: [h-e-w] Re: Dired on windows
Date: 12 Feb 2003 14:06:52 -0500
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2

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
> `----





reply via email to

[Prev in Thread] Current Thread [Next in Thread]