[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/tramp-smb.el,v
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/tramp-smb.el,v |
Date: |
Sun, 23 Dec 2007 13:25:28 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/net/tramp-smb.el,v,
Michael Albinus <=