master 8e2faa7: * lisp/url/url-proxy.el (url-find-proxy-for-url): Minor simplification

[Stefan Monnier]

branch: master
commit 8e2faa74ce188da536a81cbece3b13f8f16f2bd6
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/url/url-proxy.el (url-find-proxy-for-url): Minor simplification
---
 lisp/url/url-proxy.el | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lisp/url/url-proxy.el b/lisp/url/url-proxy.el
index 1b3b190..c89c1b6 100644
--- a/lisp/url/url-proxy.el
+++ b/lisp/url/url-proxy.el
@@ -49,9 +49,7 @@
     ;; Not sure how I should handle gracefully degrading from one proxy to
     ;; another, so for now just deal with the first one
     ;; (while proxies
-    (if (listp proxies)
-       (setq proxy (car proxies))
-      (setq proxy proxies))
+    (setq proxy (if (listp proxies) (car proxies) proxies))
     (cond
      ((string-match "^DIRECT" proxy) nil)
      ((string-match "^PROXY +" proxy)