/[emacs]/emacs/lisp/net/tramp-smb.el
ViewVC logotype

Diff of /emacs/lisp/net/tramp-smb.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by albinus, Sun Jan 16 13:18:31 2005 UTC revision 1.15 by kfstorm, Wed Feb 9 15:50:37 2005 UTC
# Line 340  KEEP-DATE is not handled in case NEWNAME Line 340  KEEP-DATE is not handled in case NEWNAME
340    (mapcar    (mapcar
341     (lambda (x)     (lambda (x)
342       ;; We cannot call `file-attributes' for backward compatibility reasons.       ;; We cannot call `file-attributes' for backward compatibility reasons.
343       ;; Its optional parameter ID-FORMAT is introduced with Emacs 21.4.       ;; Its optional parameter ID-FORMAT is introduced with Emacs 22.1.
344       (cons x (tramp-smb-handle-file-attributes       (cons x (tramp-smb-handle-file-attributes
345          (if full x (concat (file-name-as-directory directory) x)) id-format)))          (if full x (concat (file-name-as-directory directory) x)) id-format)))
346     (directory-files directory full match nosort)))     (directory-files directory full match nosort)))
347    
348  (defun tramp-smb-handle-file-attributes (filename &optional id-format)  (defun tramp-smb-handle-file-attributes (filename &optional id-format)
349    "Like `file-attributes' for tramp files."    "Like `file-attributes' for tramp files."
350  ;  (with-parsed-tramp-file-name filename nil  ;  (with-parsed-tramp-file-name filename nil
# Line 500  WILDCARD and FULL-DIRECTORY-P are not ha Line 500  WILDCARD and FULL-DIRECTORY-P are not ha
500               (entries (tramp-smb-get-file-entries user host share file)))               (entries (tramp-smb-get-file-entries user host share file)))
501    
502          ;; Delete dummy "" entry, useless entries          ;; Delete dummy "" entry, useless entries
503          (setq entries          (setq entries
504                (if (file-directory-p filename)                (if (file-directory-p filename)
505                    (delq (assoc "" entries) entries)                    (delq (assoc "" entries) entries)
506                  ;; We just need the only and only entry FILENAME.                  ;; We just need the only and only entry FILENAME.

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26