Mercurial > emacs
comparison lisp/url/url-auth.el @ 54792:369ef3f04d8e
(url-register-auth-scheme): Fix `format' call.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 12 Apr 2004 04:02:17 +0000 |
| parents | e8824c4f5f7e |
| children | 01934125951e eb7e8d483840 |
comparison
equal
deleted
inserted
replaced
| 54791:04bb18c57fc6 | 54792:369ef3f04d8e |
|---|---|
| 296 ((stringp rating) (string-to-int rating)) | 296 ((stringp rating) (string-to-int rating)) |
| 297 (t rating))) | 297 (t rating))) |
| 298 (node (assoc type url-registered-auth-schemes))) | 298 (node (assoc type url-registered-auth-schemes))) |
| 299 (if (not (fboundp function)) | 299 (if (not (fboundp function)) |
| 300 (url-warn 'security | 300 (url-warn 'security |
| 301 (format (eval-when-compile | 301 (format (concat |
| 302 "Tried to register `%s' as an auth scheme" | 302 "Tried to register `%s' as an auth scheme" |
| 303 ", but it is not a function!") function))) | 303 ", but it is not a function!") function))) |
| 304 | 304 |
| 305 (if node | 305 (if node |
| 306 (setcdr node (cons function rating)) | 306 (setcdr node (cons function rating)) |
| 307 (setq url-registered-auth-schemes | 307 (setq url-registered-auth-schemes |
| 308 (cons (cons type (cons function rating)) | 308 (cons (cons type (cons function rating)) |