42 |
(let ((flen (length filename))) |
(let ((flen (length filename))) |
43 |
;; If FILENAME has a trailing slash, remove it and recurse. |
;; If FILENAME has a trailing slash, remove it and recurse. |
44 |
(if (memq (aref filename (1- flen)) '(?/ ?\\)) |
(if (memq (aref filename (1- flen)) '(?/ ?\\)) |
45 |
(concat (convert-standard-filename |
(concat (convert-standard-filename |
46 |
(substring filename 0 (1- flen))) |
(substring filename 0 (1- flen))) |
47 |
"/") |
"/") |
48 |
(let* (;; ange-ftp gets in the way for names like "/foo:bar". |
(let* (;; ange-ftp gets in the way for names like "/foo:bar". |