diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-13 02:09:12 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-13 02:09:12 +0000 |
| commit | 4f0f48dfc10906f2af1ed35afe8624670f4d7c1a (patch) | |
| tree | 403d893d2fe571da6de3ce8a43ab97b3e671d41e /lisp/url/url-file.el | |
| parent | 5d6ab6725966988280a28cbd0acd76996a26560e (diff) | |
| download | emacs-4f0f48dfc10906f2af1ed35afe8624670f4d7c1a.tar.gz emacs-4f0f48dfc10906f2af1ed35afe8624670f4d7c1a.tar.bz2 emacs-4f0f48dfc10906f2af1ed35afe8624670f4d7c1a.zip | |
(url-file): Avoid assignment to free variable `filename'.
Diffstat (limited to 'lisp/url/url-file.el')
| -rw-r--r-- | lisp/url/url-file.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el index e58da0e302a..f0808a34872 100644 --- a/lisp/url/url-file.el +++ b/lisp/url/url-file.el @@ -156,13 +156,9 @@ to them." (uncompressed-filename nil) (content-type nil) (content-encoding nil) - (coding-system-for-read 'binary)) - - (setq filename (url-file-build-filename url)) - - (if (not filename) - (error "File does not exist: %s" (url-recreate-url url))) - + (coding-system-for-read 'binary) + (filename (url-file-build-filename url))) + (or filename (error "File does not exist: %s" (url-recreate-url url))) ;; Need to figure out the content-type from the real extension, ;; not the compressed one. (setq uncompressed-filename (if (string-match "\\.\\(gz\\|Z\\|z\\)$" filename) |