Mercurial > emacs
diff lisp/net/tramp-smb.el @ 59996:aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Change development version from 21.3.50 to 22.0.50.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Wed, 09 Feb 2005 15:50:47 +0000 |
parents | 92796330257a |
children | 3ba8f94e9cfa 3ebd9bdb4fe5 |
line wrap: on
line diff
--- a/lisp/net/tramp-smb.el Tue Feb 08 23:51:31 2005 +0000 +++ b/lisp/net/tramp-smb.el Wed Feb 09 15:50:47 2005 +0000 @@ -340,11 +340,11 @@ (mapcar (lambda (x) ;; We cannot call `file-attributes' for backward compatibility reasons. - ;; Its optional parameter ID-FORMAT is introduced with Emacs 21.4. + ;; Its optional parameter ID-FORMAT is introduced with Emacs 22.1. (cons x (tramp-smb-handle-file-attributes (if full x (concat (file-name-as-directory directory) x)) id-format))) (directory-files directory full match nosort))) - + (defun tramp-smb-handle-file-attributes (filename &optional id-format) "Like `file-attributes' for tramp files." ; (with-parsed-tramp-file-name filename nil @@ -500,7 +500,7 @@ (entries (tramp-smb-get-file-entries user host share file))) ;; Delete dummy "" entry, useless entries - (setq entries + (setq entries (if (file-directory-p filename) (delq (assoc "" entries) entries) ;; We just need the only and only entry FILENAME.