[Emacs-diffs] Changes to emacs/lisp/net/tramp-smb.el,v

[Michael Albinus]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       07/12/23 13:25:27

Index: net/tramp-smb.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/tramp-smb.el,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- net/tramp-smb.el    7 Nov 2007 20:41:15 -0000       1.36
+++ net/tramp-smb.el    23 Dec 2007 13:25:26 -0000      1.37
@@ -459,7 +459,7 @@
                 ;; 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 @@
                   ;; 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)