From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 25 Apr 2021 21:29:01 +0000 (-0400)
Subject: * lisp/url/url-proxy.el (url-find-proxy-for-url): Minor simplification
X-Git-Tag: emacs-28.0.90~2721
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8e2faa74ce188da536a81cbece3b13f8f16f2bd6;p=emacs.git

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

diff --git a/lisp/url/url-proxy.el b/lisp/url/url-proxy.el
index 1b3b1905e37..c89c1b6bc3e 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)