diff options
| author | Glenn Morris | 2012-10-13 13:17:16 -0700 |
|---|---|---|
| committer | Glenn Morris | 2012-10-13 13:17:16 -0700 |
| commit | 3071811230cf9f6cd461a34cc7202565c4f9947a (patch) | |
| tree | 47e2d5358429d2726e9e2d3813a691ff3bc643b1 | |
| parent | b166258b8ffe420a17ca10bc09b9b4e41a3b29ff (diff) | |
| download | emacs-3071811230cf9f6cd461a34cc7202565c4f9947a.tar.gz emacs-3071811230cf9f6cd461a34cc7202565c4f9947a.zip | |
Comment
| -rw-r--r-- | lisp/url/url-file.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el index 3515d7493cc..59aaccbe074 100644 --- a/lisp/url/url-file.el +++ b/lisp/url/url-file.el | |||
| @@ -166,6 +166,8 @@ to them." | |||
| 166 | (or filename (error "File does not exist: %s" (url-recreate-url url))) | 166 | (or filename (error "File does not exist: %s" (url-recreate-url url))) |
| 167 | ;; Need to figure out the content-type from the real extension, | 167 | ;; Need to figure out the content-type from the real extension, |
| 168 | ;; not the compressed one. | 168 | ;; not the compressed one. |
| 169 | ;; FIXME should this regexp not include more extensions; basically | ||
| 170 | ;; everything that url-file-find-possibly-compressed-file does? | ||
| 169 | (setq uncompressed-filename (if (string-match "\\.\\(gz\\|Z\\|z\\)$" filename) | 171 | (setq uncompressed-filename (if (string-match "\\.\\(gz\\|Z\\|z\\)$" filename) |
| 170 | (substring filename 0 (match-beginning 0)) | 172 | (substring filename 0 (match-beginning 0)) |
| 171 | filename)) | 173 | filename)) |