Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 59995:8f4938738427 | 59996:aac0a33f5772 |
|---|---|
| 338 (directory &optional full match nosort id-format) | 338 (directory &optional full match nosort id-format) |
| 339 "Like `directory-files-and-attributes' for tramp files." | 339 "Like `directory-files-and-attributes' for tramp files." |
| 340 (mapcar | 340 (mapcar |
| 341 (lambda (x) | 341 (lambda (x) |
| 342 ;; We cannot call `file-attributes' for backward compatibility reasons. | 342 ;; We cannot call `file-attributes' for backward compatibility reasons. |
| 343 ;; Its optional parameter ID-FORMAT is introduced with Emacs 21.4. | 343 ;; Its optional parameter ID-FORMAT is introduced with Emacs 22.1. |
| 344 (cons x (tramp-smb-handle-file-attributes | 344 (cons x (tramp-smb-handle-file-attributes |
| 345 (if full x (concat (file-name-as-directory directory) x)) id-format))) | 345 (if full x (concat (file-name-as-directory directory) x)) id-format))) |
| 346 (directory-files directory full match nosort))) | 346 (directory-files directory full match nosort))) |
| 347 | 347 |
| 348 (defun tramp-smb-handle-file-attributes (filename &optional id-format) | 348 (defun tramp-smb-handle-file-attributes (filename &optional id-format) |
| 349 "Like `file-attributes' for tramp files." | 349 "Like `file-attributes' for tramp files." |
| 350 ; (with-parsed-tramp-file-name filename nil | 350 ; (with-parsed-tramp-file-name filename nil |
| 351 (let (user host localname) | 351 (let (user host localname) |
| 352 (with-parsed-tramp-file-name filename l | 352 (with-parsed-tramp-file-name filename l |
| 498 (let* ((share (tramp-smb-get-share localname)) | 498 (let* ((share (tramp-smb-get-share localname)) |
| 499 (file (tramp-smb-get-localname localname nil)) | 499 (file (tramp-smb-get-localname localname nil)) |
| 500 (entries (tramp-smb-get-file-entries user host share file))) | 500 (entries (tramp-smb-get-file-entries user host share file))) |
| 501 | 501 |
| 502 ;; Delete dummy "" entry, useless entries | 502 ;; Delete dummy "" entry, useless entries |
| 503 (setq entries | 503 (setq entries |
| 504 (if (file-directory-p filename) | 504 (if (file-directory-p filename) |
| 505 (delq (assoc "" entries) entries) | 505 (delq (assoc "" entries) entries) |
| 506 ;; We just need the only and only entry FILENAME. | 506 ;; We just need the only and only entry FILENAME. |
| 507 (list (assoc (file-name-nondirectory filename) entries)))) | 507 (list (assoc (file-name-nondirectory filename) entries)))) |
| 508 | 508 |