Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4f0f48df
Commit
4f0f48df
authored
Sep 13, 2009
by
Glenn Morris
Browse files
(url-file): Avoid assignment to free variable `filename'.
parent
5d6ab672
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
7 deletions
+7
-7
lisp/url/ChangeLog
lisp/url/ChangeLog
+4
-0
lisp/url/url-file.el
lisp/url/url-file.el
+3
-7
No files found.
lisp/url/ChangeLog
View file @
4f0f48df
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.
...
...
lisp/url/url-file.el
View file @
4f0f48df
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment