diff options
author | Chong Yidong <cyd@gnu.org> | 2012-06-21 17:21:28 +0800 |
---|---|---|
committer | Chong Yidong <cyd@gnu.org> | 2012-06-21 17:21:28 +0800 |
commit | a3f10d3e4bb2b14e3f34c3cb2a18b6eed3a766db (patch) | |
tree | fb20810d3556fc1e5921c3c81366bd586d28ba9e /lisp/url/url.el | |
parent | ac1a0ce1c6ba60a3faddc64463cb7a697b9d8fd2 (diff) | |
download | emacs-a3f10d3e4bb2b14e3f34c3cb2a18b6eed3a766db.tar.gz |
* url.el (url-retrieve-internal): Fix last change.
Fixes: debbugs:11627
Diffstat (limited to 'lisp/url/url.el')
-rw-r--r-- | lisp/url/url.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/url/url.el b/lisp/url/url.el index 6d276273c2d..999b006cf02 100644 --- a/lisp/url/url.el +++ b/lisp/url/url.el @@ -180,9 +180,9 @@ If URL is a multibyte string, it will be encoded as utf-8 and URL-encoded before it's used." (url-do-setup) (url-gc-dead-buffers) - (if (stringp url) - (set-text-properties 0 (length url) nil url)) - (setq url (url-encode-url url)) + (when (stringp url) + (set-text-properties 0 (length url) nil url) + (setq url (url-encode-url url))) (if (not (vectorp url)) (setq url (url-generic-parse-url url))) (if (not (functionp callback)) |