diff options
| author | Stefan Monnier | 2004-04-12 04:02:17 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-04-12 04:02:17 +0000 |
| commit | caae2fd85ff30753f4abf44bbb1049eefa2af099 (patch) | |
| tree | b2a9241d5d8cbc12f7570353061a10361fe66fe2 | |
| parent | d3c91027f319adabab13e92f645fd4e7503ca3d1 (diff) | |
| download | emacs-caae2fd85ff30753f4abf44bbb1049eefa2af099.tar.gz emacs-caae2fd85ff30753f4abf44bbb1049eefa2af099.zip | |
(url-register-auth-scheme): Fix `format' call.
| -rw-r--r-- | lisp/url/url-auth.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index e730a73eee3..5d9b9ab945c 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el | |||
| @@ -298,9 +298,9 @@ RATING a rating between 1 and 10 of the strength of the authentication. | |||
| 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)) |