diff options
Diffstat (limited to 'lisp/url/url-auth.el')
| -rw-r--r-- | lisp/url/url-auth.el | 28 |
1 files changed, 13 insertions, 15 deletions
diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index f2044617b94..fd800cd9782 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el @@ -39,7 +39,7 @@ ;;; ------------------------ ;;; This implements the BASIC authorization type. See the online ;;; documentation at -;;; http://www.w3.org/hypertext/WWW/AccessAuthorization/Basic.html +;;; https://www.w3.org/hypertext/WWW/AccessAuthorization/Basic.html ;;; for the complete documentation on this type. ;;; ;;; This is very insecure, but it works as a proof-of-concept @@ -494,21 +494,19 @@ PROMPT is boolean - specifies whether to ask the user for a username/password (car-safe (sort (mapcar - (function - (lambda (scheme) - (if (fboundp (car (cdr scheme))) - (cons (cdr (cdr scheme)) - (funcall (car (cdr scheme)) url nil nil realm)) - (cons 0 nil)))) + (lambda (scheme) + (if (fboundp (car (cdr scheme))) + (cons (cdr (cdr scheme)) + (funcall (car (cdr scheme)) url nil nil realm)) + (cons 0 nil))) url-registered-auth-schemes) - (function - (lambda (x y) - (cond - ((null (cdr x)) nil) - ((and (cdr x) (null (cdr y))) t) - ((and (cdr x) (cdr y)) - (>= (car x) (car y))) - (t nil))))))) + (lambda (x y) + (cond + ((null (cdr x)) nil) + ((and (cdr x) (null (cdr y))) t) + ((and (cdr x) (cdr y)) + (>= (car x) (car y))) + (t nil)))))) (if (symbolp type) (setq type (symbol-name type))) (let* ((scheme (car-safe (cdr-safe (assoc (downcase type) |