# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1252807752 0
# Node ID d5da691bfe569e8ab58599078e00f1590a2eb212
# Parent  0b7fb1bd00dc9c22edecc6b6e1233557d0fb1809
(url-file): Avoid assignment to free variable `filename'.

diff -r 0b7fb1bd00dc -r d5da691bfe56 lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Sun Sep 13 01:47:03 2009 +0000
+++ b/lisp/url/ChangeLog	Sun Sep 13 02:09:12 2009 +0000
@@ -1,3 +1,7 @@
+2009-09-13  Glenn Morris  <rgm@gnu.org>
+
+	* url-file.el (url-file): Avoid assignment to free variable `filename'.
+
 2009-09-12  Chong Yidong  <cyd@stupidchicken.com>
 
 	* url-methods.el (url-scheme--registering-proxy): New variable.
diff -r 0b7fb1bd00dc -r d5da691bfe56 lisp/url/url-file.el
--- a/lisp/url/url-file.el	Sun Sep 13 01:47:03 2009 +0000
+++ b/lisp/url/url-file.el	Sun Sep 13 02:09:12 2009 +0000
@@ -156,13 +156,9 @@
 	 (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)