diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2007-12-23 13:25:27 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2007-12-23 13:25:27 +0000 |
| commit | adb671295c7556cd2a79333f4be5de21161df2ef (patch) | |
| tree | 65a92862c76c36351f9e31c526602469ee2d36d3 /lisp/net/tramp-smb.el | |
| parent | 9f15f6766b9298c2b8c514e4b9223655b1ff77a1 (diff) | |
| download | emacs-adb671295c7556cd2a79333f4be5de21161df2ef.tar.gz emacs-adb671295c7556cd2a79333f4be5de21161df2ef.tar.bz2 emacs-adb671295c7556cd2a79333f4be5de21161df2ef.zip | |
Sync with Tramp 2.1.12.
* net/tramp.el: New todo item.
* net/tramp-smb.el (tramp-smb-handle-insert-directory): Handle "-F"
switch. Reported by Mark T. Kennedy <mkennedy@diamondbackcap.com>.
* net/trampver.el: Update release number.
Diffstat (limited to 'lisp/net/tramp-smb.el')
| -rw-r--r-- | lisp/net/tramp-smb.el | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el index 706042060f6..1406f381922 100644 --- a/lisp/net/tramp-smb.el +++ b/lisp/net/tramp-smb.el @@ -459,7 +459,7 @@ PRESERVE-UID-GID is completely ignored." ;; We just need the only and only entry FILENAME. (list (assoc base entries))))) - ;; Sort entries + ;; Sort entries. (setq entries (sort entries @@ -470,6 +470,18 @@ PRESERVE-UID-GID is completely ignored." ;; Sort by name. (string-lessp (nth 0 x) (nth 0 y)))))) + ;; Handle "-F" switch. + (when (string-match "F" switches) + (mapcar + (lambda (x) + (when (not (zerop (length (car x)))) + (cond + ((char-equal ?d (string-to-char (nth 1 x))) + (setcar x (concat (car x) "/"))) + ((char-equal ?x (string-to-char (nth 1 x))) + (setcar x (concat (car x) "*")))))) + entries)) + ;; Print entries. (mapcar (lambda (x) |