Mercurial > emacs
comparison lisp/url/url-nfs.el @ 57886:60d07d8a52e1
* url-imap.el (url-imap-open-host): Don't use
`string-to-int'. The port returned by `url-port'
is expected to be an integer.
* url-irc.el (url-irc): Ditto.
* url-news.el (url-news-open-host): Ditto.
* url-nfs.el (url-nfs-build-filename): Ditto.
| author | Masatake YAMATO <jet@gyve.org> |
|---|---|
| date | Tue, 02 Nov 2004 09:40:30 +0000 |
| parents | 01934125951e |
| children | a8fa7c632ee4 7a0245dd1848 |
comparison
equal
deleted
inserted
replaced
| 57885:539ce55481ef | 57886:60d07d8a52e1 |
|---|---|
| 60 (?f (insert (or file "/")))))) | 60 (?f (insert (or file "/")))))) |
| 61 (buffer-string))) | 61 (buffer-string))) |
| 62 | 62 |
| 63 (defun url-nfs-build-filename (url) | 63 (defun url-nfs-build-filename (url) |
| 64 (let* ((host (url-host url)) | 64 (let* ((host (url-host url)) |
| 65 (port (string-to-int (url-port url))) | 65 (port (url-port url)) |
| 66 (pass (url-password url)) | 66 (pass (url-password url)) |
| 67 (user (url-user url)) | 67 (user (url-user url)) |
| 68 (file (url-filename url))) | 68 (file (url-filename url))) |
| 69 (url-generic-parse-url | 69 (url-generic-parse-url |
| 70 (url-nfs-unescape url-nfs-automounter-directory-spec | 70 (url-nfs-unescape url-nfs-automounter-directory-spec |